[Koha-cvs] CVS: koha/t Input.t,1.1,1.2 format.t,1.1,1.2 output.t,1.1,1.2 require.t,1.1,1.2 koha.t,1.2,1.3

[Steve Tonnesen]

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

Modified Files:
        koha.t 
Added Files:
        Input.t format.t output.t require.t 
Log Message:
47 files to go, 47 files to go, take one down, pass it around...
46 files to go.






Index: koha.t
===================================================================
RCS file: /cvsroot/koha/koha/t/koha.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** koha.t      31 May 2002 20:35:54 -0000      1.2
--- koha.t      20 Jun 2002 18:18:13 -0000      1.3
***************
*** 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";
  }