1 BEGIN { $| = 1; print "1..6\n"; }
2 END {print "not ok 1\n" unless $loaded;}
8 # test that &slashifyDate returns correct (non-US) date
11 $newdate = &slashifyDate("2002-01-01");
13 if ($date eq $newdate) {
20 # Check that &fixEthnicity returns correct values
22 if ('Maori' eq fixEthnicity('maori')) {
27 if ('European/Pakeha' eq fixEthnicity('european')) {
32 if ('Pacific Islander' eq fixEthnicity('pi')) {
37 if ('Asian' eq fixEthnicity('asian')) {