X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fleak.t;fp=t%2Fleak.t;h=2f16e1bb7eb45e67bb5562b1ba31012318cc006d;hb=1f727762b7d2af3c22ae86a9c9012154a82b1457;hp=0000000000000000000000000000000000000000;hpb=90217864440f3ffadbbeaa12dbb76686dffadefd;p=catagits%2FWeb-Simple.git

diff --git a/t/leak.t b/t/leak.t
new file mode 100644
index 0000000..2f16e1b
--- /dev/null
+++ b/t/leak.t
@@ -0,0 +1,15 @@
+use strictures;
+use Test::More eval { require Devel::Cycle } ? 'no_plan' : ( skip_all => 'No Devel::Cycle' );
+
+use Web::Simple;
+use Devel::Cycle;
+
+my $counter;
+my $on_cycle = sub { Devel::Cycle::_do_report( ++$counter, shift ) };
+{
+    local *STDOUT = *STDERR;
+    Devel::Cycle::find_cycle( main->new->to_psgi_app, $on_cycle );
+}
+ok !$counter, "no leak in to_psgi_app";
+
+done_testing;