t/leak.t

   1 use strictures;
   2 use Test::More eval { require Devel::Cycle } ? 'no_plan' : ( skip_all => 'No Devel::Cycle' );
   3
   4 use Web::Simple;
   5 use Devel::Cycle;
   6
   7 my $counter;
   8 my $on_cycle = sub { Devel::Cycle::_do_report( ++$counter, shift ) };
   9 {
  10     local *STDOUT = *STDERR;
  11     Devel::Cycle::find_cycle( main->new->to_psgi_app, $on_cycle );
  12 }
  13 ok !$counter, "no leak in to_psgi_app";
  14
  15 done_testing;