Possible fix for Win32, CR+LF in lines output by unitTest code.
This commit is contained in:
@@ -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`;
|
||||
|
||||
Reference in New Issue
Block a user