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 '', <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