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

jesse at bestpractical.com jesse at bestpractical.com
Sat Nov 8 23:53:44 EST 2008


Author: jesse
Date: Sat Nov  8 23:53:44 2008
New Revision: 16776

Modified:
   Prophet/trunk/Makefile.PL
   Prophet/trunk/lib/Prophet/Test/Arena.pm
   Prophet/trunk/lib/Prophet/Test/Participant.pm

Log:
* Remove dependency on Acme::MetaSyntactic

Modified: Prophet/trunk/Makefile.PL
==============================================================================
--- Prophet/trunk/Makefile.PL	(original)
+++ Prophet/trunk/Makefile.PL	Sat Nov  8 23:53:44 2008
@@ -57,7 +57,6 @@
     'Maintainer testing tools' => [
         -default   => 1,
         'Test::HTTP::Server::Simple',
-        'Acme::MetaSyntactic',
         'YAML::Syck' => 0,
         'Test::WWW::Mechanize' => '1.16',
         'Test::Pod::Coverage'

Modified: Prophet/trunk/lib/Prophet/Test/Arena.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Test/Arena.pm	(original)
+++ Prophet/trunk/lib/Prophet/Test/Arena.pm	Sat Nov  8 23:53:44 2008
@@ -25,14 +25,13 @@
 );
 
 use Prophet::Test::Participant;
-use Acme::MetaSyntactic;
 use Prophet::Test;
 use YAML::Syck ();
 
 sub setup {
     my $self  = shift;
     my $count = shift;
-    my @names = ref $count ? @$count : Acme::MetaSyntactic->new->name( pause_id => $count );
+    my @names = ref $count ? @$count : ( map { "person" . $_ } (1..$count));
 
     my @chickens = map { Prophet::Test::Participant->new( { name => $_, arena => $self } ) } @names;
     

Modified: Prophet/trunk/lib/Prophet/Test/Participant.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Test/Participant.pm	(original)
+++ Prophet/trunk/lib/Prophet/Test/Participant.pm	Sat Nov  8 23:53:44 2008
@@ -34,8 +34,8 @@
 }
 
 sub _random_props {
-    my @prop_values = Acme::MetaSyntactic->new->name( batman => 5 );
-    my @prop_keys   = Acme::MetaSyntactic->new->name( lotr   => 5 );
+    my @prop_values = qw(A B C D E);
+    my @prop_keys   = qw(1 2 3 4 5);
 
     return ( map { "--" . $prop_keys[$_] => $prop_values[$_] } ( 0 .. 4 ) );
 
@@ -52,7 +52,7 @@
     }
 
     if ( int( rand(10) < 3 ) ) {
-        $props{ Acme::MetaSyntactic->new->name('lotr') } = Acme::MetaSyntactic->new->name('batman');
+        $props{int(rand(5))+1 } = chr(rand(5)+65);
     }
 
     return %props;



More information about the Bps-public-commit mailing list