From e548a22a92b3aa345f4a952fddb39cc693c35a70 Mon Sep 17 00:00:00 2001 From: Gavin Carr Date: Tue, 26 Sep 2006 01:10:23 +0000 Subject: Rename NP::Base to NP::Functions; add check_messages() to NP::Functions. git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/Nagios-Plugin/trunk@1482 f882894a-f735-0410-b71e-b25c423dba1c --- t/Nagios-Plugin-Base.t | 153 ------------------------------------------------- 1 file changed, 153 deletions(-) delete mode 100644 t/Nagios-Plugin-Base.t (limited to 't/Nagios-Plugin-Base.t') diff --git a/t/Nagios-Plugin-Base.t b/t/Nagios-Plugin-Base.t deleted file mode 100644 index 68a02fe..0000000 --- a/t/Nagios-Plugin-Base.t +++ /dev/null @@ -1,153 +0,0 @@ - -use strict; -use Test::More tests => 111; - -BEGIN { use_ok("Nagios::Plugin::Base", ":all"); } -Nagios::Plugin::Base::_fake_exit(1); - -my $this_version=$Nagios::Plugin::Base::VERSION; -foreach my $m ("", qw(::Threshold ::Getopt ::Performance ::Range)) { - my $mod = "Nagios::Plugin$m"; - use_ok($mod); - # Lots of hackery below. Easier to say $mod->VERSION, but this is probably a recent perl thing - my $v = "$mod"."::VERSION"; - my $a = eval "\$$v"; - is($a, $this_version, "Version number for $mod the same as Base: $this_version"); -} - -# Hardcoded checks of constants -ok(defined %ERRORS, '%ERRORS defined'); -is(OK, $ERRORS{OK}, "OK => $ERRORS{OK}"); -is(WARNING, $ERRORS{WARNING}, "WARNING => $ERRORS{WARNING}"); -is(CRITICAL, $ERRORS{CRITICAL}, "CRITICAL => $ERRORS{CRITICAL}"); -is(UNKNOWN, $ERRORS{UNKNOWN}, "UNKNOWN => $ERRORS{UNKNOWN}"); -is(DEPENDENT, $ERRORS{DEPENDENT}, "DEPENDENT => $ERRORS{DEPENDENT}"); - -# Test nagios_exit( CONSTANT, $msg ), nagios_exit( $string, $msg ) -my $r; -my @ok = ( - [ OK, "OK", 'test the first', ], - [ WARNING, "WARNING", 'test the second', ], - [ CRITICAL, "CRITICAL", 'test the third', ], - [ UNKNOWN, "UNKNOWN", 'test the fourth', ], - [ DEPENDENT, "DEPENDENT", 'test the fifth', ], -); -for (@ok) { - # CONSTANT - $r = nagios_exit($_->[0], $_->[2]); - is($r->return_code, $_->[0], - sprintf('nagios_exit(%s, $msg) returned %s', $_->[1], $_->[0])); - like($r->message, qr/$_->[1]\b.*\b$_->[2]$/, - sprintf('nagios_exit(%s, $msg) output matched "%s"', - $_->[1], $_->[1] . '.*' . $_->[2])); - - # $string - $r = nagios_exit($_->[1], $_->[2]); - is($r->return_code, $_->[0], - sprintf('nagios_exit("%s", $msg) returned %s', $_->[1], $_->[0])); - like($r->message, qr/$_->[1]\b.*\b$_->[2]$/, - sprintf('nagios_exit("%s", $msg) output matched "%s"', $_->[1], - $_->[1] . '.*' . $_->[2])); - like($r, qr/$_->[1]\b.*\b$_->[2]$/, - sprintf('nagios_exit("%s", $msg) stringified matched "%s"', $_->[1], - $_->[1] . '.*' . $_->[2])); -} - -# nagios_exit code corner cases -my @ugly1 = ( - [ -1, 'testing code -1' ], - [ 7, 'testing code 7' ], - [ undef, 'testing code undef' ], - [ '', qq(testing code '') ], - [ 'string', qq(testing code 'string') ], -); -for (@ugly1) { - $r = nagios_exit($_->[0], $_->[1]); - my $display = defined $_->[0] ? "'$_->[0]'" : 'undef'; - is($r->return_code, UNKNOWN, "nagios_exit($display, \$msg) returned ". UNKNOWN); - like($r->message, qr/UNKNOWN\b.*\b$_->[1]$/, - sprintf('nagios_exit(%s, $msg) output matched "%s"', - $display, 'UNKNOWN.*' . $_->[1])); -} - -# nagios_exit message corner cases -my @ugly2 = ( - [ '' ], - [ undef ], - [ UNKNOWN ], -); -for (@ugly2) { - $r = nagios_exit(CRITICAL, $_->[0]); - my $display1 = defined $_->[0] ? "'$_->[0]'" : "undef"; - my $display2 = defined $_->[0] ? $_->[0] : ''; - like($r->message, qr/CRITICAL\b.*\b$display2$/, - sprintf('nagios_exit(%s, $msg) output matched "%s"', - $display1, "CRITICAL.*$display2")); -} - -# Test nagios_die( $msg ) -my @msg = ( - [ 'die you dog' ], - [ '' ], - [ undef ], -); -for (@msg) { - $r = nagios_die($_->[0]); - my $display1 = defined $_->[0] ? "'$_->[0]'" : "undef"; - my $display2 = defined $_->[0] ? $_->[0] : ''; - is($r->return_code, UNKNOWN, - sprintf('nagios_die(%s) returned UNKNOWN', $display1)); - like($r->message, qr/UNKNOWN\b.*\b$display2$/, - sprintf('nagios_die(%s) output matched "%s"', $display1, - "UNKNOWN.*$display2")); -} - -# Test nagios_die( CONSTANT, $msg ), nagios_die( $msg, CONSTANT ), -# nagios_die( $string, $msg ), and nagios_die( $msg, $string ) -@ok = ( - [ OK, "OK", 'test the first', ], - [ WARNING, "WARNING", 'test the second', ], - [ CRITICAL, "CRITICAL", 'test the third', ], - [ UNKNOWN, "UNKNOWN", 'test the fourth', ], - [ DEPENDENT, "DEPENDENT", 'test the fifth', ], -); -for (@ok) { - # CONSTANT, $msg - $r = nagios_die($_->[0], $_->[2]); - is($r->return_code, $_->[0], - sprintf('nagios_die(%s, $msg) returned %s', $_->[1], $_->[0])); - like($r->message, qr/$_->[1]\b.*\b$_->[2]$/, - sprintf('nagios_die(%s, $msg) output matched "%s"', - $_->[1], $_->[1] . '.*' . $_->[2])); - - # $msg, CONSTANT - $r = nagios_die($_->[2], $_->[0]); - is($r->return_code, $_->[0], - sprintf('nagios_die($msg, %s) returned %s', $_->[1], $_->[0])); - like($r->message, qr/$_->[1]\b.*\b$_->[2]$/, - sprintf('nagios_die($msg, %s) output matched "%s"', - $_->[1], $_->[1] . '.*' . $_->[2])); - - # $string, $msg - $r = nagios_die($_->[1], $_->[2]); - is($r->return_code, $_->[0], - sprintf('nagios_die("%s", $msg) returned %s', $_->[1], $_->[0])); - like($r->message, qr/$_->[1]\b.*\b$_->[2]$/, - sprintf('nagios_die("%s", $msg) output matched "%s"', $_->[1], - $_->[1] . '.*' . $_->[2])); - like($r, qr/$_->[1]\b.*\b$_->[2]$/, - sprintf('nagios_die("%s", $msg) stringified matched "%s"', $_->[1], - $_->[1] . '.*' . $_->[2])); - - # $string, $msg - $r = nagios_die($_->[2], $_->[1]); - is($r->return_code, $_->[0], - sprintf('nagios_die($msg, "%s") returned %s', $_->[1], $_->[0])); - like($r->message, qr/$_->[1]\b.*\b$_->[2]$/, - sprintf('nagios_die($msg, "%s") output matched "%s"', $_->[1], - $_->[1] . '.*' . $_->[2])); - like($r, qr/$_->[1]\b.*\b$_->[2]$/, - sprintf('nagios_die($msg, "%s") stringified matched "%s"', $_->[1], - $_->[1] . '.*' . $_->[2])); -} - -- cgit v1.2.3-74-g34f1