Checking if your kit is complete... Looks good Writing Makefile for IO::All Microsoft (R) Program Maintenance Utility Version 6.00.8168.0 Copyright (C) Microsoft Corp 1988-1998. All rights reserved. cp lib/IO/All/String.pm blib\lib\IO\All\String.pm cp lib/IO/All/Link.pm blib\lib\IO\All\Link.pm cp lib/IO/All/Socket.pm blib\lib\IO\All\Socket.pm cp lib/IO/All/Temp.pm blib\lib\IO\All\Temp.pm cp lib/IO/All/Pipe.pm blib\lib\IO\All\Pipe.pm cp lib/IO/All.pm blib\lib\IO\All.pm cp lib/IO/All/Base.pm blib\lib\IO\All\Base.pm cp lib/IO/All/DBM.pm blib\lib\IO\All\DBM.pm cp lib/IO/All/Dir.pm blib\lib\IO\All\Dir.pm cp lib/IO/All.pod blib\lib\IO\All.pod cp lib/IO/All/File.pm blib\lib\IO\All\File.pm cp lib/IO/All/MLDBM.pm blib\lib\IO\All\MLDBM.pm cp lib/IO/All/Filesys.pm blib\lib\IO\All\Filesys.pm cp lib/IO/All/STDIO.pm blib\lib\IO\All\STDIO.pm Microsoft (R) Program Maintenance Utility Version 6.00.8168.0 Copyright (C) Microsoft Corp 1988-1998. All rights reserved. C:\cpanrun\build\5-10-0\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(1, 'inc', 'blib\lib', 'blib\arch')" t/*.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 ok 4 ok 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 # Failed test at t/IO_All_Test.pm 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'); # ' not ok 12 ok 13 ok 14 ok 15 ok 16 ok 17 ok 18 # Looks like you failed 1 test of 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 ok 21 ok 22 ok 23 ok 24 ok 25 ok 26 ok 27 ok t/file_subclass......1..5 ok 1 ok 2 ok 3 ok 4 ok 5 ok t/fileno.............1..7 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 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 at t/IO_All_Test.pm 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 test 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..4 ok 1 ok 2 ok 3 ok 4 ok 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 at t/seek.t line 11. not ok 1 # got: ' quite enough. # ' # expected: 'quite enough. # ' # Looks like you failed 1 test 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 ok 1 - Don't create new string object with each write ok 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..3 ok 1 ok 2 ok 3 ok 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 at t/tie_file.t line 15. not ok 1 # got: 'bar ' # expected: 'bar' # Failed test at t/tie_file.t line 16. not ok 2 # got: 'foo ' # expected: 'foo' # 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 ok 1 - Don't ship with XXX ok Failed Test Stat Wstat Total Fail List of Failed ------------------------------------------------------------------------------- t/construct.t 1 256 18 1 12 t/input.t 1 256 12 1 7 t/seek.t 1 256 1 1 1 t/tie_file.t 2 512 2 2 1-2 3 tests skipped. Failed 4/47 test scripts. 5/312 subtests failed. Files=47, Tests=312, 18 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU) Failed 4/47 test programs. 5/312 subtests failed. NMAKE : fatal error U1077: 'C:\cpanrun\build\5-10-0\bin\perl.exe' : return code '0xff' Stop.