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, 'inc', 'blib\lib', 'blib\arch')" t\absolute.t t\accept.t t\all.t t\all2.t t\assert.t t\assert2.t t\autotie.t t\backwards.t t\chdir.t t\chomp.t t\construct.t t\dbm.t t\devnull.t t\empty.t t\encoding.t t\error1.t t\file_spec.t t\file_subclass.t t\fileno.t t\import_flags.t t\inline_subclass.t t\input.t t\link.t t\link2.t t\lock.t t\mldbm.t t\new.t t\overload.t t\pipe.t t\print.t t\println.t t\read.t t\read_write.t t\round_robin.t t\scalar.t t\seek.t t\separator.t t\stat.t t\string_open.t t\subtleties.t t\synopsis1.t t\synopsis2.t t\synopsis3.t t\synopsis5.t t\tie.t t\tie_file.t t\xxx.t t\absolute...........1..3 ok 1 ok 2 ok 3 ok t\accept.............1..20 ok 1 - Checking for validity of sock No. 1 ok 2 - Checking for connection No. 1. ok 3 - Checking for validity of sock No. 2 ok 4 - Checking for connection No. 2. ok 5 - Checking for validity of sock No. 3 ok 6 - Checking for connection No. 3. ok 7 - Checking for validity of sock No. 4 ok 8 - Checking for connection No. 4. ok 9 - Checking for validity of sock No. 5 ok 10 - Checking for connection No. 5. ok 11 - Checking for validity of sock No. 6 ok 12 - Checking for connection No. 6. ok 13 - Checking for validity of sock No. 7 ok 14 - Checking for connection No. 7. ok 15 - Checking for validity of sock No. 8 ok 16 - Checking for connection No. 8. ok 17 - Checking for validity of sock No. 9 ok 18 - Checking for connection No. 9. ok 19 - Checking for validity of sock No. 10 ok 20 - Checking for connection No. 10. ok t\all................1..30 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 ok 15 ok 16 ok 17 ok 18 ok 19 ok 20 ok 21 ok 22 ok 23 ok 24 ok 25 ok 26 ok 27 ok 28 ok 29 ok 30 ok t\all2...............1..2 ok 1 ok 2 ok t\assert.............1..4 ok 1 ok 2 ok 3 ok 4 ok t\assert2............1..4 ok 1 ok 2 ok 3 # skip requires MLDBM ok 4 # skip requires MLDBM ok 2/4 skipped: requires MLDBM t\autotie............1..5 ok 1 ok 2 ok 3 ok 4 ok 5 ok t\backwards..........1..0 # Skip requires File::ReadBackwards skipped all skipped: requires File::ReadBackwards t\chdir..............1..2 ok 1 ok 2 ok t\chomp..............ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 ok 15 ok 16 ok 17 ok 18 ok 19 ok 20 ok 21 ok 22 ok 23 ok 24 1..24 ok t\construct..........1..18 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 not ok 12 # Failed test (t/IO_All_Test.pm at line 16) # got: 'use lib 't', 'lib'; # use strict; # use warnings; # use Test::More tests => 18; # use IO::All; # use IO_All_Test; # # my $io1 = IO::All->new('t/mystuff'); # is(ref($io1), 'IO::All::File'); # test_file_contents($$io1, 't/mystuff'); # # my $io2 = io('t/mystuff'); # is(ref($io2), 'IO::All::File'); # test_file_contents($$io2, 't/mystuff'); # # my $io3 = io->file('t/mystuff'); # is(ref($io3), 'IO::All::File'); # test_file_contents($$io3, 't/mystuff'); # # my $io4 = $io3->file('t/construct.t'); # is(ref($io4), 'IO::All::File'); # test_file_contents($$io4, 't/construct.t'); # # my $io5 = io->dir('t/mydir'); # is(ref($io5), 'IO::All::Dir'); # is(join('+', map $_->filename, grep {! /CVS|\.svn/} $io5->all), 'dir1+dir2+file1+file2+file3'); # # my $io6 = io->rdonly->new->file('t/construct.t'); # ok($io6->_rdonly); # # SKIP: { # eval {require Tie::File}; # skip "requires Tie::File", 1 if $@; # # test_file_contents(join('', map {"$_\n"} @$io6), 't/construct.t'); # } # # my $io7 = io->socket('foo.com:80')->get_socket_domain_port; # ok($io7->is_socket); # is($io7->domain, 'foo.com'); # is($io7->port, '80'); # # my $io8 = io(':8000')->get_socket_domain_port; # ok($io8->is_socket); # is($io8->domain, 'localhost'); # is($io8->port, '8000'); # ' # expected: 'use lib 't', 'lib'; # use strict; # use warnings; # use Test::More tests => 18; # use IO::All; # use IO_All_Test; # # my $io1 = IO::All->new('t/mystuff'); # is(ref($io1), 'IO::All::File'); # test_file_contents($$io1, 't/mystuff'); # # my $io2 = io('t/mystuff'); # is(ref($io2), 'IO::All::File'); # test_file_contents($$io2, 't/mystuff'); # # my $io3 = io->file('t/mystuff'); # is(ref($io3), 'IO::All::File'); # test_file_contents($$io3, 't/mystuff'); # # my $io4 = $io3->file('t/construct.t'); # is(ref($io4), 'IO::All::File'); # test_file_contents($$io4, 't/construct.t'); # # my $io5 = io->dir('t/mydir'); # is(ref($io5), 'IO::All::Dir'); # is(join('+', map $_->filename, grep {! /CVS|\.svn/} $io5->all), 'dir1+dir2+file1+file2+file3'); # # my $io6 = io->rdonly->new->file('t/construct.t'); # ok($io6->_rdonly); # # SKIP: { # eval {require Tie::File}; # skip "requires Tie::File", 1 if $@; # # test_file_contents(join('', map {"$_\n"} @$io6), 't/construct.t'); # } # # my $io7 = io->socket('foo.com:80')->get_socket_domain_port; # ok($io7->is_socket); # is($io7->domain, 'foo.com'); # is($io7->port, '80'); # # my $io8 = io(':8000')->get_socket_domain_port; # ok($io8->is_socket); # is($io8->domain, 'localhost'); # is($io8->port, '8000'); # ' ok 13 ok 14 ok 15 # Looks like you failed 1 tests of 18. ok 16 ok 17 ok 18 dubious Test returned status 1 (wstat 256, 0x100) DIED. FAILED test 12 Failed 1/18 tests, 94.44% okay t\dbm................1..2 ok 1 ok 2 ok t\devnull............1..2 ok 1 ok 2 ok t\empty..............1..5 ok 1 ok 2 ok 3 ok 4 ok 5 ok t\encoding...........1..2 ok 1 - Read big5 with different io-s does not match ok 2 - Big5 text matches utf8 text after read ok t\error1.............1..2 ok 1 ok 2 ok t\file_spec..........1..27 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 ok 15 ok 16 ok 17 ok 18 ok 19 ok 20 # Failed test (t\file_spec.t at line 39) # got: 'doo\foo\goo\hoo' # expected: 'doo\foo\goo\hoo' # Failed test (t\file_spec.t at line 40) # got: 'goo\hoo' # expected: 'goo\hoo' # Failed test (t\file_spec.t at line 41) # got: 'goo\hoo' # expected: 'goo\hoo' # Failed test (t\file_spec.t at line 43) # got: 'doo\foo\goo\hoo' # expected: 'doo\foo\goo\hoo' # Failed test (t\file_spec.t at line 44) # got: 'goo\hoo' # expected: 'goo\hoo' # Failed test (t\file_spec.t at line 45) # got: 'goo\hoo' # expected: 'goo\hoo' # Looks like you failed 6 tests of 27. ok 21 not ok 22 not ok 23 not ok 24 not ok 25 not ok 26 not ok 27 dubious Test returned status 6 (wstat 1536, 0x600) DIED. FAILED tests 22-27 Failed 6/27 tests, 77.78% okay t\file_subclass......1..5 ok 1 ok 2 ok 3 ok 4 ok 5 ok t\fileno.............1..0 # Skip Broken on older perls skipped all skipped: Broken on older perls t\import_flags.......1..16 ok 1 - io is exported to One ok 2 - io is exported to Two ok 3 - io is exported to Three ok 4 - io is exported to Four ok 5 - strict flag set on object 1 ok 6 - utf8 flag not set on object 1 ok 7 - strict flag not set on object 2 ok 8 - utf8 flag set on object 2 ok 9 - strict flag set on object 3 ok 10 - utf8 flag set on object 3 ok 11 - -foo flag causes error ok 12 - catfile name is correct ok 13 - strict flag not set on object 2b (propagated from 2) ok 14 - utf8 flag set on object 2b (propagated from 2) ok 15 - strict flag not set on object 2c (propagated from 2) ok 16 - utf8 flag set on object 2c (propagated from 2) ok t\inline_subclass....1..5 ok 1 ok 2 ok 3 ok 4 ok 5 ok t\input..............1..12 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 # Failed test (t/IO_All_Test.pm at line 16) not ok 7 # got: 'use lib 't', 'lib'; # use strict; # use warnings; # use Test::More tests => 12; # use IO::All; # use IO_All_Test; # # io('t/input.t') > my $contents; # test_file_contents($contents, 't/input.t'); # # $contents < io 't/input.t'; # test_file_contents($contents, 't/input.t'); # # my $io = io 't/input.t'; # $contents = $$io; # test_file_contents($contents, 't/input.t'); # # $contents = $io->slurp; # test_file_contents($contents, 't/input.t'); # # $contents = $io->scalar; # test_file_contents($contents, 't/input.t'); # # $contents = join '', $io->getlines; # test_file_contents($contents, 't/input.t'); # # SKIP: { # eval {require Tie::File}; # skip "requires Tie::File", 2 if $@; # # $io->rdonly; # $contents = join '', map "$_\n", @$io; # test_file_contents($contents, 't/input.t'); # $io->close; # # $io->tie; # $contents = join '', <$io>; # test_file_contents($contents, 't/input.t'); # } # # my @lines = io('t/input.t')->slurp; # ok(@lines > 36); # test_file_contents(join('', @lines), 't/input.t'); # # my $old_contents = $contents; # $contents << io('t/input.t'); # is($contents, $old_contents . $old_contents); # # is(io('t/input.t') >> $contents, ($old_contents x 3)); # ' # expected: 'use lib 't', 'lib'; # use strict; # use warnings; # use Test::More tests => 12; # use IO::All; # use IO_All_Test; # # io('t/input.t') > my $contents; # test_file_contents($contents, 't/input.t'); # # $contents < io 't/input.t'; # test_file_contents($contents, 't/input.t'); # # my $io = io 't/input.t'; # $contents = $$io; # test_file_contents($contents, 't/input.t'); # # $contents = $io->slurp; # test_file_contents($contents, 't/input.t'); # # $contents = $io->scalar; # test_file_contents($contents, 't/input.t'); # # $contents = join '', $io->getlines; # test_file_contents($contents, 't/input.t'); # # SKIP: { # eval {require Tie::File}; # skip "requires Tie::File", 2 if $@; # # $io->rdonly; # $contents = join '', map "$_\n", @$io; # test_file_contents($contents, 't/input.t'); # $io->close; # # $io->tie; # $contents = join '', <$io>; # test_file_contents($contents, 't/input.t'); # } # # my @lines = io('t/input.t')->slurp; # ok(@lines > 36); # test_file_contents(join('', @lines), 't/input.t'); # # my $old_contents = $contents; # $contents << io('t/input.t'); # is($contents, $old_contents . $old_contents); # # is(io('t/input.t') >> $contents, ($old_contents x 3)); # ' ok 8 ok 9 ok 10 ok 11 ok 12 # Looks like you failed 1 tests of 12. dubious Test returned status 1 (wstat 256, 0x100) DIED. FAILED test 7 Failed 1/12 tests, 91.67% okay t\link...............1..0 # Skip Cannot call symlink on this platform skipped all skipped: Cannot call symlink on this platform t\link2..............1..0 # Skip Cannot call symlink on this platform skipped all skipped: Cannot call symlink on this platform t\lock...............1..3 ok 1 ok 2 ok 3 ok t\mldbm..............1..0 # Skip requires MLDBM skipped all skipped: requires MLDBM t\new................1..4 ok 1 - string passed to io() is returned as a file ok 2 - name() is the same as the string ok 3 - IO::All::File object passed to io() is returned as a file ok 4 - name() is the same as the original string ok t\overload...........1..23 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 ok 15 ok 16 ok 17 ok 18 ok 19 ok 20 ok 21 ok 22 ok 23 ok t\pipe...............1..4 ok 1 ok 2 ok 3 ok 4 ok t\print..............1..2 ok 1 ok 2 ok t\println............1..1 ok 1 ok t\read...............1..8 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok t\read_write.........1..2 ok 1 ok 2 ok t\round_robin........1..9 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok t\scalar.............1..2 ok 1 ok 2 ok t\seek...............1..1 # Failed test (t\seek.t at line 11) # got: ' quite enough. # ' # expected: 'quite enough. # ' not ok 1 # Looks like you failed 1 tests of 1. dubious Test returned status 1 (wstat 256, 0x100) DIED. FAILED test 1 Failed 1/1 tests, 0.00% okay t\separator..........1..4 ok 1 ok 2 ok 3 ok 4 ok t\stat...............1..14 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 ok t\string_open........1..1 Can't find a class for method 'string' at t\string_open.t line 8 # No tests run! dubious Test returned status 255 (wstat 65280, 0xff00) DIED. FAILED test 1 Failed 1/1 tests, 0.00% okay t\subtleties.........1..7 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok t\synopsis1..........1..6 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok t\synopsis2..........1..10 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok t\synopsis3..........1..0 # Skip requires IO::String skipped all skipped: requires IO::String t\synopsis5..........1..3 ok 1 ok 2 ok 3 ok t\tie................1..1 ok 1 ok t\tie_file...........1..2 # Failed test (t\tie_file.t at line 15) # got: 'bar ' # expected: 'bar' not ok 1 # Failed test (t\tie_file.t at line 16) # got: 'foo ' # expected: 'foo' not ok 2 # Looks like you failed 2 tests of 2. dubious Test returned status 2 (wstat 512, 0x200) DIED. FAILED tests 1-2 Failed 2/2 tests, 0.00% okay t\xxx................1..1 Can't locate IO/String.pm in @INC (@INC contains: t lib C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\IO-All\inc C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\IO-All\blib\lib C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\IO-All\blib\arch C:/cpanrun-5.8/build/5-8-0/lib C:/cpanrun-5.8/build/5-8-0/site/lib .) at lib/IO/All/String.pm line 5. BEGIN failed--compilation aborted at lib/IO/All/String.pm line 5. Compilation failed in require at t\xxx.t line 8. BEGIN failed--compilation aborted at t\xxx.t line 8. dubious Test returned status 2 (wstat 512, 0x200) DIED. FAILED test 1 Failed 1/1 tests, 0.00% okay Failed 7/47 test scripts, 85.11% okay. 13/298 subtests failed, 95.64% okay. Failed Test Stat Wstat Total Fail Failed List of Failed ------------------------------------------------------------------------------- t\construct.t 1 256 18 1 5.56% 12 t\file_spec.t 6 1536 27 6 22.22% 22-27 t\input.t 1 256 12 1 8.33% 7 t\seek.t 1 256 1 1 100.00% 1 t\string_open.t 255 65280 1 1 100.00% 1 t\tie_file.t 2 512 2 2 100.00% 1-2 t\xxx.t 2 512 1 1 100.00% 1 6 tests and 2 subtests skipped. NMAKE : fatal error U1077: 'C:\cpanrun-5.8\build\5-8-0\bin\perl.exe' : return code '0x2' Stop.