t/DateUtils.t

   1 use strict;
   2 use warnings;
   3 use 5.010;
   4 use DateTime;
   5
   6 use Test::More tests => 8;                      # last test to print
   7
   8 use_ok('Koha::DateUtils');
   9
  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';
  13
  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';
  17
  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';
  21
  22
  23
  24 my $dt = dt_from_string( undef );
  25
  26 isa_ok $dt, 'DateTime', 'No string returns a DateTime object';