@@ -21,6 +21,7 @@ t/attributes.t t/commandline.t t/constructor.t t/mock.t +t/timeout.t xt/clean-namespaces.t xt/consistent-version.t xt/critic.t MANIFEST @@ -9,7 +9,7 @@ use HTTP::Status 5.817 qw(:constants); use Test::More 0.82; use Test::MockObject; -plan tests => 67; +plan tests => 61; # Create a mock LWP::UserAgent my $fake_ua = Test::MockObject->new; @@ -165,19 +165,6 @@ foreach my $test_url (sort keys %test) { check_url($plugin, 'http://example.net/nagios/no_status', $Nagios::Plugin::OverHTTP::STATUS_CRITICAL, qr//ms, 'No status successfully critical'); } -############################## -# TIMEOUT TESTS -isnt($plugin->has_timeout, 1, 'Has not timeout yet'); -$plugin->timeout(10); -is($plugin->has_timeout, 1, 'Has timeout'); -is($plugin->timeout, 10, 'Timeout set'); -$plugin->url('http://example.net/nagios/check_time_15'); -is($plugin->status, 2, 'Timeout should be CRITICAL'); -$plugin->url('http://example.net/nagios/check_time_6'); -is($plugin->status, 0, 'Timeout did not occur'); -$plugin->clear_timeout; -isnt($plugin->has_timeout, 1, 'Timeout cleared'); - exit 0; sub check_url { t/mock.t 984f3a5934677bef6173c6051019cee171b93993 Douglas Christopher Wilson dougwilson@live.com http://github.com/dougwilson/perl5-nagios-plugin-overhttp/commit/1d8ec966e73819ce93da7170c505559b8bfbb636 1d8ec966e73819ce93da7170c505559b8bfbb636 2009-10-23T14:32:15-07:00 2009-10-23T14:32:15-07:00 Factor out the timeout tests 13671ba3a14b8b49ec640547a96b278d7483d153 Douglas Christopher Wilson dougwilson@live.com