From 44a321cb8a42d6c0ea2d96a1086a17f2134c89cc Mon Sep 17 00:00:00 2001
From: Ethan Galstad <egalstad@users.sourceforge.net>
Date: Thu, 28 Feb 2002 06:42:51 +0000
Subject: Initial revision

git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@2 f882894a-f735-0410-b71e-b25c423dba1c
---
 opttest.pl | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100755 opttest.pl

(limited to 'opttest.pl')

diff --git a/opttest.pl b/opttest.pl
new file mode 100755
index 00000000..85e3b494
--- /dev/null
+++ b/opttest.pl
@@ -0,0 +1,50 @@
+#!/usr/bin/perl -w
+use strict;
+use Test;
+
+use vars qw($dir $file $prog $idx $state $output %progs @dirs);
+
+my $tests = 0;
+
+@dirs = qw(plugins plugins-scripts);
+
+foreach $dir (@dirs) {
+	opendir(DIR, $dir) || die "can't opendir $dir: $!";
+	while ($file = readdir(DIR)) {
+		if (-x "$dir/$file" && -f "$dir/$file") {
+			$tests++;
+			$progs{"$dir/$file"} = $file;
+		}
+	}
+	closedir DIR;
+}
+
+plan tests => $tests;
+
+for $prog (keys %progs) {
+	$state = 0;
+	$file = `basename $prog`;
+
+	$idx = 1;
+	$output = `$prog -h 2>&1`;
+	if($?) {$state++;print "$prog failed test $idx\n";}
+	unless ($output =~ m/$progs{$prog}/ms) {
+		$idx++; $state++;print "$output\n$prog failed test $idx\n";
+	}
+
+	$idx++;
+	`$prog --help 2>&1 > /dev/null`;
+	if($?) {$state++;print "$prog failed test $idx\n";}
+
+	$idx++;
+		`$prog -V 2>&1 > /dev/null`;
+	if($?) {$state++;print "$prog failed test $idx\n";}
+
+	$idx++;
+	`$prog --version 2>&1 > /dev/null`;
+	if($?) {$state++;print "$prog failed test $idx\n";}
+
+	print "$prog ($idx tests) ";
+	ok $state,0;
+}
+
-- 
cgit v1.2.3-74-g34f1