Firstly, is there anyway we could get Test::Builder's diag (and thus
Test::More's) diag to return false not true like it currently does.
This would then allow me to write simply
sub is_reversed
{
return $Tester->ok($_[0] eq reverse($_[1]))
or $Tester->diag("The reverse of '$_[0]' is '".reversed($_[0]).
"' not '$_[1]' as expected")
}
rather than having to do the horrible "&& 0" at the end to ensure that
the method returns the correct truth (otherwise is_reversed will return
true no matter what is called)
Secondly, I was wondering about eq_set in Test::More.
ok(eq_set([1,1,1],[1]));
fails, where really it should work as sets don't care about reoccurring
elements. Should this be 'eq_bag' instead?
Later.
Mark.
--
s'' Mark Fowler London.pm Bath.pm
http://www.twoshortplanks.com/ [EMAIL PROTECTED]
';use Term'Cap;$t=Tgetent Term'Cap{};print$t->Tputs(cl);for$w(split/ +/
){for(0..30){$|=print$t->Tgoto(cm,$_,$y)." $w";select$k,$k,$k,.03}$y+=2}
