1 2 3 4 5 6 7 8 9 10 11 12 13
use 5.006; use strict; use warnings FATAL => 'all'; use Test::More; BEGIN { use_ok( 'ManaTools::Shared::Locales' ) || print "Locales failed!\n"; } ok( my $o = ManaTools::Shared::Locales->new({domain_name => 'test_ManaTools_Shared_Locales'}), 'create'); is( $o->N_("test"), 'test', 'N' ); done_testing;