30 lines
652 B
Prolog
30 lines
652 B
Prolog
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use Test;
|
|
|
|
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";
|
|
|
|
$ENV{HARNESS_ACTIVE} = 1;
|
|
my $result = `$prog`;
|
|
|
|
ok($result, $expected); # test output matches
|