[Rt-commit] r5672 - in Test-Chimps-Client/trunk: . lib/Test/Chimps

[zev at bestpractical.com]

Author: zev
Date: Fri Jul 28 14:43:03 2006
New Revision: 5672

Modified:
   Test-Chimps-Client/trunk/   (props changed)
   Test-Chimps-Client/trunk/Changes
   Test-Chimps-Client/trunk/examples/chimps-client.pl
   Test-Chimps-Client/trunk/lib/Test/Chimps/Client.pm

Log:
 r11966 at truegrounds:  zev | 2006-07-28 14:42:43 -0400
 * chimps-smoker.pl made into a more functional binary
 * enhanced chimps-client.pl example
 * bumped version number
 


Modified: Test-Chimps-Client/trunk/Changes
==============================================================================
--- Test-Chimps-Client/trunk/Changes	(original)
+++ Test-Chimps-Client/trunk/Changes	Fri Jul 28 14:43:03 2006
@@ -1,5 +1,11 @@
 Revision history for Test-Chimps-Client
 
+0.04    Fri Jul 28 14:29:34 EDT 2006
+        * Test::Chimps::Smoker->smoke can now take number of
+          iterations and which projects to smoke as arguments
+        * chimps-smoker.pl made into a more functional binary
+        * enhanced chimps-client.pl example
+
 0.03    Fri Jul 21 16:22:12 EDT 2006
         * removed accidental use of Test::Chimps
 

Modified: Test-Chimps-Client/trunk/examples/chimps-client.pl
==============================================================================
--- Test-Chimps-Client/trunk/examples/chimps-client.pl	(original)
+++ Test-Chimps-Client/trunk/examples/chimps-client.pl	Fri Jul 28 14:43:03 2006
@@ -5,35 +5,41 @@
 
 use Test::Chimps::Client;
 use Test::TAP::Model::Visual;
+use Getopt::Long;
 
-my $model;
-{
-  local $SIG{ALRM} = sub { die "10 minute timeout exceeded" };
-  alarm 600;
-  print "running tests for $project\n";
-  eval {
-    $model = Test::TAP::Model::Visual->new_with_tests(glob("t/*.t t/*/t/*.t"));
-  };
-  alarm 0;                      # cancel alarm
+my $server;
+my $tests = "t/*.t t/*/*.t";
+
+my $result = GetOptions("server|s=s", \$server,
+                        "tests|t=s", \$tests);
+
+if (! $result) {
+  print "Error during argument processing\n";
+  exit 1;
 }
-        
-if ($@) {
-  print "Tests aborted: $@\n";
+
+if (! defined $server) {
+  print "You must specify a server to upload results to\n";
+  exit 1;
 }
 
+print "running tests\n";
+my $model = Test::TAP::Model::Visual->new_with_tests(glob($tests));
+
 my $duration = $model->structure->{end_time} - $model->structure->{start_time};
 
 my $client = Test::Chimps::Client->new(
   model  => $model,
-  server => 'http://example.com/cgi-bin/chimps-server.pl',
+  server => $server,
   {
-    project   => $project,
-    revision  => $revision,
-    committer => $committer,
-    duration  => $duration,
-    osname    => $Config{osname},
-    osvers    => $Config{osvers},
-    archname  => $Config{archname}
+# put the variables your Chimps server requires below
+#     project   => $project,
+#     revision  => $revision,
+#     committer => $committer,
+#     duration  => $duration,
+#     osname    => $Config{osname},
+#     osvers    => $Config{osvers},
+#     archname  => $Config{archname}
   }
 );
 

Modified: Test-Chimps-Client/trunk/lib/Test/Chimps/Client.pm
==============================================================================
--- Test-Chimps-Client/trunk/lib/Test/Chimps/Client.pm	(original)
+++ Test-Chimps-Client/trunk/lib/Test/Chimps/Client.pm	Fri Jul 28 14:43:03 2006
@@ -16,11 +16,11 @@
 
 =head1 VERSION
 
-Version 0.03
+Version 0.04
 
 =cut
 
-our $VERSION = '0.03';
+our $VERSION = '0.04';
 
 =head1 SYNOPSIS