mirror of
https://github.com/duncs/clusterssh.git
synced 2025-04-21 00:59:07 +00:00
32 lines
720 B
Perl
32 lines
720 B
Perl
use strict;
|
|
use warnings;
|
|
|
|
# Force use of English in tests for the moment, for those users that
|
|
# have a different locale set, since errors are hardcoded below
|
|
use POSIX qw(setlocale locale_h);
|
|
setlocale( LC_ALL, "C" );
|
|
|
|
use FindBin qw($Bin $Script);
|
|
use lib "$Bin/../lib";
|
|
|
|
# fix path for finding our fake xterm on headless systems that do
|
|
# not have it installed, such as TravisCI via github
|
|
BEGIN {
|
|
$ENV{PATH} = $ENV{PATH} . ':' . $Bin . '/bin';
|
|
}
|
|
|
|
use Test::More;
|
|
use Test::Trap;
|
|
use File::Which qw(which);
|
|
|
|
use Readonly;
|
|
|
|
BEGIN { use_ok("App::ClusterSSH") }
|
|
|
|
my $app;
|
|
|
|
$app = App::ClusterSSH->new();
|
|
isa_ok( $app, 'App::ClusterSSH' );
|
|
isa_ok( $app->config, 'App::ClusterSSH::Config' );
|
|
|
|
done_testing();
|