epics/epics-base
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

libCom/test: Make epicsUnitTestTest.plt more Perlish

Browse Source 
Use Perl's __DATA__ stream for the expected data string.
This commit is contained in:
Andrew Johnson
2013-05-24 15:33:56 -05:00
parent 5e5ea11658
commit 7addfc8ddd
1 changed files with 16 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
src/libCom/test/epicsUnitTestTest.plt
View File

@@ -8,22 +8,24 @@ BEGIN {plan tests => 1}
my $prog = "./$0";
$prog =~ s/\.t$//;
my $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";
my $expected = join '', <main::DATA>;
$ENV{HARNESS_ACTIVE} = 1;
my $result = `$prog`;
ok($result, $expected); # test output matches
__DATA__
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