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\chomp.t t\errors.t t\filehandle.t t\filename.t t\ioderfile.t t\iofile.t t\ipc.t t\irs.t t\layers.t t\lexfilehandle.t t\string.t t\chomp............ok 1 - use Perl6::Slurp; ok 2 - scalar slurp no chomp ok 3 - list slurp no chomp ok 4 - scalar slurp with chomp ok 5 - list slurp with chomp ok 6 - scalar slurp with chomp and :irs("\n") ok 7 - list slurp with chomp :irs("\n") ok 8 - scalar slurp with chomp :irs("\n\n") ok 9 - list slurp with chomp :irs("\n\n") ok 10 - scalar slurp with chomp :irs(undef) ok 11 - list slurp with chomp :irs(undef) ok 12 - scalar slurp with chomp :irs('ne') ok 13 - list slurp with chomp :irs('ne') ok 14 - scalar slurp with chomp :irs(qr/\n+|3/) ok 15 - list slurp with chomp :irs(qr/\n+|3/) ok 16 - scalar slurp with substitution chomp ok 17 - list slurp with substitution chomp ok 18 - scalar slurp with substitution chomp and :irs("\n") ok 19 - list slurp with substitution chomp :irs("\n") ok 20 - scalar slurp with substitution chomp :irs("\n\n") ok 21 - list slurp with substitution chomp :irs("\n\n") ok 22 - scalar slurp with substitution chomp :irs(undef) ok 23 - list slurp with substitution chomp :irs(undef) ok 24 - scalar slurp with substitution chomp :irs('ne') ok 25 - list slurp with substitution chomp :irs('ne') ok 26 - scalar slurp with substitution chomp :irs(qr/\n+|3/) ok 27 - list slurp with substitution chomp :irs(qr/\n+|3/) 1..27 ok t\errors...........ok 1 - use Perl6::Slurp; ok 2 - can't slurp in void context ok 3 - shouldn't be able to slurp non-existent file ok 4 - shouldn't be able to read from unreadable filehandle 1..4 ok t\filehandle.......ok 1 - use Perl6::Slurp; ok 2 - scalar slurp from filehandle ok 3 - list slurp from filehandle ok 4 - scalar slurp from '<', filehandle ok 5 - scalar slurp from empty filehandle ok 6 - list slurp from '<', filehandle ok 7 - list slurp from empty filehandle ok 8 - scalar slurp from '+<', filehandle ok 9 - scalar slurp from empty filehandle ok 10 - list slurp from '+<', filehandle ok 11 - list slurp from empty filehandle 1..11 ok t\filename.........ok 1 - use Perl6::Slurp; ok 2 - scalar slurp from 'data' in main ok 3 - list slurp from 'data' in main ok 4 - scalar slurp from '