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

[sartak at bestpractical.com]

Author: sartak
Date: Sat May 10 20:40:22 2008
New Revision: 12218

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

Log:
 r55527 at onn:  sartak | 2008-05-10 20:40:12 -0400
 Prevent a bunch of undef warnings in one of the tests


Modified: Prophet/trunk/lib/Prophet/Test/Arena.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Test/Arena.pm	(original)
+++ Prophet/trunk/lib/Prophet/Test/Arena.pm	Sat May 10 20:40:22 2008
@@ -95,9 +95,11 @@
 sub step {
     my $self = shift;
     my $step_name = shift || undef;
+    my $step_display = defined($step_name) ? $step_name : "(undef)";
+
     for my $chicken ( @{ $self->chickens } ) {
 
-        diag(" as ".$chicken->name. ": $step_name");
+        diag(" as ".$chicken->name. ": $step_display");
         # 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 );