/usr/share/doc/libtest-roo-perl/examples/synopsis/t/test.t is in libtest-roo-perl 1.004-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 | use Test::Roo; # loads Moo and Test::More
use lib 't/lib';
# provide the fixture
has class => (
is => 'ro',
default => sub { "Digest::MD5" },
);
# specify behaviors to test
with 'ObjectCreation';
# give our subtests a label
sub _build_description { "Testing " . shift->class }
# run the tests
run_me;
run_me( { class => "Digest::SHA1" } );
done_testing;
|