X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fbasic.t;h=9805f70567635410558f6c03474ca37415f15466;hb=2640cff19935bb6d48cc671a0aa2ec07c7636057;hp=4dfed682de498c437d769079b50d6d69f37c49c5;hpb=39ffec011d84f9c68d5f54a0f9dabbfbeaa559b7;p=p5sagit%2FDevel-Size.git

diff --git a/t/basic.t b/t/basic.t
index 4dfed68..9805f70 100644
--- 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');
+}