6 use Test::More tests => 8; # last test to print
8 use_ok('Koha::DateUtils');
10 my $dt_metric = dt_from_string('01/02/2010', 'metric', 'Europe/London');
11 isa_ok $dt_metric, 'DateTime', 'metric returns a DateTime object';
12 cmp_ok $dt_metric->ymd(), 'eq', '2010-02-01', 'metric date correct';
14 my $dt_us = dt_from_string('02/01/2010', 'us', 'Europe/London');
15 isa_ok $dt_us, 'DateTime', 'us returns a DateTime object';
16 cmp_ok $dt_us->ymd(), 'eq', '2010-02-01', 'us date correct';
18 my $dt_iso = dt_from_string('2010-02-01', 'iso', 'Europe/London');
19 isa_ok $dt_iso, 'DateTime', 'iso returns a DateTime object';
20 cmp_ok $dt_iso->ymd(), 'eq', '2010-02-01', 'iso date correct';
24 my $dt = dt_from_string( undef );
26 isa_ok $dt, 'DateTime', 'No string returns a DateTime object';