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

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-06-01 20:26:14 +0000 (Mon, 01 Jun 2009)
New Revision: 10411

Modified:
   trunk/examples/SmokeServer/script/cpan_smoke.pl
Log:
smoker improvements

Modified: trunk/examples/SmokeServer/script/cpan_smoke.pl
===================================================================
--- trunk/examples/SmokeServer/script/cpan_smoke.pl	2009-06-01 20:06:10 UTC (rev 10410)
+++ trunk/examples/SmokeServer/script/cpan_smoke.pl	2009-06-01 20:26:14 UTC (rev 10411)
@@ -9,6 +9,7 @@
 use Test::TAP::Model::Smoke;
 use File::Find::Rule;
 use IO::Handle;
+use File::Spec::Functions 'splitdir';
 
 # these hang, or do other nasty things
 my @SKIP = (qw/
@@ -17,8 +18,8 @@
 my %SKIP;
 @SKIP{@SKIP} = (1) x @SKIP;
 
-die("$0 http://smokeserver:3000 [extra tags]\n") unless scalar(@ARGV);
-my $uri = shift;
+warn("$0 http://smokeserver:3000 [extra tags]\n") unless scalar(@ARGV);
+my $uri = shift || 'http://localhost:3001';
 my @extra_tags = @ARGV;
 
 my $dir = "$Bin/../cpan/extracted";
@@ -33,6 +34,18 @@
 @dists{@dist_names} = @dists;
 closedir $dists;
 
+# install latest runtime trunk
+system q{
+    cd ~/repos/Catalyst-Runtime/5.80/trunk;
+    svn up;
+    perl Makefile.PL;
+    make
+    make install
+};
+my $runtime_revision =
+qx[cd ~/repos/Catalyst-Runtime/5.80/trunk; svn info | grep '^Revision' | awk '{ print \$2 }'];
+chomp $runtime_revision;
+
 open my $log, '>', "$Bin/../cpan_smoke.log" or die $!;
 $log->autoflush(1);
 
@@ -42,8 +55,9 @@
     my $dist_dir = $dists{$dist};
     chdir "$dir/$dist_dir" or die $!;
 
+    my ($dir) = File::Find::Rule->file->name("${dist_dir}.*")->in("$Bin/../cpan/authors");
+    my $uploader = (splitdir $dir)[-2];
     my ($dist_version) = $dist_dir =~ /^${dist}-(.*)/;
-
     my @test_files = File::Find::Rule->file->name('*.t')->in('t/');
 
     print "*** Now testing $dist version $dist_version\n";
@@ -54,11 +68,10 @@
         . $model->ratio . "\n");
 
     my $report = Test::TAP::Model::Smoke->new($model,
-        "cpan.$dist",
-        "cpan.$dist.$dist_version",
         "module.$dist",
-        "module.$dist.$dist_version",
-        ($model->ok ? () : "fail"),
+        "version.cpan.$dist_version",
+        "uploader.$uploader",
+        "catalyst-runtime.svn.r${runtime_revision}",
         @extra_tags
     );
 
@@ -71,3 +84,5 @@
 }
 
 print "************** DONE ****************\n";
+
+# vim:sts=4 sw=4 et cindent: