amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-04-21 09:09:06 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Create initial test file

Browse source
This commit is contained in:
Duncan Ferguson 2014-07-01 19:07:52 +01:00
parent 83cfd73a11
commit d439a777b3
2 changed files with 21 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
MANIFEST
View file

@ -25,6 +25,7 @@ README
t/00-load.t
t/01l10n.t
t/02base.t
t/05getopts.t
t/10host_ssh_config
t/10host.t
t/15config.t

20
t/05getopts.t Normal file
View file

@ -0,0 +1,20 @@
use strict;
use warnings;
use FindBin qw($Bin);
use lib "$Bin/../lib";
use Test::More;
use Test::Trap;
BEGIN { use_ok('App::ClusterSSH::Getopt') }
my $getopts;
$getopts = App::ClusterSSH::Getopt->new();
isa_ok( $getopts, 'App::ClusterSSH::Getopt' );
diag('testing output') if ( $ENV{TEST_VERBOSE} );
done_testing;