X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fmagic.t;h=3fa7d05d6b201cfcd1a9c5f69996725851f9265d;hb=98b91a13eb79864172fa4bf6a7eb84ed0ab7d468;hp=97770ab6c2c798bc6ca88e953ce3cd993568dd31;hpb=dc1ab564693a4caf2a2f1c83c1ee1665c0705943;p=p5sagit%2FDevel-Size.git

diff --git a/t/magic.t b/t/magic.t
index 97770ab..3fa7d05 100644
--- a/t/magic.t
+++ b/t/magic.t
@@ -46,13 +46,14 @@ SKIP: {
     my $after_size = total_size($string);
     cmp_ok($after_size, '>', $before_size, 'size increases due to magic');
     is($string, undef, 'No value yet');
+    my $small_size = total_size($string);
     # This is defineately cheating, in that we're poking inside the
     # implementation of Tie::StdScalar, but if we just write to $string, the way
     # magic works, the (nice long) value is first written to the regular scalar,
     # then picked up by the magic. So it grows, which defeats the purpose of the
     # test.
     ${tied $string} = 'X' x 1024;
-    cmp_ok(total_size($string), '>', $after_size + 1024,
+    cmp_ok(total_size($string), '>', $small_size + 1024,
 	   'the magic object is counted');
 }