/
usr
/
share
/
doc
/
perl-Test-Simple
/
examples
/
/usr/share/doc/perl-Test-Simple/examples
mkdir
upload
Name
Size
Mode
Actions
indent.pl
681
0644
edit
dl
rm
subtest.t
348
0644
edit
dl
rm
tools.pl
3069
0644
edit
dl
rm
tools.t
4666
0644
edit
dl
rm
Edit:
/usr/share/doc/perl-Test-Simple/examples/subtest.t
(348B)
#!/usr/bin/env perl use strict; use warnings; use lib '../lib'; use Test::More tests => 3; ok 1; subtest 'some name' => sub { my $num_tests = 2 + int( rand(3) ); plan tests => $num_tests; ok 1 for 1 .. $num_tests - 1; subtest 'some name' => sub { plan 'no_plan'; ok 1 for 1 .. 2 + int( rand(3) ); }; }; ok 1;
Save
cmd:
run