From 7addfc8ddd2657be0d19a97ed1e40ffbcb6b894a Mon Sep 17 00:00:00 2001 From: Andrew Johnson Date: Fri, 24 May 2013 15:33:56 -0500 Subject: [PATCH] libCom/test: Make epicsUnitTestTest.plt more Perlish Use Perl's __DATA__ stream for the expected data string. --- src/libCom/test/epicsUnitTestTest.plt | 30 ++++++++++++++------------- 1 file changed, 16 insertions(+), 14 deletions(-) diff --git a/src/libCom/test/epicsUnitTestTest.plt b/src/libCom/test/epicsUnitTestTest.plt index 9b8f3e1c9..1cb9e0c1b 100644 --- a/src/libCom/test/epicsUnitTestTest.plt +++ b/src/libCom/test/epicsUnitTestTest.plt @@ -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 '', ; $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