diff -ruN Devel-Size-0.64/t/basic.t Devel-Size-0.64_a/t/basic.t
--- Devel-Size-0.64/t/basic.t	2004-11-27 22:40:31.000000000 +0100
+++ Devel-Size-0.64_a/t/basic.t	2006-09-09 18:49:12.000000000 +0200
@@ -24,17 +24,17 @@
 %foo = (a => 1, b => 2);
 
 my $x = "A string";
-my $y = "A longer string";
+my $y = "A much much longer string";
 if (size($x) < size($y)) {
     print "ok 2\n";
 } else {
-    print "not ok 2\n";
+    print "not ok 2 # " . size($x) . " not < than " . size($y) . "\n";
 }
 
 if (total_size($x) < total_size($y)) {
     print "ok 3\n";
 } else {
-    print "not ok 3\n";
+    print "not ok 3 # " . total_size($x) . " not < than " . total_size($y) . "\n";
 }
 
 my @x = (1..4);