t/Nagios-Plugin-Performance-02.t


1
2
3
4
5
6
7
8
9
10
11
12
13


use strict;
use Test::More tests => 3;
use_ok("Nagios::Plugin::Performance", use_die => 1);

eval { Nagios::Plugin::Functions::nagios_die("Testing") };
is( $@, "NAGIOS-PLUGIN-PERFORMANCE-02 UNKNOWN - Testing\n", "use_die correctly set on import");


use_ok("Nagios::Plugin::Performance");
eval { Nagios::Plugin::Functions::nagios_die("Test OK exit", 0) };

fail("Should not get here if code works correctly because prior nagios_die should have exited");