[Koha-devel] CVS: koha koha.t,1.1,1.1.2.1

[Pat Eyler]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv29710

Modified Files:
      Tag: rel-1-2
        koha.t 
Log Message:
added fixEthnicity tests

Index: koha.t
===================================================================
RCS file: /cvsroot/koha/koha/koha.t,v
retrieving revision 1.1
retrieving revision 1.1.2.1
diff -C2 -r1.1 -r1.1.2.1
*** koha.t      8 Apr 2002 23:44:43 -0000       1.1
--- koha.t      25 Apr 2002 13:58:09 -0000      1.1.2.1
***************
*** 1,3 ****
! BEGIN { $| = 1; print "1..2\n"; }
  END {print "not ok 1\n" unless $loaded;}
  use C4::Koha;
--- 1,3 ----
! BEGIN { $| = 1; print "1..6\n"; }
  END {print "not ok 1\n" unless $loaded;}
  use C4::Koha;
***************
*** 5,8 ****
--- 5,11 ----
  print "ok 1\n";
  
+ #
+ # test that &slashifyDate returns correct (non-US) date
+ #
  $date = "01/01/2002";
  $newdate = &slashifyDate("2002-01-01");
***************
*** 12,14 ****
--- 15,41 ----
  } else {
      print "not ok 2\n";
+ }
+ 
+ #
+ # Check that &fixEthnicity returns correct values
+ #
+ if ('Maori' eq fixEthnicity('maori') {
+     print "ok 3\n";
+ } else {
+     print "not ok 3\n";
+ }
+ if ('European/Pakeha' eq fixEthnicity('european') {
+     print "ok 4\n";
+ } else {
+     print "not ok 4\n";
+ }
+ if ('Pacific Islander' eq fixEthnicity('pi') {
+     print "ok 5\n";
+ } else {
+     print "not ok 5\n";
+ }
+ if ('Asian' eq fixEthnicity('asian') {
+     print "ok 6\n";
+ } else {
+     print "not ok 6\n";
  }