[Catalyst-commits] r10390 - trunk/examples/SmokeServer/script

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-05-30 13:44:01 +0000 (Sat, 30 May 2009)
New Revision: 10390

Modified:
   trunk/examples/SmokeServer/script/cpan_smoke.pl
Log:
pass extra tags on command line

Modified: trunk/examples/SmokeServer/script/cpan_smoke.pl
===================================================================
--- trunk/examples/SmokeServer/script/cpan_smoke.pl	2009-05-30 13:12:59 UTC (rev 10389)
+++ trunk/examples/SmokeServer/script/cpan_smoke.pl	2009-05-30 13:44:01 UTC (rev 10390)
@@ -10,8 +10,9 @@
 use File::Find::Rule;
 use IO::Handle;
 
-die("$0 http://smokeserver:3000\n") unless scalar(@ARGV);
+die("$0 http://smokeserver:3000 [extra tags]\n") unless scalar(@ARGV);
 my $uri = shift;
+my @extra_tags = @ARGV;
 
 my $dir = "$Bin/../cpan/extracted";
 
@@ -45,7 +46,8 @@
 
     my $report = Test::TAP::Model::Smoke->new($model,
         "cpan.$dist",
-        "cpan.$dist.$dist_version"
+        "cpan.$dist.$dist_version",
+        @extra_tags
     );
 
     my $result = $report->upload($uri . "/upload");