lintian: r18 - trunk/testset

[jeroen@wolffelaar.nl]

Author: jeroen
Date: 2004-02-08 23:41:18 +0100 (Sun, 08 Feb 2004)
New Revision: 18

Modified:
   trunk/testset/runtests
Log:
runtests now accepts optional 3rd parameter to only run just one package test
(makes writing, debugging and fixing tests easier).


Modified: trunk/testset/runtests
===================================================================
--- trunk/testset/runtests	2004-02-08 22:08:05 UTC (rev 17)
+++ trunk/testset/runtests	2004-02-08 22:41:18 UTC (rev 18)
@@ -22,12 +22,14 @@
 
 sub usage {
     print <<END;
-Usage: $0 [-k] [-v] testset-directory testing-directory
+Usage: $0 [-k] [-v] testset-directory testing-directory [test]
 
 The -k option means do not stop after one failed test, but try
 them all and report all errors.
 
 The -v option adds extra verbosity, for debugging purposes.
+
+The optional 3rd parameter causes runtests to only run that particular test.
 END
     exit 2;
 }
@@ -71,12 +73,16 @@
 }
 
 # --- Parse directory arguments
-if ($#ARGV != 1) {
+if ($#ARGV < 1 || $#ARGV > 2) {
     usage;
 }
 
 my $testset = shift;
 my $rundir = shift;
+my $singletest;
+if ($#ARGV == 0) {
+    $singletest = shift;
+}
 
 # --- Set and unset environment variables that lintian is sensitive to
 my $LINTIAN_ROOT = $ENV{'LINTIAN_ROOT'};
@@ -131,12 +137,17 @@
 
 # ok, I can make a static lab, now let's test the package checks
 # in temporary labs
-opendir(TESTDIR, $testset)
-    or fail("cannot open $testset: $!\n");
+my @tests;
+if ($singletest) {
+    @tests = ( $singletest );
+} else {
+	opendir(TESTDIR, $testset)
+		or fail("cannot open $testset: $!\n");
 
-my @tests = sort(readdir(TESTDIR));
+	@tests = sort(readdir(TESTDIR));
 
-closedir(TESTDIR);
+	closedir(TESTDIR);
+}
 
 for (@tests) {
     next if $_ eq '.' or $_ eq '..' or $_ eq 'CVS' or $_ eq '.svn';