1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
#============================================================= -*-perl-*-
#
# t/core/date.t
#
# Test the Badger::Date module.
#
# Copyright (C) 2006-2012 Andy Wardley. All Rights Reserved.
#
# This is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
#========================================================================
use strict;
use warnings;
use lib qw( ./lib ../lib ../../lib );
use Badger::Test
#skip => 'Still in development',
tests => 15,
debug => 'Badger::Date',
args => \@ARGV;
use Badger::Date 'Date Today';
#-----------------------------------------------------------------------
# check we barf on invalid dates
#-----------------------------------------------------------------------
eval { Date->new('foobar') };
is( $@, 'date error - Invalid date: foobar', 'bad date format');
my $n = 1;
#-----------------------------------------------------------------------
# check date created now
#-----------------------------------------------------------------------
my $today = Today;
ok( $today, 'created a day today' );
#print "today: ", $today->text, "\n";
#print "today: ", $today->uri, "\n";
my ($second, $minute, $hour, $day, $month, $year ) = localtime(time());
$year += 1900;
$month++;
is($today->day, $day, 'day today' );
is($today->month, $month, 'month today' );
is($today->year, $year, 'year today' );
my $tomorrow = $today->copy->adjust( days => 1 );
#print "tomorrow: $tomorrow\n";
ok( $tomorrow->after($today), "tomorrow is after today" );
ok( $today->before($tomorrow), "today is before tomorrow" );
ok( ! $tomorrow->before($today), "tomorrow is not before today" );
ok( ! $today->after($tomorrow), "today is not after tomorrow" );
ok( $tomorrow->not_before($today), "tomorrow is not_before today" );
ok( $today->not_after($tomorrow), "today is not_after tomorrow" );
ok( $tomorrow > $today, "tomorrow > today" );
ok( $today < $tomorrow, "today < tomorrow" );
ok( !( $tomorrow < $today ), "not tomorrow < today" );
ok( !( $today > $tomorrow ), "not today > tomorrow" );
print $today->date, "\n";
print $today->format('%d-%b-%y');
|
