/usr/share/doc/librunning-commentary-perl/examples/demo.pl is in librunning-commentary-perl 0.000005-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 | #! /usr/bin/env perl
use strict;
use warnings;
use autodie;
use 5.018;
use Running::Commentary; # {fail => 'failobj'};
my $problem_solved;
my $subsubtest;
# run_with -critical, -silent;
#run_with -critical;
run_with -colour => { DONE => 'green', FAILED => 'red on_yellow', OUTPUT => 'blue' };
#run_with -nocolour;
{
run_with -noncritical;
run 'A quiet test' => 'echo "ere"';
my $result = run 'A quiet problem' => 'hdshadasasdkj';
say $result;
}
run 'Setting up (slowly)' => 'sleep 2';
run 'Listing' => 'ls -l';
$subsubtest = run 'A sub-test' => sub{
run 'Setting up (slowly)' => 'sleep 2';
run 'Listing' => 'ls -l';
run 'Cleaning up subtest' => 'sleep 2';
run 'A sub-sub-test' => sub{
# run -showall;
run 'Setting up (slowly)' => 'sleep 2';
run 'Listing' => 'ls -l *.pl';
run 'Date-stamping' => 'date';
run 'Cleaning up subtest' => 'sleep 2';
};
};
run 'Cleaning up all' => 'sleep 2';
run 'Closing down' => 'sleep 2';
|