#!/usr/bin/perl
use strict;
use Lingua::EN::NameCase 'nc';
use Test::More tests => 12;
my %tests = (
q{DR SARAH BEETLE} => q{Dr Sarah Beetle},
q{june O'LEARY} => q{June O'Leary},
q{MICHAEL JOHN JACOBS JR} => q{Michael John Jacobs Jr},
q{MR. jon whitacre iii} => q{Mr. Jon Whitacre III},
q{MARY BETH DAVIDSON MD} => q{Mary Beth Davidson MD},
q{MS LAURA CONLEY-ROSE} => q{Ms Laura Conley-Rose},
q{LAURA&DAVID SMITH} => q{Laura&David Smith},
q{ESTATE OF LAURA JONES} => q{Estate Of Laura Jones},
q{MS MS. LAURA J BYRD} => q{Ms Ms. Laura J Byrd},
q{ben mcgrath} => q{Ben McGrath},
q{AHARON BEN AMRAM HA-KOHEIN} => q{Aharon ben Amram Ha-Kohein},
q{MIRIAM BAT RIVKAH} => q{Miriam bat Rivkah},
);
for my $test (keys %tests) {
is( nc($test), $tests{$test});
}