Revert the intent of cb11131e. st (was tv) can be NULL.

[p5sagit/Devel-Size.git] / t / basic.t

diff --git a/t/basic.t b/t/basic.t
index 4dfed68..9805f70 100644 (file)
--- a/t/basic.t
+++ b/t/basic.t
@@ -1,8 +1,9 @@
 #!/usr/bin/perl -w
 
-use Test::More tests => 14;
+use Test::More tests => 15;
 use strict;
 use Devel::Size qw(size total_size);
+use Scalar::Util qw(weaken);
 
 can_ok ('Devel::Size', qw/
   size
@@ -91,3 +92,11 @@ use constant LARGE => 'N' x 8192;
 
 cmp_ok (total_size(\&LARGE), '>', 8192,
         'total_size for a constant includes the constant');
+
+{
+    my $a = [];
+    my $b = \$a;
+    weaken $b;
+    cmp_ok(total_size($a), '>', total_size([]),
+          'making a weakref upgrades the target to PVMG and adds magic');
+}