On Saturday, Mar 29, 2003, at 09:22 America/Caracas, James E Keenan wrote:
Is there any meaningful test to apply to these methods other than seeing if
'1' was returned?
Yes. You should check that the output of the functions is indeed, what you expect.
This is probably the meaty part of the test suite.
Regards.
-lem
--
#!/usr/bin/perl -w
use strict;
$_[$_]=0for 0..7;for$'([EMAIL PROTECTED]@@}unpack"\1028"x28,join'',split//,
qq{=\37\34 \24(\31??\11\64:1\22\36/\24\2\12\4\b??\1\$\2\15\36}){$/=0
;grep{$_[$/++].=$_}split//,$';length$_[0]&@_&&print pack"\1028",$_
[EMAIL PROTECTED];length$_[3]&@_&&grep{$_&[EMAIL PROTECTED];}print"\n";