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

##</code><code>##

use strict;
use warnings;
use Time::Piece;

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

##</code><code>##

1..1
ok 1 Not in a previous century

##</code><code>##

use strict;
use warnings;
use Time::Piece;
use Test::Simple tests => 1;

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

##</code><code>##

use strict;
use warnings;
use Time::Piece;
use Test::More tests => 1;

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

##</code><code>##

1..1
not ok 1 - Not in a previous century
#   Failed test 'Not in a previous century'
#   at /tmp/bar.t line 6.
#     '119'
#         >
#     '1999'
# Looks like you failed 1 test of 1.

##</code><code>##

use strict;
use warnings;
use Time::Piece;
use Test::More tests => 3;

my $now = localtime (time);
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"';

##</code><code>##

use strict;
use warnings;
use Time::Piece 1.31_02;
use Test::More tests => 3;

Time::Piece->use_locale;
my $now = localtime (time);

cmp_ok $now->_year, '>', 1999, 'Not in a previous century';
is $now->time, $now->hms, 'The time() and hms() methods give the same result';

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

##</code><code>##

plan tests => scalar @array;

##</code><code>##

done_testing ();
exit;

##</code><code>##

$ prove /tmp/bar.t
/tmp/bar.t .. 1/3 
#   Failed test 'Not in a previous century'
#   at /tmp/bar.t line 8.
#     '119'
#         >
#     '1999'
# Looks like you failed 1 test of 3.
/tmp/bar.t .. Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/3 subtests 
        (less 1 skipped subtest: 1 okay)

Test Summary Report
-------------------
/tmp/bar.t (Wstat: 256 Tests: 3 Failed: 1)
  Failed test:  1
  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