t/Date.t

   1 print "WARNING: This module (C4::Date) is obsolete.
   2 Developers should use C4::Dates instead!\n";
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More tests => 4;
   8
   9 BEGIN {
  10     use FindBin;
  11     use lib $FindBin::Bin;
  12     use_ok('C4::Date');
  13 }
  14
  15 # testing format_date_in_iso
  16 my $format= display_date_format ();
  17 my $date;
  18 my $invaliddate;
  19 if ($format eq 'mm/dd/yyyy'){
  20    $date = '05/21/1973';
  21 }
  22 elsif ($format eq 'dd/mm/yyyy'){
  23    $date = '21/05/1973';
  24 }
  25 elsif ($format eq 'yyyy-mm-dd'){
  26    $date = '1973-05-21';
  27 }
  28 $date=format_date_in_iso($date);
  29 is($date, '1973-05-21', 'format_date_in_iso');
  30
  31 # test format date
  32 $date=format_date($date);
  33 if ($format eq 'mm/dd/yyyy'){
  34   is($date, '05/21/1973', 'format_date');
  35 }
  36 elsif ($format eq 'dd/mm/yyyy'){
  37   is($date, '21/05/1973', 'format_date');
  38 }
  39 elsif ($format eq 'yyyy-mm-dd'){
  40   is($date, '1973-05-21', 'format_date');
  41 }
  42
  43 # test 4 fixdate
  44
  45 ($date,$invaliddate) = fixdate('2007','06','31');
  46 if ($invaliddate){
  47   ok($invaliddate, 'fixdate');
  48 }