#!/usr/bin/perl

use Test::Simple tests => 1;

$prog = $0;
$prog =~ s/\.t$//;

$expected = << 'END';
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
END

$ENV{HARNESS_ACTIVE} = 1;
$result = `$prog`;

ok($result eq $expected, 'test output matches');