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