Possible fix for Win32, CR+LF in lines output by unitTest code.

This commit is contained in:
Andrew Johnson
2007-11-06 23:36:25 +00:00
parent 26339cdbed
commit 892c305cc5

View File

@@ -5,21 +5,19 @@ use Test::Simple tests => 1;
$prog = "./$0";
$prog =~ s/\.t$//;
$expected = << 'END';
1..11
ok 1 - testOk(1)
not ok 2 - testOk(0)
ok 3 - testPass()
not ok 4 - testFail()
ok 5 # SKIP Skipping two
ok 6 # SKIP Skipping two
ok 7 - Todo pass # TODO Testing Todo
not ok 8 - Todo fail # TODO Testing Todo
ok 9 # SKIP Todo skip
ok 10 - testOk1_success
not ok 11 - testOk1_failure
# Diagnostic
END
$expected = "1..11\n" .
"ok 1 - testOk(1)\n" .
"not ok 2 - testOk(0)\n" .
"ok 3 - testPass()\n" .
"not ok 4 - testFail()\n" .
"ok 5 # SKIP Skipping two\n" .
"ok 6 # SKIP Skipping two\n" .
"ok 7 - Todo pass # TODO Testing Todo\n" .
"not ok 8 - Todo fail # TODO Testing Todo\n" .
"ok 9 # SKIP Todo skip\n" .
"ok 10 - testOk1_success\n" .
"not ok 11 - testOk1_failure\n" .
"# Diagnostic\n";
$ENV{HARNESS_ACTIVE} = 1;
$result = `$prog`;