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