clusterssh/t/01l10n.t

16 lines
267 B
Perl
Raw Permalink Normal View History

2010-01-11 19:39:20 +00:00
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' );