r1876 - trunk/varnish-tools/regress

[des at projects.linpro.no]

Author: des
Date: 2007-08-20 11:42:01 +0200 (Mon, 20 Aug 2007)
New Revision: 1876

Modified:
   trunk/varnish-tools/regress/varnish-regress.pl
Log:
If the first and only argument is 'list', list all available test cases.


Modified: trunk/varnish-tools/regress/varnish-regress.pl
===================================================================
--- trunk/varnish-tools/regress/varnish-regress.pl	2007-08-20 09:40:54 UTC (rev 1875)
+++ trunk/varnish-tools/regress/varnish-regress.pl	2007-08-20 09:42:01 UTC (rev 1876)
@@ -62,9 +62,15 @@
 	or usage();
 
     my $controller = new Varnish::Test;
+    my @all_cases = $controller->cases();
 
+    if (@ARGV == 1 && $ARGV[0] eq 'list') {
+	print join(' ', @all_cases), "\n";
+	exit 0;
+    }
+
     if (!@ARGV) {
-	@ARGV = $controller->cases();
+	@ARGV = @all_cases;
     } else {
 	map { s/^(\d+)$/sprintf('Ticket%03d', $1)/e } @ARGV;
     }