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