mirror of
https://github.com/duncs/clusterssh.git
synced 2025-07-02 17:33:23 +00:00
124 lines
3.5 KiB
Perl
124 lines
3.5 KiB
Perl
use strict;
|
|
use warnings;
|
|
|
|
use FindBin qw($Bin);
|
|
use lib "$Bin/../lib";
|
|
|
|
use Test::More;
|
|
use Test::Trap;
|
|
|
|
BEGIN { use_ok( 'App::ClusterSSH::Base' ) }
|
|
|
|
# force default language for tests
|
|
App::ClusterSSH::Base->set_lang('en');
|
|
|
|
my $base;
|
|
|
|
$base = App::ClusterSSH::Base->new();
|
|
isa_ok( $base, 'App::ClusterSSH::Base' );
|
|
|
|
diag('testing output') if ( $ENV{TEST_VERBOSE} );
|
|
trap {
|
|
$base->output('testing');
|
|
};
|
|
is( $trap->leaveby, 'return', 'returned ok' );
|
|
is( $trap->die, undef, 'returned ok' );
|
|
is( $trap->stderr, '', 'Expecting no STDERR' );
|
|
is( $trap->stdout =~ tr/\n//, 1, 'got correct number of print lines' );
|
|
like( $trap->stdout, qr/\Atesting\n\Z/xsm,
|
|
'checking for expected print output' );
|
|
|
|
diag('Testing debug output') if ( $ENV{TEST_VERBOSE} );
|
|
|
|
for my $level ( 0 .. 9 ) {
|
|
$base->set_debug_level($level);
|
|
is( $base->debug_level(), $level, 'debug level is correct' );
|
|
|
|
trap {
|
|
for my $log_level ( 0 .. 9 ) {
|
|
$base->debug( $log_level, 'test');
|
|
}
|
|
};
|
|
|
|
is( $trap->leaveby, 'return', 'returned ok' );
|
|
is( $trap->die, undef, 'returned ok' );
|
|
is( $trap->stderr, '', 'Expecting no STDERR' );
|
|
is( $trap->stdout =~ tr/\n//,
|
|
$level + 1, 'got correct number of debug lines' );
|
|
like( $trap->stdout, qr/(?:test\n){$level}/xsm,
|
|
'checking for expected debug output' );
|
|
}
|
|
|
|
trap {
|
|
$base->set_debug_level();
|
|
};
|
|
is( $trap->leaveby, 'die', 'returned ok' );
|
|
is( $trap->stderr, '', 'Expecting no STDERR' );
|
|
is( $trap->stdout, '', 'Expecting no STDOUT' );
|
|
like( $trap->die, qr/^Debug level not provided at/,
|
|
'Got correct croak text' );
|
|
|
|
$base->set_debug_level(10);
|
|
is( $base->debug_level(), 9, 'checking debug_level reset to 9' );
|
|
|
|
$base = undef;
|
|
trap {
|
|
$base = App::ClusterSSH::Base->new( debug => 6, );
|
|
};
|
|
isa_ok( $base, 'App::ClusterSSH::Base' );
|
|
is( $trap->leaveby, 'return', 'returned ok' );
|
|
is( $trap->die, undef, 'returned ok' );
|
|
is( $trap->stderr, '', 'Expecting no STDERR' );
|
|
is( $trap->stdout =~ tr/\n//, 1, 'got new() debug output lines' );
|
|
like(
|
|
$trap->stdout,
|
|
qr/^Setting\slanguage\sto\s"en"/xsm,
|
|
'got expected new() output'
|
|
);
|
|
|
|
$base = undef;
|
|
trap {
|
|
$base = App::ClusterSSH::Base->new( debug => 6, lang => 'en' );
|
|
};
|
|
isa_ok( $base, 'App::ClusterSSH::Base' );
|
|
is( $trap->leaveby, 'return', 'returned ok' );
|
|
is( $trap->die, undef, 'returned ok' );
|
|
is( $trap->stderr, '', 'Expecting no STDERR' );
|
|
is( $trap->stdout =~ tr/\n//, 1, 'got new() debug output lines' );
|
|
like(
|
|
$trap->stdout,
|
|
qr/^Setting\slanguage\sto\s"en"/xsm,
|
|
'got expected new() output'
|
|
);
|
|
|
|
$base = undef;
|
|
trap {
|
|
$base = App::ClusterSSH::Base->new( debug => 6, lang => 'rubbish' );
|
|
};
|
|
isa_ok( $base, 'App::ClusterSSH::Base' );
|
|
is( $trap->leaveby, 'return', 'returned ok' );
|
|
is( $trap->die, undef, 'returned ok' );
|
|
is( $trap->stderr, '', 'Expecting no STDERR' );
|
|
is( $trap->stdout =~ tr/\n//, 1, 'got new() debug output lines' );
|
|
like(
|
|
$trap->stdout,
|
|
qr/^Setting\slanguage\sto\s"rubbish"/xsm,
|
|
'got expected new() output'
|
|
);
|
|
|
|
$base = undef;
|
|
trap {
|
|
$base = App::ClusterSSH::Base->new( debug => 7, );
|
|
};
|
|
isa_ok( $base, 'App::ClusterSSH::Base' );
|
|
is( $trap->leaveby, 'return', 'returned ok' );
|
|
is( $trap->die, undef, 'returned ok' );
|
|
is( $trap->stderr, '', 'Expecting no STDERR' );
|
|
is( $trap->stdout =~ tr/\n//, 3, 'got new() debug output lines' );
|
|
like(
|
|
$trap->stdout,
|
|
qr/^Setting\slanguage\sto\s"en".Arguments\sto\sApp::ClusterSSH::Base->new.*debug\s=>\s7,$/xsm,
|
|
'got expected new() output'
|
|
);
|
|
|
|
done_testing();
|