1# Before `make install' is performed this script should be runnable with
2# `make test'. After `make install' it should work as `perl test.pl'
3
4######################### We start with some black magic to print on failure.
5
6# Change 1..1 below to 1..last_test_to_print .
7# (It may become useful if the test is moved to ./t subdirectory.)
8
9BEGIN { $| = 1; }
10END {print "not ok 1\n" unless $loaded;}
11use Lingua::EN::MatchNames;
12$loaded = 1;
13
14######################### End of black magic.
15
16# Insert your test code below (better if it prints "ok 13"
17# (correspondingly "not ok 13") depending on the success of chunk 13
18# of the test code):
19
20use Test;
21BEGIN { plan tests => 18 }
22
23ok(name_eq(split /  +/)) while(<DATA>);
24ok(!name_eq(qw(Bart  Simpson  Lisa  Simpson)));
25ok(!name_eq(qw(Arthur  Dent  Zaphod  Beeblebrox)));
26
27__END__
28Homer  Simpson  HOMER  SIMPOSN
29Marge  Simpson  MIDGE  SIMPSON
30Brian  Lalonde  BRYAN  LA LONDE
31Brian  Lalonde  RYAN   LALAND
32Peggy  MacHenry  Midge  Machenry
33Liz  Grene   Elizabeth  Green
34Chuck  Reed, Jr.  Charles  Reed II
35Kathy  O'Brien  Catherine  Obrien
36Lizzie  Hanson  Lisa  Hanson
37H. Ross  Perot  Ross  PEROT
38Kathy  Smith-Curry  KATIE  CURRY
39Dina  Johnson-Warner  Dinah  J-Warner
40Leela  Miles-Conrad  Leela  MilesConrad
41C. Renee  Smythe  Cathy  Smythe
42Victoria (Honey)  Rider  HONEY  RIDER
43Bart  Simpson  El Barto  Simpson
44