There's TMTOWTDI and there's this...
There's TMTOWTDI and there's this...
●
Here's some of the many ways people write their tests:
▶
t/op/sysio.t
print 'not ' unless (syswrite(O, $a, 2) == 2);
print "ok 20\n";
▶
ext/Cwd/t/cwd.t
print +($getcwd eq $start ? "" : "not "), "ok 4\n";
▶
t/pod/plainer.t
unless( $returned eq $expected ) {
print map { s/^/\#/mg; $_; }
map {+$_} # to avoid readonly values
"EXPECTED:\n", $expected, "GOT:\n", $returned;
print "not ";
}
printf "ok %d\n", ++$test;
●
Maintenance nightmare.