Continuing to add tests
[koha.git] / t / koha.t
1 BEGIN { $| = 1; print "1..6\n"; }
2 END {print "not ok 1\n" unless $loaded;}
3 use C4::Koha;
4 $loaded = 1;
5 print "ok 1\n";
6
7 #
8 # test that &slashifyDate returns correct (non-US) date
9 #
10 $date = "01/01/2002";
11 $newdate = &slashifyDate("2002-01-01");
12
13 if ($date eq $newdate) {
14     print "ok 2\n";
15 } else {
16     print "not ok 2\n";
17 }
18
19 #
20 # Check that &fixEthnicity returns correct values
21 #
22 if ('Maori' eq fixEthnicity('maori')) {
23     print "ok 3\n";
24 } else {
25     print "not ok 3\n";
26 }
27 if ('European/Pakeha' eq fixEthnicity('european')) {
28     print "ok 4\n";
29 } else {
30     print "not ok 4\n";
31 }
32 if ('Pacific Islander' eq fixEthnicity('pi')) {
33     print "ok 5\n";
34 } else {
35     print "not ok 5\n";
36 }
37 if ('Asian' eq fixEthnicity('asian')) {
38     print "ok 6\n";
39 } else {
40     print "not ok 6\n";
41 }