Microsoft (R) Program Maintenance Utility Version 7.00.8882 Copyright (C) Microsoft Corp 1988-2000. All rights reserved. Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Test\Command.pm Writing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Test\Command\.packlist Appending installation info to C:\cpanrun-5.8\build\5-8-0\lib/perllocal.pod od.t t\00-load.........1..1 ok 1 - use Test::Command; # Testing Test::Command 0.02, Perl 5.008, C:\cpanrun-5.8\build\5-8-0\bin\perl.exe ok t\01-funcs........1..31 ok 1 - _slurp ok 2 - _slurp - no such file ok 3 - _slurp - no args ok 4 - _build_name - string ok 5 - _build_name - defined - string ok 6 - _build_name - array ok 7 - _build_name - defined - array ok 8 - _build_name - no args ok 9 - _get_result - no args ok 10 - _run_cmd - no args ok 11 - _compare_files - no args ok 12 - _compare_files - no exp file ok 13 - _compare_files - no got file ok 14 - _compare_files - not ok ok 15 - _compare_files - diff start ok 16 - _compare_files - ok ok 17 - _compare_files - no diff start ok 18 - _compare_files - not ok ok 19 - _compare_files - diff start ok 20 - _compare_files - not ok ok 21 - _compare_files - diff start ok 22 - _compare_files - no such file - got ok 23 - _compare_files - no such file - exp ok 24 - _diff_column - no args ok 25 - _diff_column - first arg ok 26 - _diff_column - second arg ok 27 - _diff_column - eq args ok 28 - _diff_column - col 2(1) ok 29 - _diff_column - col 7(1) ok 30 - _diff_column - col 7(2) ok 31 - _diff_column - col 2(2) ok t\02-exit.........1..4 ok 1 - exit_is_num: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "exit 1", 1 ok 2 - exit_is_num: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "exit 255", 255 ok 3 - exit_isnt_num: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e 1, 2 ok 4 - exit_cmp_ok: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "exit 1", <, 2 ok t\03-stdout.......1..13 ok 1 - stdout_is_eq: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print 'foo'", foo ok 2 - stderr_is_eq: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print 'foo'", ok 3 - stdout_is_eq: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e print 'foo', foo ok 4 - stdout_is_eq: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print STDERR 'foo'", ok 5 - stdout_isnt_eq: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print 'foo'", bar ok 6 - stdout_is_num: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print 123", 123 ok 7 - stdout_isnt_num: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print 321", 123 ok 8 - stdout_like: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print 'foo'", (?-xism:fo+) ok 9 - stdout_unlike: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print 'foo'", (?-xism:fooo) ok 10 - stdout_cmp_ok: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print 1", <, 2 ok 11 - stdout_cmp_ok: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print 1", ==, 1 ok 12 - stdout_cmp_ok: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print 1", eq, 1 ok 13 - stdout_is_file: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le "print qq(foo # bar)", C:/cpanrun-5.8/depot/main/contrib-patched/perl/CPAN/src/Test-Command/t/stdout.txt ok t\04-stderr.......1..13 ok 1 - stderr_is_eq: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print STDERR 'foo'", foo ok 2 - stdout_is_eq: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print STDERR 'foo'", ok 3 - stderr_is_eq: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e print STDERR 'foo', foo ok 4 - stderr_is_eq: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print 'foo'", ok 5 - stderr_isnt_eq: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print STDERR 'foo'", bar ok 6 - stderr_is_num: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print STDERR 123", 123 ok 7 - stderr_isnt_num: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print STDERR 321", 123 ok 8 - stderr_like: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print STDERR 'foo'", (?-xism:fo+) ok 9 - stderr_unlike: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print STDERR 'foo'", (?-xism:fooo) ok 10 - stderr_cmp_ok: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print STDERR 1", <, 2 ok 11 - stderr_cmp_ok: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print STDERR 1", ==, 1 ok 12 - stderr_cmp_ok: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -e "print STDERR 1", eq, 1 ok 13 - stderr_is_file: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le "print STDERR qq(bar # foo)", C:/cpanrun-5.8/depot/main/contrib-patched/perl/CPAN/src/Test-Command/t/stderr.txt ok t\05-object.......1..26 ok 1 - defined $test_perl ok 2 - ref $test_perl ok 3 - exit_is_num: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le "print qq(foo # bar); print STDERR qq(bar # foo)", 0 ok 4 - exit_isnt_num: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le "print qq(foo # bar); print STDERR qq(bar # foo)", 1 ok 5 - exit_cmp_ok: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le "print qq(foo # bar); print STDERR qq(bar # foo)", <, 1 ok 6 - stdout_is_eq: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le "print qq(foo # bar); print STDERR qq(bar # foo)", foo # bar # ok 7 - stdout_isnt_eq: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le "print qq(foo # bar); print STDERR qq(bar # foo)", bar # foo # ok 8 - stdout_is_num: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le "print qq(foo # bar); print STDERR qq(bar # foo)", 0 ok 9 - stdout_isnt_num: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le "print qq(foo # bar); print STDERR qq(bar # foo)", 1 ok 10 - stdout_like: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le "print qq(foo # bar); print STDERR qq(bar # foo)", (?i-xsm:foo\nBAR) ok 11 - stdout_unlike: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le "print qq(foo # bar); print STDERR qq(bar # foo)", (?-xism:foo\nBAR) ok 12 - stdout_cmp_ok: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le "print qq(foo # bar); print STDERR qq(bar # foo)", ne, bar # foo # ok 13 - stdout_is_file: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le "print qq(foo # bar); print STDERR qq(bar # foo)", C:/cpanrun-5.8/depot/main/contrib-patched/perl/CPAN/src/Test-Command/t/stdout.txt ok 14 - stderr_is_eq: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le "print qq(foo # bar); print STDERR qq(bar # foo)", bar # foo # ok 15 - stderr_isnt_eq: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le "print qq(foo # bar); print STDERR qq(bar # foo)", foo # bar # ok 16 - stderr_is_num: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le "print qq(foo # bar); print STDERR qq(bar # foo)", 0 ok 17 - stderr_isnt_num: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le "print qq(foo # bar); print STDERR qq(bar # foo)", 1 ok 18 - stderr_like: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le "print qq(foo # bar); print STDERR qq(bar # foo)", (?i-xsm:BAR\nFOO) ok 19 - stderr_unlike: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le "print qq(foo # bar); print STDERR qq(bar # foo)", (?-xism:BAR\nFOO) ok 20 - stderr_cmp_ok: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le "print qq(foo # bar); print STDERR qq(bar # foo)", ne, foo # bar # ok 21 - stderr_is_file: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le "print qq(foo # bar); print STDERR qq(bar # foo)", C:/cpanrun-5.8/depot/main/contrib-patched/perl/CPAN/src/Test-Command/t/stderr.txt ok 22 - defined $test_perl ok 23 - ref $test_perl ok 24 - exit_is_num: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le print qq(foo\nbar); print STDERR qq(bar\nfoo), 0 ok 25 - stdout_is_eq: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le print qq(foo\nbar); print STDERR qq(bar\nfoo), foo # bar # ok 26 - stderr_is_eq: C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -le print qq(foo\nbar); print STDERR qq(bar\nfoo), bar # foo # ok t\pod-coverage....1..1 ok 1 - Pod coverage on Test::Command ok t\pod.............1..1 ok 1 - blib\lib\Test\Command.pm ok All tests successful. Files=8, Tests=90, 2 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU)