mirror of
https://github.com/duncs/clusterssh.git
synced 2025-07-03 18:03:23 +00:00
22 lines
337 B
Perl
22 lines
337 B
Perl
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use FindBin qw($Bin $Script);
|
||
|
|
use lib "$Bin/../lib";
|
||
|
|
|
||
|
|
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();
|