r1876 - trunk/varnish-tools/regress
des at projects.linpro.no
des at projects.linpro.no
Mon Aug 20 11:42:01 CEST 2007
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;
}
More information about the varnish-commit
mailing list