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(....);