updating installation docs
[koha.git] / 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 }