#!/usr/bin/perl -w
# test ExamineNames module.

use Test::More tests => 6;
BEGIN{ use_ok( 'ExamineNames' ); }

my $obj;
ok( $obj = ExamineNames->new(),			'create ExamineNames object' );
ok( "male"  eq $obj->getGender("Jim"),		'"Jim" is "male"');
ok( "James" eq $obj->expandNickname("Jim"),	'"Jim" is really "James"');
ok( 0<$obj->sameNames("Jim Ti-Hi", "JAMES H TI-HI"), 
						'sameNames finds match');
ok( 0==$obj->sameNames("Alice Foreman", "Joe Smith"), 
						'sameNames finds no match');