Lines 1-11
Link Here
|
1 |
use strict; |
1 |
use Modern::Perl; |
2 |
use warnings; |
|
|
3 |
use 5.010; |
4 |
use DateTime; |
2 |
use DateTime; |
5 |
use DateTime::TimeZone; |
3 |
use DateTime::TimeZone; |
6 |
|
4 |
|
7 |
use C4::Context; |
5 |
use C4::Context; |
8 |
use Test::More tests => 37; |
6 |
use Test::More tests => 38; |
9 |
use Test::MockModule; |
7 |
use Test::MockModule; |
10 |
use Time::HiRes qw/ gettimeofday /; |
8 |
use Time::HiRes qw/ gettimeofday /; |
11 |
|
9 |
|
Lines 114-119
cmp_ok( $dt0->ymd(), 'eq', $ymd, 'Returned object corrects iso day 0' );
Link Here
|
114 |
$dt0 = dt_from_string( '0000-00-00', 'iso' ); |
112 |
$dt0 = dt_from_string( '0000-00-00', 'iso' ); |
115 |
is( $dt0, undef, "undefined returned for 0 iso date" ); |
113 |
is( $dt0, undef, "undefined returned for 0 iso date" ); |
116 |
|
114 |
|
|
|
115 |
# Return undef if passed mysql 9999-* date |
116 |
my $dt9999 = dt_from_string( '9999-12-31' ); |
117 |
is( $dt9999->ymd(), '9999-12-31', "dt_from_string should return a DateTime object for 9999-12-31" ); |
118 |
|
117 |
my $formatted = format_sqldatetime( '2011-06-16 12:00:07', 'metric', '24hr' ); |
119 |
my $formatted = format_sqldatetime( '2011-06-16 12:00:07', 'metric', '24hr' ); |
118 |
cmp_ok( $formatted, 'eq', '16/06/2011 12:00', 'format_sqldatetime conversion' ); |
120 |
cmp_ok( $formatted, 'eq', '16/06/2011 12:00', 'format_sqldatetime conversion' ); |
119 |
|
121 |
|
120 |
- |
|
|