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::Nickname; 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 => 17 } 22 23ok(nickname_eq(split)) while(<DATA>); 24ok(!nickname_eq(qw(Lisa Bart))); 25 26 27__END__ 28Liz Beth 29Peggy Margaret 30Charlie Chuck 31Brian Ryan 32Ada Adaline 33Peg Midge 34Lizzy Lise 35Lig Elijah 36Allie Alice 37Ali Alice 38Mari Mary 39Mary Anna 40Mary Maryanne 41Becky Rebecca 42Ricky Richard 43Vicky Victoria 44