1#!/usr/bin/env perl 2 3use strict; 4use warnings; 5 6use lib '../lib'; 7use Test::More tests => 3; 8 9ok 1; 10subtest 'some name' => sub { 11 my $num_tests = 2 + int( rand(3) ); 12 plan tests => $num_tests; 13 ok 1 for 1 .. $num_tests - 1; 14 subtest 'some name' => sub { 15 plan 'no_plan'; 16 ok 1 for 1 .. 2 + int( rand(3) ); 17 }; 18}; 19ok 1; 20