Help for this page

Select Code to Download


  1. or download this
    use strict;
use File::Spec;
...
is( $got_stdout, $expected_stdout),
    "foo.pl program output"
);
  2. or download this
    use t::CLI;
my $script = File::Spec->catfile( "scripts", "wikidoc" );
...
$wikidoc->stdout_like( qr/Extracting Pod from \Q$input_file\E/,
    "'wikidoc file file' status message"
);
  3. or download this
    package t::CLI;
use strict;
...


1; #true