Added a memory leak test

diff --git a/t/optional/memleak.t b/t/optional/memleak.t
new file mode 100644 (file)
index 0000000..648cc2c
--- /dev/null
+++ b/t/optional/memleak.t
@@ -0,0 +1,39 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../live/lib";
+
+use Test::More;
+use Catalyst::Test 'TestApp';
+eval "use GTop2";
+
+plan skip_all => 'set TEST_MEMLEAK to enable this test'
+    unless $ENV{TEST_MEMLEAK};
+plan skip_all => 'GTop required for this test' if $@;
+
+plan tests => 1;
+
+{
+    # make a request to set initial memory size
+    request('http://localhost');
+    
+    my $gtop = GTop->new;
+    my $initial = $gtop->proc_mem($$)->size;
+    print "Initial Size: $initial\n";
+    
+    for ( 1 .. 1000 ) {
+        request('http://localhost');
+    }
+    
+    my $final = $gtop->proc_mem($$)->size;
+    print "Final Size:   $final\n";
+    
+    if ( $final > $initial ) {
+        print "Leaked Bytes: " . ( $final - $initial ) . "\n";
+    }
+    
+    is( $final, $initial, 'memory is not leaking' );
+}