Checking if your kit is complete... Looks good Writing Makefile for Data::BFDump cp BFDump.pm blib/lib/Data/BFDump.pm cp BFDump/Test.pm blib/lib/Data/BFDump/Test.pm Manifying blib/man3/Data::BFDump.3 Manifying blib/man3/Data::BFDump::Test.3 PERL_DL_NONLAZY=1 /home/cpanrun/ia64-lp64/build/5.8.2/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib/lib', 'blib/arch')" t/*.t t/basic.....1..83 ok 1 - use Data::BFDump::Test; ok 2 - The object isa Data::BFDump ok 3 - Empty list ok 4 - Empty Arrary Use of uninitialized value in numeric eq (==) at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump.pm line 457. Use of uninitialized value in numeric eq (==) at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump.pm line 457. Use of uninitialized value in numeric eq (==) at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump.pm line 457. Use of uninitialized value in numeric eq (==) at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump.pm line 457. Use of uninitialized value in numeric eq (==) at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump.pm line 457. Use of uninitialized value in numeric eq (==) at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump.pm line 457. Use of uninitialized value in numeric eq (==) at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump.pm line 457. ok 5 - Empty Hash ok 6 - String ok 7 - undef ok 8 - undef2 # Failed test (t/basic.t at line 25) # got: 'do{ # my $VAR2 = 2; # ( 1, $VAR2, 3, $VAR2, $VAR2, $VAR2, $VAR2, $VAR2, $VAR2, $VAR2 ); # } # ' # expected: '( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 )' Use of uninitialized value in numeric eq (==) at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump.pm line 457. Use of uninitialized value in numeric eq (==) at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump.pm line 457. Use of uninitialized value in numeric eq (==) at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump.pm line 457. Use of uninitialized value in numeric eq (==) at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump.pm line 457. Use of uninitialized value in numeric eq (==) at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump.pm line 457. Use of uninitialized value in numeric eq (==) at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump.pm line 457. # Failed test (t/basic.t at line 27) # got: 'do{ # my $VAR1 = 'A'; # ( $VAR1, $VAR1, $VAR1, $VAR1, $VAR1, $VAR1, $VAR1 ); # } # ' # expected: '( 'A', 'B', 'C', 'D', 'E', 'F', 'G' )' not ok 9 - 1..10 not ok 10 - A..G ok 11 - Returns 0 REF isn't implemented yet?.. at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump.pm line 860. ok 12 - Simple Array - Expect BF ok 13 - Simple Array - Expect DU ok 14 - Simple Array - Dumper eq Dumper Eval Dumper ok 15 - Simple Array - Dumper eq Dumper Eval BFDump ok 16 - Simple Array - Dumper Eval BFDump eq Dumper Eval Dumper ok 17 - Simple Array - BFDump eq BFDump Eval BFDump ok 18 - Simple Array - BFDump eq BFDump Eval Dumper ok 19 - Simple Array - BFDump Eval BFDump eq BFDump Eval Dumper # Looks like you planned 83 tests but only ran 19. # Looks like your test died just after 19. dubious Test returned status 255 (wstat 65280, 0xff00) DIED. FAILED tests 9-10, 20-83 Failed 66/83 tests, 20.48% okay t/dumper....1..62 ok 1 - use Data::BFDump::Test; ok 2 - The object isa Data::BFDump ok 3 - Named Vars Self Ref - Expect BF # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 203) not ok 4 - Named Vars Self Ref - Expect DU # got: '$a = [ # 1, # { # 'c' => [ # 'c' # ], # 'a' => [], # 'b' => {} # }, # [] # ]; # $a->[1]{'a'} = $a; # $a->[1]{'b'} = $a->[1]; # $a->[2] = $a->[1]{'c'}; # $b = $a->[1]; # $c = $a->[1]{'c'};' # expected: '$a = [ # 1, # { # 'a' => [], # 'b' => {}, # 'c' => [ # 'c' # ] # }, # [] # ]; # $a->[1]{'a'} = $a; # $a->[1]{'b'} = $a->[1]; # $a->[2] = $a->[1]{'c'}; # $b = $a->[1]; # $c = $a->[1]{'c'};' # -Dumper # +Expect DU # @2,2 # = | { # + | 'a' => [], # + | 'b' => {}, # = | 'c' => [ # = | 'c' # - | ], # - | 'a' => [], # - | 'b' => {} # + | ] # = | }, Use of uninitialized value in numeric eq (==) at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump.pm line 457. Use of uninitialized value in numeric eq (==) at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump.pm line 457. ok 5 - Named Vars Self Ref - Dumper eq Dumper Eval Dumper ok 6 - Named Vars Self Ref - Dumper eq Dumper Eval BFDump ok 7 - Named Vars Self Ref - Dumper Eval BFDump eq Dumper Eval Dumper # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 293) not ok 8 - Named Vars Self Ref - BFDump eq BFDump Eval BFDump # got: 'do{ # my $c = [ 'c' ]; # my $a = [ 1, '$a', $c ]; # $a->[1] = $a; # ( $a, $a, $c ); # }' # expected: 'do{ # my $c = [ 'c' ]; # my $b = { # a => '$a', # b => '$b', # c => $c # }; # $b->{b} = $b; # my $a = [ 1, $b, $c ]; # $b->{a} = $a; # ( $a, $b, $c ); # }' package main; $self->Dump( do{ my $c = [ 'c' ]; my $b = { a => '$a', # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 317) b => '$b', c => $c # got: 'do{ # my $c = [ 'c' ]; # my $a = [ 1, '$a', $c ]; # $a->[1] = $a; # ( $a, $a, $c ); # }' # expected: 'do{ # my $c = [ 'c' ]; # my $b = { # a => '$a', # b => '$b', # c => $c # }; # $b->{b} = $b; # my $a = [ 1, $b, $c ]; # $b->{a} = $a; # ( $a, $b, $c ); # }' }; $b->{b} = $b; my $a = [ 1, $b, $c ]; $b->{a} = $a; $self->capture( $a, $b, $c ); } ,$names) not ok 9 - Named Vars Self Ref - BFDump eq BFDump Eval Dumper package main; my ($a,$b,$c); $a = [ 1, { 'c' => [ 'c' ], 'a' => [], 'b' => {} }, [] ]; $a->[1]{'a'} = $a; $a->[1]{'b'} = $a->[1]; $a->[2] = $a->[1]{'c'}; $b = $a->[1]; $c = $a->[1]{'c'}; $self->Dump($self->capture( $a,$b,$c ),$names) ok 10 - Named Vars Self Ref - BFDump Eval BFDump eq BFDump Eval Dumper ok 11 - (@a) Named Vars Self Ref - Expect BF # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 203) not ok 12 - (@a) Named Vars Self Ref - Expect DU # got: '@a = ( # 1, # { # 'c' => [ # 'c' # ], # 'a' => [], # 'b' => {} # }, # [] # ); # $a[1]{'a'} = \@a; # $a[1]{'b'} = $a[1]; # $a[2] = $a[1]{'c'}; # $b = $a[1];' # expected: '@a = ( # 1, # { # 'a' => [], # 'b' => {}, # 'c' => [ # 'c' # ] # }, # [] # ); # $a[1]{'a'} = \@a; # $a[1]{'b'} = $a[1]; # $a[2] = $a[1]{'c'}; # $b = $a[1];' # -Dumper # +Expect DU # @2,2 # = | { # + | 'a' => [], # + | 'b' => {}, # = | 'c' => [ # = | 'c' # - | ], # - | 'a' => [], # - | 'b' => {} # + | ] # = | }, Use of uninitialized value in numeric eq (==) at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump.pm line 457. ok 13 - (@a) Named Vars Self Ref - Dumper eq Dumper Eval Dumper ok 14 - (@a) Named Vars Self Ref - Dumper eq Dumper Eval BFDump ok 15 - (@a) Named Vars Self Ref - Dumper Eval BFDump eq Dumper Eval Dumper # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 293) not ok 16 - (@a) Named Vars Self Ref - BFDump eq BFDump Eval BFDump # got: 'do{ # my @a = ( 1, '@a', [ 'c' ] ); # $a[1] = \@a; # ( @a, @a ); # }' # expected: 'do{ # my $b = { # a => '@a', # b => '$b', # c => [ 'c' ] # }; # $b->{b} = $b; # my @a = ( 1, $b, $b->{c} ); # $b->{a} = \@a; # ( @a, $b ); # }' package main; $self->Dump( do{ my $b = { a => '@a', b => '$b', c => [ 'c' ] }; $b->{b} = $b; my @a = ( 1, $b, $b->{c} ); $b->{a} = \@a; $self->capture( \@a, $b ); } ,$names) # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 321) ok 17 - (@a) Named Vars Self Ref - BFDump eq BFDump Eval Dumper # got: 'do{ # my @a = ( 1, '@a', [ 'c' ] ); # $a[1] = \@a; # ( @a, @a ); # }' # expected: 'do{ # my $b = { # a => '@a', # b => '$b', # c => [ 'c' ] # }; # $b->{b} = $b; # my @a = ( 1, $b, $b->{c} ); # $b->{a} = \@a; # ( @a, $b ); # }' not ok 18 - (@a) Named Vars Self Ref - BFDump Eval BFDump eq BFDump Eval Dumper package main; $self->Dump( do{ my $b = { a => '@a', b => '$b', c => [ 'c' ] }; $b->{b} = $b; my @a = ( 1, $b, $b->{c} ); $b->{a} = \@a; $self->capture( \@a, $b ); } ,$names) package main; my (@a,$b); @a = ( 1, { 'c' => [ 'c' ], 'a' => [], 'b' => {} }, [] ); $a[1]{'a'} = \@a; $a[1]{'b'} = $a[1]; $a[2] = $a[1]{'c'}; $b = $a[1]; $self->Dump($self->capture( \@a,$b ),$names) ok 19 - (%b) Named Base Vars Self Ref - Expect BF # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 203) not ok 20 - (%b) Named Base Vars Self Ref - Expect DU # got: '$a = [ # 1, # { # 'c' => [ # 'c' # ], # 'a' => [], # 'b' => {} # }, # [] # ]; # $a->[1]{'a'} = $a; # $a->[1]{'b'} = $a->[1]; # $a->[2] = $a->[1]{'c'}; # %b = %{$a->[1]};' # expected: '$a = [ # 1, # { # 'a' => [], # 'b' => {}, # 'c' => [ # 'c' # ] # }, # [] # ]; # $a->[1]{'a'} = $a; # $a->[1]{'b'} = $a->[1]; # $a->[2] = $a->[1]{'c'}; # %b = %{$a->[1]};' # -Dumper # +Expect DU # @2,2 # = | { # + | 'a' => [], # + | 'b' => {}, # = | 'c' => [ # = | 'c' # - | ], # - | 'a' => [], # - | 'b' => {} # + | ] # = | }, # Looks like Data::Dumper is broken. This could be subtle. # package main; # my ($a,%b); # $a = [ # 1, # { # 'c' => [ # 'c' # ], # 'a' => [], # 'b' => {} # }, # [] # ]; # $a->[1]{'a'} = $a; # $a->[1]{'b'} = $a->[1]; # $a->[2] = $a->[1]{'c'}; # %b = %{$a->[1]}; # Data::Dumper->Dump($self->capture( $a,\%b ),$names) ok 21 # skip Broken Dumper? - Dumper eq Dumper Eval Dumper # Cool! Data::Dumper didnt get this one. ok 22 - (%b) Named Base Vars Self Ref - Dumper eq Dumper Eval BFDump ok 23 # skip Broken Dumper. - Dumper Eval BFDump eq Dumper Eval Dumper ok 24 - (%b) Named Base Vars Self Ref - BFDump eq BFDump Eval BFDump ok 25 # skip Broken Dumper. Invalid test. - BFDump eq BFDump Eval Dumper ok 26 # skip Broken Dumper. Invalid test. - BFDump Eval BFDump eq BFDump Eval Dumper ok 27 - (@a,%b) Named Base Vars Self Ref - Expect BF # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 203) not ok 28 - (@a,%b) Named Base Vars Self Ref - Expect DU # got: '@a = ( # 1, # { # 'c' => [ # 'c' # ], # 'a' => [], # 'b' => {} # }, # [] # ); # $a[1]{'a'} = \@a; # $a[1]{'b'} = $a[1]; # $a[2] = $a[1]{'c'}; # %b = %{$a[1]};' # expected: '@a = ( # 1, # { # 'a' => [], # 'b' => {}, # 'c' => [ # 'c' # ] # }, # [] # ); # $a[1]{'a'} = \@a; # $a[1]{'b'} = $a[1]; # $a[2] = $a[1]{'c'}; # %b = %{$a[1]};' # -Dumper # +Expect DU # @2,2 # = | { # + | 'a' => [], # + | 'b' => {}, # = | 'c' => [ # = | 'c' # - | ], # - | 'a' => [], # - | 'b' => {} # + | ] # = | }, # Looks like Data::Dumper is broken. This could be subtle. # package main; # my (@a,%b); # @a = ( # 1, # { # 'c' => [ # 'c' # ], # 'a' => [], # 'b' => {} # }, # [] # ); # $a[1]{'a'} = \@a; # $a[1]{'b'} = $a[1]; # $a[2] = $a[1]{'c'}; # %b = %{$a[1]}; # Data::Dumper->Dump($self->capture( \@a,\%b ),$names) ok 29 # skip Broken Dumper? - Dumper eq Dumper Eval Dumper # Cool! Data::Dumper didnt get this one. ok 30 - (@a,%b) Named Base Vars Self Ref - Dumper eq Dumper Eval BFDump ok 31 # skip Broken Dumper. - Dumper Eval BFDump eq Dumper Eval Dumper ok 32 - (@a,%b) Named Base Vars Self Ref - BFDump eq BFDump Eval BFDump ok 33 # skip Broken Dumper. Invalid test. - BFDump eq BFDump Eval Dumper ok 34 # skip Broken Dumper. Invalid test. - BFDump Eval BFDump eq BFDump Eval Dumper ok 35 - Seen test Warning:Indent() deprecated in BFDump. Will be replaced by a style attribute (eventually) at t/dumper.t line 196 Warning:Purity not implemented yet. Ignoring. at t/dumper.t line 197 Warning:Quotekeys() deprecated in BFDump. See Text::Quote->quote_prop for details. ('auto' is default) at t/dumper.t line 197 ok 36 - Indent(3), Purity(0), Quotekeys(0) ok 37 # skip Full Data::Dumper interface not implemented yet. ok 38 - Test Data::BFDump::Dumper() REF isn't implemented yet?.. at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump.pm line 860. # Looks like you planned 62 tests but only ran 38. # Looks like your test died just after 38. dubious Test returned status 255 (wstat 65280, 0xff00) DIED. FAILED tests 4, 8-9, 12, 16, 18, 20, 28, 39-62 Failed 32/62 tests, 48.39% okay (less 9 skipped tests: 21 okay, 33.87%) t/glob......1..18 ok 1 - use Data::BFDump::Test; # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 190) # got: 'do{ # *::Glob = {}; # *::Glob = *Glob{HASH}; # *::Glob = \do { my $itm = 'This is a glob' }; # *main::Glob; # }' # expected: 'do{ # *::Glob = []; # *::Glob = \do { my $itm = 'This is a glob' }; # *::Glob = {}; # *main::Glob; # }' ok 2 - The object isa Data::BFDump not ok 3 - simple glob - Expect BF # -BFDump # +Expect BF # @0,0 # = |do{ # - | *::Glob = {}; # - | *::Glob = *Glob{HASH}; # + | *::Glob = []; # = | *::Glob = \do { my $itm = 'This is a glob' }; # + | *::Glob = {}; # = | *main::Glob; ok 4 - simple glob - Expect DU # Failed eval! # >-- # Seen 6.91752902765225e+18! at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump.pm line 804. # # --- # package main; # my ($VAR1); # $VAR1 = *::Glob; # *::Glob = \'This is a glob'; # *::Glob = []; # *::Glob = {}; # $self->Dump($self->capture( $VAR1 ),$names) # # ---< # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 317) # got: 'Seen 6.91752902765225e+18! at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump.pm line 804. # ' # expected: 'do{ # *::Glob = {}; # *::Glob = *Glob{HASH}; # *::Glob = \do { my $itm = 'This is a glob' }; # *main::Glob; # }' Use of uninitialized value in print at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm line 319. # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 321) # got: 'do{ # *::Glob = {}; # *::Glob = *Glob{HASH}; # *::Glob = \do { my $itm = 'This is a glob' }; # *main::Glob; # }' # expected: 'Seen 6.91752902765225e+18! at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump.pm line 804. # ' Use of uninitialized value in print at /home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm line 323. ok 5 - simple glob - Dumper eq Dumper Eval Dumper ok 6 - simple glob - Dumper eq Dumper Eval BFDump ok 7 - simple glob - Dumper Eval BFDump eq Dumper Eval Dumper ok 8 - simple glob - BFDump eq BFDump Eval BFDump not ok 9 - simple glob - BFDump eq BFDump Eval Dumper not ok 10 - simple glob - BFDump Eval BFDump eq BFDump Eval Dumper package main; $self->Dump( $self->capture(do{ *::Glob = {}; *::Glob = *Glob{HASH}; *::Glob = \do { my $itm = 'This is a glob' }; *main::Glob; }) ,$names) not ok 11 - Less simple glob - Expect BF # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 190) # got: 'do{ # *::Glob = {}; # *::Glob = *Glob{HASH}; # *::Glob = \do { my $itm = 'This is a glob' }; # *main::Glob; # }' # expected: 'do{ # *::Glob = [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 ]; # *::Glob = \do { my $itm = 'This is a glob' }; # *::Glob = {}; # *main::Glob; # }' # -BFDump # +Expect BF # @0,0 # = |do{ # - | *::Glob = {}; # - | *::Glob = *Glob{HASH}; # + | *::Glob = [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 ]; # = | *::Glob = \do { my $itm = 'This is a glob' }; # + | *::Glob = {}; # = | *main::Glob; ok 12 - Less simple glob - Expect DU # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 293) # got: 'do{ # *::Glob = {}; # *::Glob = [ 1, '$VAR1', '$VAR1', 4, 5, 6, 7, 8, 9, 10 ]; # *::Glob = \do { my $itm = 'This is a glob' }; # my $VAR1 = *main::Glob; # *Glob{ARRAY}->[1] = $VAR1; # *Glob{ARRAY}->[2] = $VAR1; # $VAR1; # }' # expected: 'do{ # *::Glob = {}; # *::Glob = *Glob{HASH}; # *::Glob = \do { my $itm = 'This is a glob' }; # *main::Glob; # }' # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 317) # got: 'do{ # *::Glob = {}; # *::Glob = *Glob{HASH}; # *::Glob = *Glob{HASH}; # *main::Glob; # }' # expected: 'do{ # *::Glob = {}; # *::Glob = *Glob{HASH}; # *::Glob = \do { my $itm = 'This is a glob' }; # *main::Glob; # }' # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 321) # got: 'do{ # *::Glob = {}; # *::Glob = [ 1, '$VAR1', '$VAR1', 4, 5, 6, 7, 8, 9, 10 ]; # *::Glob = \do { my $itm = 'This is a glob' }; # my $VAR1 = *main::Glob; # *Glob{ARRAY}->[1] = $VAR1; # *Glob{ARRAY}->[2] = $VAR1; # $VAR1; # }' # expected: 'do{ # *::Glob = {}; # *::Glob = *Glob{HASH}; # *::Glob = *Glob{HASH}; # *main::Glob; # }' # Looks like you failed 7 tests of 18. ok 13 - Less simple glob - Dumper eq Dumper Eval Dumper ok 14 - Less simple glob - Dumper eq Dumper Eval BFDump ok 15 - Less simple glob - Dumper Eval BFDump eq Dumper Eval Dumper not ok 16 - Less simple glob - BFDump eq BFDump Eval BFDump package main; $self->Dump( $self->capture(do{ *::Glob = {}; *::Glob = *Glob{HASH}; *::Glob = \do { my $itm = 'This is a glob' }; *main::Glob; }) ,$names) not ok 17 - Less simple glob - BFDump eq BFDump Eval Dumper package main; my ($VAR1); $VAR1 = *::Glob; *::Glob = \'This is a glob'; *::Glob = [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 ]; *::Glob = {}; $self->Dump($self->capture( $VAR1 ),$names) not ok 18 - Less simple glob - BFDump Eval BFDump eq BFDump Eval Dumper package main; $self->Dump( $self->capture(do{ *::Glob = {}; *::Glob = *Glob{HASH}; *::Glob = \do { my $itm = 'This is a glob' }; *main::Glob; }) ,$names) package main; my ($VAR1); $VAR1 = *::Glob; *::Glob = \'This is a glob'; *::Glob = [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 ]; *::Glob = {}; $self->Dump($self->capture( $VAR1 ),$names) dubious Test returned status 7 (wstat 1792, 0x700) DIED. FAILED tests 3, 9-11, 16-18 Failed 7/18 tests, 61.11% okay t/object....1..66 ok 1 - use Data::BFDump::Test; ok 2 - The object isa Data::BFDump ok 3 - new hash - Expect BF ok 4 - new hash - Expect DU ok 5 - new hash - Dumper eq Dumper Eval Dumper ok 6 - new hash - Dumper eq Dumper Eval BFDump ok 7 - new hash - Dumper Eval BFDump eq Dumper Eval Dumper ok 8 - new hash - BFDump eq BFDump Eval BFDump ok 9 - new hash - BFDump eq BFDump Eval Dumper ok 10 - new hash - BFDump Eval BFDump eq BFDump Eval Dumper ok 11 - new array - Expect BF ok 12 - new array - Expect DU ok 13 - new array - Dumper eq Dumper Eval Dumper ok 14 - new array - Dumper eq Dumper Eval BFDump ok 15 - new array - Dumper Eval BFDump eq Dumper Eval Dumper ok 16 - new array - BFDump eq BFDump Eval BFDump ok 17 - new array - BFDump eq BFDump Eval Dumper ok 18 - new array - BFDump Eval BFDump eq BFDump Eval Dumper ok 19 - new scalar - Expect BF ok 20 - new scalar - Expect DU ok 21 - new scalar - Dumper eq Dumper Eval Dumper ok 22 - new scalar - Dumper eq Dumper Eval BFDump ok 23 - new scalar - Dumper Eval BFDump eq Dumper Eval Dumper ok 24 - new scalar - BFDump eq BFDump Eval BFDump ok 25 - new scalar - BFDump eq BFDump Eval Dumper ok 26 - new scalar - BFDump Eval BFDump eq BFDump Eval Dumper # Looks like you planned 66 tests but only ran 26. # Looks like your test died just after 26. dubious Test returned status 255 (wstat 65280, 0xff00) DIED. FAILED tests 27-66 Failed 40/66 tests, 39.39% okay t/sub.......1..44 ok 1 - use Data::BFDump::Test; ok 2 - The object isa Data::BFDump ok 3 - coderef('warn') set ok 4 - coderef('stub') get # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 190) # got: 'sub { # use warnings; # use strict 'refs'; # return('foo'); # }' # expected: 'sub { # return('foo'); # }' # -BFDump # +Expect BF # @0,0 # = |sub { # - | use warnings; # - | use strict 'refs'; # = | return('foo'); not ok 5 - simple sub - Expect BF ok 6 - simple sub - Expect DU ok 7 - simple sub - Dumper eq Dumper Eval Dumper ok 8 - simple sub - Dumper eq Dumper Eval BFDump ok 9 - simple sub - Dumper Eval BFDump eq Dumper Eval Dumper ok 10 - simple sub - BFDump eq BFDump Eval BFDump ok 11 # skip Dumping subroutines. Dumper doesnt do this correctly. Invalid test. ok 12 # skip Dumping subroutines. Dumper doesnt do this correctly. Invalid test. # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 190) # got: 'sub { # use warnings; # use strict 'refs'; # if (@_) { # print(@_, "\n"); # } else { # print("Nothing\n"); # } # }' # expected: 'sub { # if (@_) { # print(@_, "\n"); # } else { # print("Nothing\n"); # } # }' # -BFDump # +Expect BF # @0,0 # = |sub { # - | use warnings; # - | use strict 'refs'; # = | if (@_) { not ok 13 - less simple sub - Expect BF ok 14 - less simple sub - Expect DU ok 15 - less simple sub - Dumper eq Dumper Eval Dumper ok 16 - less simple sub - Dumper eq Dumper Eval BFDump ok 17 - less simple sub - Dumper Eval BFDump eq Dumper Eval Dumper ok 18 - less simple sub - BFDump eq BFDump Eval BFDump ok 19 # skip Dumping subroutines. Dumper doesnt do this correctly. Invalid test. ok 20 # skip Dumping subroutines. Dumper doesnt do this correctly. Invalid test. # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 190) # got: 'do{ # my $HASH1 = { # sub1 => sub { # use warnings; # use strict 'refs'; # return('foo'); # }, # sub2 => sub { # use warnings; # use strict 'refs'; # if (@_) { # print(@_, "\n"); # } else { # print("Nothing\n"); # } # } # }; # $HASH1; # }' # expected: 'do{ # my $HASH1 = { # sub1 => sub { # return('foo'); # }, # sub2 => sub { # if (@_) { # print(@_, "\n"); # } else { # print("Nothing\n"); # } # } # }; # $HASH1; # }' # -BFDump # +Expect BF # @2,2 # = | sub1 => sub { # - | use warnings; # - | use strict 'refs'; # = | return('foo'); # @7,5 # = | sub2 => sub { # - | use warnings; # - | use strict 'refs'; # = | if (@_) { not ok 21 - hash of subs - Expect BF ok 22 - hash of subs - Expect DU # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 293) # got: 'do{ # my $HASH1 = { # sub1 => sub { # use warnings; # use strict 'refs'; # return('foo'); # }, # sub2 => '$HASH1' # }; # $HASH1->{sub2} = $HASH1; # $HASH1; # }' # expected: 'do{ # my $HASH1 = { # sub1 => sub { # use warnings; # use strict 'refs'; # return('foo'); # }, # sub2 => sub { # use warnings; # use strict 'refs'; # if (@_) { # print(@_, "\n"); # } else { # print("Nothing\n"); # } # } # }; # $HASH1; # }' ok 23 - hash of subs - Dumper eq Dumper Eval Dumper ok 24 - hash of subs - Dumper eq Dumper Eval BFDump ok 25 - hash of subs - Dumper Eval BFDump eq Dumper Eval Dumper not ok 26 - hash of subs - BFDump eq BFDump Eval BFDump package main; $self->Dump( $self->capture(do{ my $HASH1 = { sub1 => sub { use warnings; use strict 'refs'; return('foo'); }, sub2 => sub { use warnings; use strict 'refs'; if (@_) { print(@_, "\n"); } else { print("Nothing\n"); } } }; $HASH1; }) ,$names) ok 27 # skip Dumping subroutines. Dumper doesnt do this correctly. Invalid test. ok 28 # skip Dumping subroutines. Dumper doesnt do this correctly. Invalid test. # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 190) # got: 'do{ # my $ARRAY1 = [ # sub { # use warnings; # use strict 'refs'; # return('foo'); # }, # sub { # use warnings; # use strict 'refs'; # if (@_) { # print(@_, "\n"); # } else { # print("Nothing\n"); # } # } # ]; # $ARRAY1; # }' # expected: 'do{ # my $ARRAY1 = [ # sub { # return('foo'); # }, # sub { # if (@_) { # print(@_, "\n"); # } else { # print("Nothing\n"); # } # } # ]; # $ARRAY1; # }' # -BFDump # +Expect BF # @2,2 # = | sub { # - | use warnings; # - | use strict 'refs'; # = | return('foo'); # @7,5 # = | sub { # - | use warnings; # - | use strict 'refs'; # = | if (@_) { not ok 29 - array of subs - Expect BF ok 30 - array of subs - Expect DU # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 293) # got: 'do{ # my $ARRAY1 = [ '$ARRAY1', '$ARRAY1' ]; # $ARRAY1->[0] = $ARRAY1; # $ARRAY1->[1] = $ARRAY1; # $ARRAY1; # }' # expected: 'do{ # my $ARRAY1 = [ # sub { # use warnings; # use strict 'refs'; # return('foo'); # }, # sub { # use warnings; # use strict 'refs'; # if (@_) { # print(@_, "\n"); # } else { # print("Nothing\n"); # } # } # ]; # $ARRAY1; # }' ok 31 - array of subs - Dumper eq Dumper Eval Dumper ok 32 - array of subs - Dumper eq Dumper Eval BFDump ok 33 - array of subs - Dumper Eval BFDump eq Dumper Eval Dumper not ok 34 - array of subs - BFDump eq BFDump Eval BFDump package main; $self->Dump( $self->capture(do{ my $ARRAY1 = [ sub { use warnings; use strict 'refs'; return('foo'); }, sub { use warnings; use strict 'refs'; if (@_) { print(@_, "\n"); } else { print("Nothing\n"); } } ]; $ARRAY1; }) ,$names) ok 35 # skip Dumping subroutines. Dumper doesnt do this correctly. Invalid test. ok 36 # skip Dumping subroutines. Dumper doesnt do this correctly. Invalid test. # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 190) # got: 'do{ # my $ARRAY1 = [ # [ # sub { # use warnings; # use strict 'refs'; # return('foo'); # }, # sub { # use warnings; # use strict 'refs'; # if (@_) { # print(@_, "\n"); # } else { # print("Nothing\n"); # } # } # ], # '$ARRAY1->[0]' # ]; # $ARRAY1->[1] = $ARRAY1->[0]; # $ARRAY1; # }' # expected: 'do{ # my $ARRAY1 = [ # [ # sub { # return('foo'); # }, # sub { # if (@_) { # print(@_, "\n"); # } else { # print("Nothing\n"); # } # } # ], # { # sub1 => '$ARRAY1->[0][0]', # sub2 => '$ARRAY1->[0][1]' # } # ]; # $ARRAY1->[1]{sub1} = $ARRAY1->[0][0]; # $ARRAY1->[1]{sub2} = $ARRAY1->[0][1]; # $ARRAY1; # }' not ok 37 - double refed subs - Expect BF # -BFDump # +Expect BF # @3,3 # = | sub { # - | use warnings; # - | use strict 'refs'; # = | return('foo'); # @8,6 # = | sub { # - | use warnings; # - | use strict 'refs'; # = | if (@_) { # @17,13 # = | ], # - | '$ARRAY1->[0]' # + | { # + | sub1 => '$ARRAY1->[0][0]', # + | sub2 => '$ARRAY1->[0][1]' # + | } # = | ]; # - | $ARRAY1->[1] = $ARRAY1->[0]; # + | $ARRAY1->[1]{sub1} = $ARRAY1->[0][0]; # + | $ARRAY1->[1]{sub2} = $ARRAY1->[0][1]; # = | $ARRAY1; ok 38 - double refed subs - Expect DU # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 255) # got: '$VAR1 = [ # [ # sub { "DUMMY" }, # sub { "DUMMY" } # ], # [] # ]; # $VAR1->[1] = $VAR1->[0];' # expected: '$VAR1 = [ # [ # sub { "DUMMY" }, # sub { "DUMMY" } # ], # { # 'sub1' => do{my $o}, # 'sub2' => do{my $o} # } # ]; # $VAR1->[1]{'sub1'} = $VAR1->[0][0]; # $VAR1->[1]{'sub2'} = $VAR1->[0][1];' # package main; # # Data::Dumper->Dump( $self->capture(do{ # my $ARRAY1 = [ # [ # sub { # use warnings; # use strict 'refs'; # return('foo'); # }, # sub { # use warnings; # use strict 'refs'; # if (@_) { # print(@_, "\n"); # } else { # print("Nothing\n"); # } # } # ], # '$ARRAY1->[0]' # ]; # $ARRAY1->[1] = $ARRAY1->[0]; # $ARRAY1; # }) ,$names) # # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 284) # got: '$VAR1 = [ # [ # sub { "DUMMY" }, # sub { "DUMMY" } # ], # [] # ]; # $VAR1->[1] = $VAR1->[0];' # expected: '$VAR1 = [ # [ # sub { "DUMMY" }, # sub { "DUMMY" } # ], # { # 'sub1' => do{my $o}, # 'sub2' => do{my $o} # } # ]; # $VAR1->[1]{'sub1'} = $VAR1->[0][0]; # $VAR1->[1]{'sub2'} = $VAR1->[0][1];' # Failed test (/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Data-BFDump/blib/lib/Data/BFDump/Test.pm at line 293) # got: 'do{ # my $ARRAY1 = [ '$ARRAY1', '$ARRAY1' ]; # $ARRAY1->[0] = $ARRAY1; # $ARRAY1->[1] = $ARRAY1; # $ARRAY1; # }' # expected: 'do{ # my $ARRAY1 = [ # [ # sub { # use warnings; # use strict 'refs'; # return('foo'); # }, # sub { # use warnings; # use strict 'refs'; # if (@_) { # print(@_, "\n"); # } else { # print("Nothing\n"); # } # } # ], # '$ARRAY1->[0]' # ]; # $ARRAY1->[1] = $ARRAY1->[0]; # $ARRAY1; # }' # Looks like you failed 10 tests of 44. ok 39 - double refed subs - Dumper eq Dumper Eval Dumper not ok 40 - double refed subs - Dumper eq Dumper Eval BFDump not ok 41 - double refed subs - Dumper Eval BFDump eq Dumper Eval Dumper not ok 42 - double refed subs - BFDump eq BFDump Eval BFDump package main; $self->Dump( $self->capture(do{ my $ARRAY1 = [ [ sub { use warnings; use strict 'refs'; return('foo'); }, sub { use warnings; use strict 'refs'; if (@_) { print(@_, "\n"); } else { print("Nothing\n"); } } ], '$ARRAY1->[0]' ]; $ARRAY1->[1] = $ARRAY1->[0]; $ARRAY1; }) ,$names) ok 43 # skip Dumping subroutines. Dumper doesnt do this correctly. Invalid test. ok 44 # skip Dumping subroutines. Dumper doesnt do this correctly. Invalid test. dubious Test returned status 10 (wstat 2560, 0xa00) DIED. FAILED tests 5, 13, 21, 26, 29, 34, 37, 40-42 Failed 10/44 tests, 77.27% okay (less 10 skipped tests: 24 okay, 54.55%) Failed 5/5 test scripts, 0.00% okay. 155/273 subtests failed, 43.22% okay. Failed Test Stat Wstat Total Fail Failed List of Failed --------------------------------------------------------------------------------------------------------------------------------------- t/basic.t 255 65280 83 130 156.63% 9-10 20-83 t/dumper.t 255 65280 62 56 90.32% 4 8-9 12 16 18 20 28 39-62 t/glob.t 7 1792 18 7 38.89% 3 9-11 16-18 t/object.t 255 65280 66 80 121.21% 27-66 t/sub.t 10 2560 44 10 22.73% 5 13 21 26 29 34 37 40-42 19 subtests skipped. make: *** [test_dynamic] Error 2