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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
#!perl -T
use strict;
use warnings FATAL => 'all';
use Test::More tests => 3;
use Test::Builder::Tester;
use Getopt::Long;
BEGIN {
use_ok( 'Test::Memory::Cycle' );
}
my $dis = Getopt::Long::Parser->new;
my $dat = Getopt::Long::Parser->new;
$dis->{dose} = [$dat,$dat,$dat];
$dat->{dem} = { dis => $dis };
test_out( "not ok 1 - Object family" );
test_fail( +16 );
test_diag( 'Cycle #1' );
test_diag( ' Getopt::Long::Parser A->{dose} => @B' );
test_diag( ' @B->[0] => Getopt::Long::Parser C' );
test_diag( ' Getopt::Long::Parser C->{dem} => %D' );
test_diag( ' %D->{dis} => Getopt::Long::Parser A' );
test_diag( 'Cycle #2' );
test_diag( ' Getopt::Long::Parser A->{dose} => @B' );
test_diag( ' @B->[1] => Getopt::Long::Parser C' );
test_diag( ' Getopt::Long::Parser C->{dem} => %D' );
test_diag( ' %D->{dis} => Getopt::Long::Parser A' );
test_diag( 'Cycle #3' );
test_diag( ' Getopt::Long::Parser A->{dose} => @B' );
test_diag( ' @B->[2] => Getopt::Long::Parser C' );
test_diag( ' Getopt::Long::Parser C->{dem} => %D' );
test_diag( ' %D->{dis} => Getopt::Long::Parser A' );
memory_cycle_ok( $dis, "Object family" );
test_test( "Object family testing" );
test_out( "ok 1 - Object family has Cycles" );
memory_cycle_exists( $dis, "Object family has Cycles" );
test_test( "Object family testing with cycles" );
|
