use utf8; use util; use Test::More tests => 4; is( &util::beautify( "àisTheWord"), "Àistheword", "àisTheWord - special character changes case." ); is( &util::beautify( "ùisTheWord"), "Ùistheword", "ùisTheWord - special character changes case." ); is( &util::beautify( "üisTheWord"), "Üistheword", "üisTheWord - special character changes case." ); is( &util::beautify( "ÿisTheWord"), "Ÿistheword", "ÿisTheWord - special character changes case." ); print util::beautify( "ÿisTheWord") . "\n";