sub ... {
    my ($pkg,$file,$line) = caller($TestLevel);
    my $repetition = ++$history{"$file:$line"};
    my $context = ("$file at line $line".
                   ($repetition > 1 ? " fail \#$repetition" : ''));
    my $ok=0;
    my $result = to_value(shift);
    my ($expected,$diag);
    if (@_ == 0) {
        $ok = $result;
    } else {
        $expected = to_value(shift);
        my ($regex,$ignore);
        if (!defined $expected) {
            $ok = !defined $result;
        } elsif (!defined $result) {
            $ok = 0;
        } elsif ((ref($expected)||'') eq 'Regexp') {
            $ok = $result =~ /$expected/;
        } elsif (($regex) = ($expected =~ m,^ / (.+) / $,sx) or
            ($ignore, $regex) = ($expected =~ m,^ m([^\w\s]) (.+) \1 $,sx)) {
            $ok = $result =~ /$regex/;
        } else {
            $ok = $result eq $expected;
        }
    }
    my $todo = $todo{$ntest};
    if ($todo and $ok) {
        $context .= ' TODO?!' if $todo;
        print $TESTOUT "ok $ntest # ($context)\n";
    } else {
        print $TESTOUT "not " if !$ok;
        print $TESTOUT "ok $ntest\n";
        
        if (!$ok) {
            my $detail = { 'repetition' => $repetition, 'package' => $pkg,
                           'result' => $result, 'todo' => $todo };
            $$detail{expected} = $expected if defined $expected;
            $diag = $$detail{diagnostic} = to_value(shift) if @_;
            $context .= ' *TODO*' if $todo;
            if (!defined $expected) {
                if (!$diag) {
                    print $TESTOUT "# Failed test $ntest in $context\n";
                } else {
                    print $TESTOUT "# Failed test $ntest in $context: $diag\n";
                }
            } else {
                my $prefix = "Test $ntest";
                print $TESTOUT "# $prefix got: ".
                    (defined $result? "'$result'":'')." ($context)\n";
                $prefix = ' ' x (length($prefix) - 5);
                if ((ref($expected)||'') eq 'Regexp') {
                    $expected = 'qr/'.$expected.'/'
                } else {
                    $expected = "'$expected'";
                }
                if (!$diag) {
                    print $TESTOUT "# $prefix Expected: $expected\n";
                } else {
                    print $TESTOUT "# $prefix Expected: $expected ($diag)\n";
                }
            }
            push @FAILDETAIL, $detail;
        }
    }
    ++ $ntest;
    $ok;
}