initial commit of file from CVS for e-smith-test on Wed 12 Jul 09:10:30 BST 2023

root/sbin/e-smith/smoketest

@@ -0,0 +1,62 @@
+#!/usr/bin/perl -w
+#----------------------------------------------------------------------
+# Copyright 1999-2003 Mitel Networks Corporation
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+#----------------------------------------------------------------------
+
+=head1 NAME
+
+smoketest -- run a smoketest on the SMEServer
+
+=head1 SYNOPSIS
+
+  smoketest <test directory>
+
+=head1 DESCRIPTION
+
+This smoketest script walks the given I<test directory> (or
+F</etc/e-smith/tests> if none is given) looking for test scripts
+(F<*.t>).
+
+It runs these tests in turn, through Test::Harness, and generates a
+simple report telling you whether the tests passed or failed.
+
+All tests are run from the I<test directory>.
+
+=head1 AUTHOR
+
+Mitel Networks Corporation.
+
+For more information, see http://www.e-smith.org/
+
+=cut
+
+use strict;
+use File::Find;
+use Test::Harness;
+
+my $testdir = shift || "/etc/e-smith/tests";
+die "$testdir is not a directory\n" unless -d $testdir;
+chdir $testdir or die "Can't chdir into $testdir: $!\n";
+
+my @tests = ();
+find \&wanted, '.';
+# Let's sort to get the order correct
+
+if( @tests ) {
+    print "Running tests in $testdir.\n";
+    local $ENV{PERL5LIB} = '../../../usr/lib/perl5/site_perl';
+    runtests @tests;
+}
+else {
+    warn "No tests found in or below '$testdir'!\n";
+}
+
+sub wanted {
+    push @tests, $File::Find::name if /\.t$/;
+}
+
+
+
+