1 files changed, 56 insertions, 0 deletions

diff --git a/plugins/tests/check_snmp.t b/plugins/tests/check_snmp.t
new file mode 100755
index 0000000..fcd15ea
--- /dev/null
+++ b/plugins/tests/check_snmp.t
@@ -0,0 +1,56 @@
+#! /usr/bin/perl -w -I ..
+#
+# Test check_snmp by having an actual SNMP agent running
+#
+
+use strict;
+use Test::More;
+use NPTest;
+use FindBin qw($Bin);
+
+my $port_snmp = 16100 + int(rand(100));
+my $running = 1;
+
+
+# Start up server
+my @pids;
+my $pid = fork();
+if ($pid) {
+        # Parent
+        push @pids, $pid;
+        # give our agent some time to startup
+        sleep(1);
+} else {
+        # Child
+        #print "child\n";
+
+        print "Please contact SNMP at: $port_snmp\n";
+        close(STDERR); # Coment out to debug snmpd problems (most errors sent there are OK)
+        exec("snmpd -c tests/conf/snmpd.conf -C -f -r udp:$port_snmp");
+}
+
+END { 
+        foreach my $pid (@pids) {
+                if ($pid) { print "Killing $pid\n"; kill "INT", $pid } 
+        }
+};
+
+if ($ARGV[0] && $ARGV[0] eq "-d") {
+        while (1) {
+                sleep 100;
+        }
+}
+
+my $tests = 2;
+if (-x "./check_snmp") {
+        plan tests => $tests;
+} else {
+        plan skip_all => "No check_snmp compiled";
+}
+
+my $res;
+
+$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.0");
+cmp_ok( $res->return_code, '==', 0, "Exit OK when querying a multi-line string" );
+like($res->output, '/^SNMP OK - /', "String contains SNMP OK");
+