[Bps-public-commit] r11328 - in SVN-PropDB: . lib/Prophet

[jesse at bestpractical.com]

Author: jesse
Date: Tue Apr  1 00:35:35 2008
New Revision: 11328

Modified:
   SVN-PropDB/   (props changed)
   SVN-PropDB/lib/Prophet/Test.pm
   SVN-PropDB/lib/Prophet/Test/Participant.pm

Log:
 r28887 at 70-5-78-234:  jesse | 2008-03-31 18:35:21 -1000
 * run to completion


Modified: SVN-PropDB/lib/Prophet/Test.pm
==============================================================================
--- SVN-PropDB/lib/Prophet/Test.pm	(original)
+++ SVN-PropDB/lib/Prophet/Test.pm	Tue Apr  1 00:35:35 2008
@@ -58,7 +58,7 @@
 #    diag(join(' ', @cmd, @$args));
     my $ret = run3 [@cmd, @$args], undef, \$stdout, \$stderr;
     Carp::croak $stderr if $?;
-    Test::More::diag $stderr;
+    #Test::More::diag $stderr;
     return($ret, $stdout, $stderr);
 }
 

Modified: SVN-PropDB/lib/Prophet/Test/Participant.pm
==============================================================================
--- SVN-PropDB/lib/Prophet/Test/Participant.pm	(original)
+++ SVN-PropDB/lib/Prophet/Test/Participant.pm	Tue Apr  1 00:35:35 2008
@@ -29,7 +29,7 @@
 
 use List::Util qw(shuffle);
 
-my @CHICKEN_DO = qw(create_record create_record delete_record  update_record update_record update_record update_record update_record update_record update_record update_record sync_from_peer sync_from_peer noop);
+my @CHICKEN_DO = qw(create_record create_record delete_record  update_record update_record update_record update_record update_record sync_from_peer sync_from_peer noop);
 
 sub take_one_step {
     my $self = shift;
@@ -70,7 +70,7 @@
 
 sub noop {
     my $self = shift;
-    diag($self->name, ' - NOOP');
+    ok(1, $self->name. ' - NOOP');
 }
 sub delete_record {
     my $self = shift;