On Tue, Aug 28, 2001 at 03:55:09PM +0100, Tim Bunce wrote:
> Probably best to leave at least t/base/* and t/cmd/* alone.
Sorry, I thought I said that.
Concentrate on t/op/, t/io/, t/pod/ and the tests in lib/.
The op ones you're going to have to evaulate on a case-by-case basis
whether or not it's safe to use a function. If you're not sure, ask.
The current function we're using is:
my $test = 1;
sub ok {
my($ok) = @_;
# You have to do it this way or VMS will get confused.
my $out = '';
$out = "not " unless $ok;
$out .= "ok $test\n";
print $out;
printf "# Failed test at line %d\n", (caller)[2] unless $ok;
$test++;
return $ok;
}
For t/pod and lib/ you can use Test::Simple or Test::More.
--
Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
Your average appeasement engineer is about as clued-up on computers as
the average computer "hacker" is about B.O.
-- BOFH
