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 override_context_prefs;
  13     use_ok('C4::Date');
  14 }
  15
  16 # testing format_date_in_iso
  17 my $format= display_date_format ();
  18 my $date;
  19 my $invaliddate;
  20 if ($format eq 'mm/dd/yyyy'){
  21    $date = '05/21/1973';
  22 }
  23 elsif ($format eq 'dd/mm/yyyy'){
  24    $date = '21/05/1973';
  25 }
  26 elsif ($format eq 'yyyy-mm-dd'){
  27    $date = '1973-05-21';
  28 }
  29 $date=format_date_in_iso($date);
  30 is($date, '1973-05-21', 'format_date_in_iso');
  31
  32 # test format date
  33 $date=format_date($date);
  34 if ($format eq 'mm/dd/yyyy'){
  35   is($date, '05/21/1973', 'format_date');
  36 }
  37 elsif ($format eq 'dd/mm/yyyy'){
  38   is($date, '21/05/1973', 'format_date');
  39 }
  40 elsif ($format eq 'yyyy-mm-dd'){
  41   is($date, '1973-05-21', 'format_date');
  42 }
  43
  44 # test 4 fixdate
  45
  46 ($date,$invaliddate) = fixdate('2007','06','31');
  47 if ($invaliddate){
  48   ok($invaliddate, 'fixdate');
  49 }