From: Andy Grundman <andy@hybridized.org>
Date: Wed, 26 Oct 2005 13:55:49 +0000 (+0000)
Subject: Added nicer size strings to memleak test
X-Git-Tag: 5.7099_04~1099
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=c6294ccd4980d13fdbec04210478f6f0d0a91d64

Added nicer size strings to memleak test
---

diff --git a/t/optional/memleak.t b/t/optional/memleak.t
index 00f5526..9731bb7 100644
--- a/t/optional/memleak.t
+++ b/t/optional/memleak.t
@@ -22,17 +22,17 @@ plan tests => 1;
     
     my $gtop = GTop->new;
     my $initial = $gtop->proc_mem($$)->size;
-    print "Initial Size: $initial\n";
+    print "Initial Size: " . GTop::size_string($initial) . "\n";
     
     for ( 1 .. 1000 ) {
         request('http://localhost');
     }
     
     my $final = $gtop->proc_mem($$)->size;
-    print "Final Size:   $final\n";
+    print "Final Size:   " . GTop::size_string($final) . "\n";
     
     if ( $final > $initial ) {
-        print "Leaked Bytes: " . ( $final - $initial ) . "\n";
+        print "Leaked Bytes: " . GTop::size_string($final - $initial) . "\n";
     }
     
     is( $final, $initial, 'memory is not leaking' );