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"; }