[Bps-public-commit] r11783 - in Prophet/trunk: .

jesse at bestpractical.com jesse at bestpractical.com
Sat Apr 19 15:05:58 EDT 2008


Author: jesse
Date: Sat Apr 19 15:05:57 2008
New Revision: 11783

Modified:
   Prophet/trunk/   (props changed)
   Prophet/trunk/lib/Prophet/Test/Arena.pm

Log:
 r29865 at 31b:  jesse | 2008-04-19 20:46:25 +0200
 * Added more diag output to the test arena


Modified: Prophet/trunk/lib/Prophet/Test/Arena.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Test/Arena.pm	(original)
+++ Prophet/trunk/lib/Prophet/Test/Arena.pm	Sat Apr 19 15:05:57 2008
@@ -16,6 +16,15 @@
     my @names = ref $count ? @$count : Acme::MetaSyntactic->new->name( pause_id => $count );
 
     my @chickens = map { Prophet::Test::Participant->new( { name => $_, arena => $self } ) } @names;
+    
+    for my $c (@chickens) {
+
+        as_user($c => sub { 
+                    my $p = Prophet::CLI->new();
+                    diag($c => $p->app_handle->handle->uuid);
+            });
+    }
+    
     $self->chickens(@chickens);
 }
 
@@ -88,6 +97,7 @@
     my $step_name = shift || undef;
     for my $chicken ( @{ $self->chickens } ) {
 
+        diag(" as ".$chicken->name. ": $step_name");
         # walk the arena, noting the type of each value
         as_user( $chicken->name, sub { $chicken->take_one_step($step_name) } );
         die if ( grep { !$_ } $TB->summary );



More information about the Bps-public-commit mailing list