mirror of
https://github.com/duncs/clusterssh.git
synced 2025-07-02 01:21:14 +00:00
Create initial test file
This commit is contained in:
parent
83cfd73a11
commit
d439a777b3
2 changed files with 21 additions and 0 deletions
1
MANIFEST
1
MANIFEST
|
@ -25,6 +25,7 @@ README
|
||||||
t/00-load.t
|
t/00-load.t
|
||||||
t/01l10n.t
|
t/01l10n.t
|
||||||
t/02base.t
|
t/02base.t
|
||||||
|
t/05getopts.t
|
||||||
t/10host_ssh_config
|
t/10host_ssh_config
|
||||||
t/10host.t
|
t/10host.t
|
||||||
t/15config.t
|
t/15config.t
|
||||||
|
|
20
t/05getopts.t
Normal file
20
t/05getopts.t
Normal 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;
|
Loading…
Add table
Add a link
Reference in a new issue