3c99391d93
In some cases the license-identification header was missing, so I added that as well. Replaced the remaining headers that specifically identified "Versions 3.13.7 and higher". Makefiles and the build system were deliberately excluded.
37 lines
872 B
Prolog
37 lines
872 B
Prolog
#!/usr/bin/perl
|
|
#*************************************************************************
|
|
# SPDX-License-Identifier: EPICS
|
|
# EPICS BASE is distributed subject to a Software License Agreement found
|
|
# in file LICENSE that is included with this distribution.
|
|
#*************************************************************************
|
|
|
|
use strict;
|
|
use Test;
|
|
|
|
BEGIN {plan tests => 1}
|
|
|
|
my $prog = "./$0";
|
|
$prog =~ s/\.t$//;
|
|
|
|
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
|