koha-dev.rot13.org Git - koha_fer/blob - 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 C4::Context;
  11     package C4::Context;
  12     no warnings;
  13     sub preference {
  14         my $self = shift;
  15         my $pref = shift;
  16         return 'us' if $pref eq "dateformat";
  17         return;
  18     }
  19     use warnings;
  20     package main;
  21     use_ok('C4::Date');
  22 }
  23
  24 # testing format_date_in_iso
  25 my $format= display_date_format ();
  26 my $date;
  27 my $invaliddate;
  28 if ($format eq 'mm/dd/yyyy'){
  29    $date = '05/21/1973';
  30 }
  31 elsif ($format eq 'dd/mm/yyyy'){
  32    $date = '21/05/1973';
  33 }
  34 elsif ($format eq 'yyyy-mm-dd'){
  35    $date = '1973-05-21';
  36 }
  37 $date=format_date_in_iso($date);
  38 is($date, '1973-05-21', 'format_date_in_iso');
  39
  40 # test format date
  41 $date=format_date($date);
  42 if ($format eq 'mm/dd/yyyy'){
  43   is($date, '05/21/1973', 'format_date');
  44 }
  45 elsif ($format eq 'dd/mm/yyyy'){
  46   is($date, '21/05/1973', 'format_date');
  47 }
  48 elsif ($format eq 'yyyy-mm-dd'){
  49   is($date, '1973-05-21', 'format_date');
  50 }
  51
  52 # test 4 fixdate
  53
  54 ($date,$invaliddate) = fixdate('2007','06','31');
  55 if ($invaliddate){
  56   ok($invaliddate, 'fixdate');
  57 }