Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...
is(scalar @{$file->[HPA::LT_Utils::File::_CP]}, 0) or $logger->debug(D
+umper($file)); # check internal state
is($file->output, '') or $logger->debug('the output() method seems to 
+have been borked - ', Dumper($file)); # check interface correctness
...
  2. or download this
    # test requirement X
is(....);
...
is(....);
is(....);
is(....);