Select Code to Download

1..1
ok 1 The expected file "foo" is present

use strict;
use warnings;
...
print "1..1\n";
print localtime(time)->year > 1999 ? 'ok' : 'not ok';
print " 1 Not in a previous century\n";

1..1
ok 1 Not in a previous century

use strict;
use warnings;
...
use Test::Simple tests => 1;

ok localtime(time)->year > 1999, 'Not in a previous century';

use strict;
use warnings;
...
use Test::More tests => 1;

cmp_ok localtime(time)->_year, '>', 1999, 'Not in a previous century';

1..1
not ok 1 - Not in a previous century
...
#         >
#     '1999'
# Looks like you failed 1 test of 1.

use strict;
use warnings;
...
cmp_ok $now->_year, '>', 1999, 'Not in a previous century';
is $now->time, $now->hms, 'The time() and hms() methods give the same 
+result';
like $now->fullday, qr/day$/, 'The dayname ends in "day"';

use strict;
use warnings;
...
    skip 'Non-English locale', 1 unless substr ($ENV{LANG} // 'en', 0,
+ 2) eq 'en';
    like $now->fullday, qr/day$/, 'The dayname ends in "day"';
}

plan tests => scalar @array;

done_testing ();
exit;

$ prove /tmp/bar.t
/tmp/bar.t .. 1/3 
...
  Non-zero exit status: 1
Files=1, Tests=3,  0 wallclock secs ( 0.03 usr  0.00 sys +  0.06 cusr 
+ 0.01 csys =  0.10 CPU)
Result: FAIL