File: cycles.t

package info (click to toggle)
libhtml-formhandler-perl 0.40067-1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 2,432 kB
  • ctags: 697
  • sloc: perl: 9,312; makefile: 2
file content (28 lines) | stat: -rw-r--r-- 456 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
use strict;
use warnings;
use Test::More 0.88;
use Devel::Cycle;
{
    package FormHandlerMemLeak;

    use HTML::FormHandler::Moose;
    extends qw/HTML::FormHandler/;

    has_field test => ( type => "Text");

    sub default_test {
        return "test";
    }
    sub validate_test {
        return 1;
    }

    __PACKAGE__->meta->make_immutable;
}

my $i = FormHandlerMemLeak->new;
find_cycle($i, sub { fail("Cycle found") });
ok $i;
done_testing;