From 3dce31e5ca8febbb1a5dbd2439b5a2422feb2391 Mon Sep 17 00:00:00 2001
From: steve <none@none>
Date: Sat, 17 Dec 2005 14:25:23 +0000
Subject: [PATCH] 2005-12-17 14:25:23 by steve   Added test script.

---
 tests/Makefile   | 17 +++++++++++++++++
 tests/modules.sh | 32 ++++++++++++++++++++++++++++++++
 tests/modules.t  | 29 +++++++++++++++++++++++++++++
 3 files changed, 78 insertions(+)
 create mode 100644 tests/Makefile
 create mode 100755 tests/modules.sh
 create mode 100644 tests/modules.t

diff --git a/tests/Makefile b/tests/Makefile
new file mode 100644
index 0000000..615d2fb
--- /dev/null
+++ b/tests/Makefile
@@ -0,0 +1,17 @@
+
+all:
+	@cd ..; perl -MTest::Harness -e '$$Test::Harness::verbose=0; runtests @ARGV;' tests/*.t
+
+verbose:
+	@cd ..; perl -MTest::Harness -e '$$Test::Harness::verbose=1; runtests @ARGV;' tests/*.t
+
+
+modules: .PHONY
+	./modules.sh > modules.t
+
+.PHONY:
+	true
+
+clean:
+
+	rm *~
diff --git a/tests/modules.sh b/tests/modules.sh
new file mode 100755
index 0000000..1209e33
--- /dev/null
+++ b/tests/modules.sh
@@ -0,0 +1,32 @@
+#!/bin/sh
+#
+#  Automatically attempt to create a test which ensures all the modules
+# used in the code are availabe.
+#
+# Steve
+# --
+# http://www.steve.org.uk/
+#
+# $Id: modules.sh,v 1.1 2005-12-17 14:25:23 steve Exp $
+#
+
+cat <<EOF
+#!/usr/bin/perl -w -I..
+#
+#  Test that all the Perl modules we require are available.
+#
+#  This list is automatically generated by modules.sh
+#
+
+use Test::More qw( no_plan );
+
+EOF
+
+
+for i in `rgrep '^use ' .. | awk '{print $2}' | tr -d 
\;\(\) | sort | uniq`; \
+    do \
+     echo "BEGIN{ use_ok( '$i' ); }"; \
+     echo "require_ok( '$i' );" ; \
+     echo -e "\n" ; \
+done
+
diff --git a/tests/modules.t b/tests/modules.t
new file mode 100644
index 0000000..0504df8
--- /dev/null
+++ b/tests/modules.t
@@ -0,0 +1,29 @@
+#!/usr/bin/perl -w -I..
+#
+#  Test that all the Perl modules we require are available.
+#
+#  This list is automatically generated by modules.sh
+#
+
+use Test::More qw( no_plan );
+
+BEGIN{ use_ok( 'File::Copy' ); }
+require_ok( 'File::Copy' );
+
+
+BEGIN{ use_ok( 'File::Temp' ); }
+require_ok( 'File::Temp' );
+
+
+BEGIN{ use_ok( 'Getopt::Long' ); }
+require_ok( 'Getopt::Long' );
+
+
+BEGIN{ use_ok( 'strict' ); }
+require_ok( 'strict' );
+
+
+BEGIN{ use_ok( 'Test::More' ); }
+require_ok( 'Test::More' );
+
+