Start of non-English language support

This commit is contained in:
Duncan Ferguson 2010-01-11 19:39:20 +00:00
parent 7ecce265c7
commit 811db0cf29
4 changed files with 114 additions and 3 deletions

15
t/01l10n.t Normal file
View file

@ -0,0 +1,15 @@
use strict;
use warnings;
use FindBin qw($Bin);
use lib "$Bin/../lib";
use Test::More tests => 2;
use Test::Trap;
BEGIN { use_ok( 'App::ClusterSSH::L10N', ) }
my $handle;
$handle = App::ClusterSSH::L10N->get_handle();
isa_ok( $handle, 'App::ClusterSSH::L10N' );