Microsoft (R) Program Maintenance Utility Version 7.00.8882 Copyright (C) Microsoft Corp 1988-2000. All rights reserved. C:\cpanrun-5.8\build\5-8-0\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib\lib', 'blib\arch')" t\basic.t t\dumper.t t\glob.t t\object.t t\sub.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 ok 5 - Empty Hash ok 6 - String ok 7 - undef ok 8 - undef2 ok 9 - 1..10 ok 10 - A..G ok 11 - Returns 0 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 REF isn't implemented yet?.. at C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Data-BFDump\blib\lib/Data/BFDump.pm line 860. # 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 20-83 Failed 64/83 tests, 22.89% okay t\dumper....1..62 ok 1 - use Data::BFDump::Test; ok 2 - The object isa Data::BFDump # Failed test (C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Data-BFDump\blib\lib/Data/BFDump/Test.pm at line 203) # 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'};' ok 3 - Named Vars Self Ref - Expect BF not ok 4 - Named Vars Self Ref - Expect DU # -Dumper # +Expect DU # @2,2 # = | { # + | 'a' => [], # + | 'b' => {}, # = | 'c' => [ # = | 'c' # - | ], # - | 'a' => [], # - | 'b' => {} # + | ] # = | }, 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 ok 8 - Named Vars Self Ref - BFDump eq BFDump Eval BFDump ok 9 - Named Vars Self Ref - BFDump eq BFDump Eval Dumper ok 10 - Named Vars Self Ref - BFDump Eval BFDump eq BFDump Eval Dumper ok 11 - (@a) Named Vars Self Ref - Expect BF not ok 12 - (@a) Named Vars Self Ref - Expect DU # Failed test (C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Data-BFDump\blib\lib/Data/BFDump/Test.pm at line 203) # 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' => {} # + | ] # = | }, 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 ok 16 - (@a) Named Vars Self Ref - BFDump eq BFDump Eval BFDump ok 17 - (@a) Named Vars Self Ref - BFDump eq BFDump Eval Dumper ok 18 - (@a) Named Vars Self Ref - BFDump Eval BFDump eq BFDump Eval Dumper ok 19 - (%b) Named Base Vars Self Ref - Expect BF not ok 20 - (%b) Named Base Vars Self Ref - Expect DU # Failed test (C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Data-BFDump\blib\lib/Data/BFDump/Test.pm at line 203) # 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' => {} # + | ] # = | }, ok 21 # skip Broken Dumper? - Dumper eq Dumper Eval Dumper # 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 22 - (%b) Named Base Vars Self Ref - Dumper eq Dumper Eval BFDump # Cool! Data::Dumper didnt get this one. 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 not ok 28 - (@a,%b) Named Base Vars Self Ref - Expect DU # Failed test (C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Data-BFDump\blib\lib/Data/BFDump/Test.pm at line 203) # 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' => {} # + | ] # = | }, ok 29 # skip Broken Dumper? - Dumper eq Dumper Eval Dumper # 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 30 - (@a,%b) Named Base Vars Self Ref - Dumper eq Dumper Eval BFDump # Cool! Data::Dumper didnt get this one. 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 C:\cpanrun-5.8\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, 12, 20, 28, 39-62 Failed 28/62 tests, 54.84% okay (less 9 skipped tests: 25 okay, 40.32%) t\glob......1..18 ok 1 - use Data::BFDump::Test; ok 2 - The object isa Data::BFDump # Failed test (C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Data-BFDump\blib\lib/Data/BFDump/Test.pm at line 190) # got: 'do{ # *::Glob = {}; # *::Glob = []; # *::Glob = \do { my $itm = 'This is a glob' }; # *main::Glob; # }' # expected: 'do{ # *::Glob = []; # *::Glob = \do { my $itm = 'This is a glob' }; # *::Glob = {}; # *main::Glob; # }' # -BFDump # +Expect BF # @0,0 # = |do{ # - | *::Glob = {}; # = | *::Glob = []; # = | *::Glob = \do { my $itm = 'This is a glob' }; # + | *::Glob = {}; # = | *main::Glob; not ok 3 - simple glob - Expect BF ok 4 - simple glob - Expect DU 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 ok 9 - simple glob - BFDump eq BFDump Eval Dumper ok 10 - simple glob - BFDump Eval BFDump eq BFDump Eval Dumper not ok 11 - Less simple glob - Expect BF # Failed test (C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Data-BFDump\blib\lib/Data/BFDump/Test.pm at line 190) # got: 'do{ # *::Glob = {}; # *::Glob = [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 ]; # *::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 = [ 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 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 # Looks like you failed 2 tests of 18. ok 16 - Less simple glob - BFDump eq BFDump Eval BFDump ok 17 - Less simple glob - BFDump eq BFDump Eval Dumper ok 18 - Less simple glob - BFDump Eval BFDump eq BFDump Eval Dumper dubious Test returned status 2 (wstat 512, 0x200) DIED. FAILED tests 3, 11 Failed 2/18 tests, 88.89% 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 # Looks like you planned 66 tests but only ran 26. # Looks like your test died just after 26. 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 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 (C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Data-BFDump\blib\lib/Data/BFDump/Test.pm at line 190) not ok 5 - simple sub - Expect BF # 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'); 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 (C:\cpanrun-5.8\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"); # } # }' not ok 13 - less simple sub - Expect BF # -BFDump # +Expect BF # @0,0 # = |sub { # - | use warnings; # - | use strict 'refs'; # = | if (@_) { 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 (C:\cpanrun-5.8\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; # }' not ok 21 - hash of subs - Expect BF # -BFDump # +Expect BF # @2,2 # = | sub1 => sub { # - | use warnings; # - | use strict 'refs'; # = | return('foo'); # @7,5 # = | sub2 => sub { # - | use warnings; # - | use strict 'refs'; # = | if (@_) { ok 22 - hash of subs - Expect DU 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 ok 26 - hash of subs - BFDump eq BFDump Eval BFDump 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 (C:\cpanrun-5.8\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; # }' not ok 29 - array of subs - Expect BF # -BFDump # +Expect BF # @2,2 # = | sub { # - | use warnings; # - | use strict 'refs'; # = | return('foo'); # @7,5 # = | sub { # - | use warnings; # - | use strict 'refs'; # = | if (@_) { ok 30 - array of subs - Expect DU 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 ok 34 - array of subs - BFDump eq BFDump Eval BFDump 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 (C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Data-BFDump\blib\lib/Data/BFDump/Test.pm at line 190) not ok 37 - double refed subs - Expect BF # 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"); # } # } # ], # { # sub1 => '$ARRAY1->[0][0]', # sub2 => '$ARRAY1->[0][1]' # } # ]; # $ARRAY1->[1]{sub1} = $ARRAY1->[0][0]; # $ARRAY1->[1]{sub2} = $ARRAY1->[0][1]; # $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; # }' # -BFDump # +Expect BF # @3,3 # = | sub { # - | use warnings; # - | use strict 'refs'; # = | return('foo'); # @8,6 # = | sub { # - | use warnings; # - | use strict 'refs'; # = | if (@_) { ok 38 - double refed subs - Expect DU ok 39 - double refed subs - Dumper eq Dumper Eval Dumper ok 40 - double refed subs - Dumper eq Dumper Eval BFDump ok 41 - double refed subs - Dumper Eval BFDump eq Dumper Eval Dumper ok 42 - double refed subs - BFDump eq BFDump Eval BFDump # Looks like you failed 5 tests of 44. 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 5 (wstat 1280, 0x500) DIED. FAILED tests 5, 13, 21, 29, 37 Failed 5/44 tests, 88.64% okay (less 10 skipped tests: 29 okay, 65.91%) Failed 5/5 test scripts, 0.00% okay. 139/273 subtests failed, 49.08% okay. Failed Test Stat Wstat Total Fail Failed List of Failed ------------------------------------------------------------------------------- t\basic.t 255 65280 83 64 77.11% 20-83 t\dumper.t 255 65280 62 28 45.16% 4 12 20 28 39-62 t\glob.t 2 512 18 2 11.11% 3 11 t\object.t 255 65280 66 40 60.61% 27-66 t\sub.t 5 1280 44 5 11.36% 5 13 21 29 37 19 subtests skipped. NMAKE : fatal error U1077: 'C:\cpanrun-5.8\build\5-8-0\bin\perl.exe' : return code '0x2' Stop.