Changeset 10423

Timestamp:

05/25/06 05:16:00 (3 years ago)

Author:

scw

svk:copy_cache_prev:

13602

Message:

Pugs::Grammar::MiniPerl?6 test updated for cooperation with ratchet later

Files:

• misc/pX/Common/Pugs-Grammar-MiniPerl6/t/basic.t (modified) (1 diff)

misc/pX/Common/Pugs-Grammar-MiniPerl6/t/basic.t

@@ -3 +3 @@
 use Test::More tests => 6;
 use Pugs::Grammar::MiniPerl6;
+use Pugs::Runtime::Match::Ratchet;
 
 sub is_production_match {
     my ($input, $output, @arg) = @_;
-    @_ = (Pugs::Grammar::MiniPerl6->ProductionRule($input)->(),
-          $output, @arg);
-    print "$_[0]\n";
+    my $got = Pugs::Grammar::MiniPerl6->ProductionRule($input);
+    @_ = ("$got", $output, @arg);
     goto \&is;
 }