Select Code to Download

[sand 526 water@zippy:~/dev/PerlCode/lib/Test]$ prove -v highlander.t
...
----------------------------------------------------------------------
+---------
highlander.t               19    1   5.26%  5
Failed 1/1 test scripts, 0.00% okay. 1/19 subtests failed, 94.74% okay
+.

#!/usr/bin/perl -w

...
    my $msg = shift;
    ok( -f $okfile, $msg . ', test went as planned' );
}