1..1
ok 1 The expected file "foo" is present
####
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";
##
##
1..1
ok 1 Not in a previous century
##
##
use strict;
use warnings;
use Time::Piece;
use Test::Simple tests => 1;
ok localtime(time)->year > 1999, 'Not in a previous century';
##
##
use strict;
use warnings;
use Time::Piece;
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
# Failed test 'Not in a previous century'
# at /tmp/bar.t line 6.
# '119'
# >
# '1999'
# Looks like you failed 1 test of 1.
##
##
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"';
##
##
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"';
}
##
##
plan tests => scalar @array;
##
##
done_testing ();
exit;
##
##
$ 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