perl.cvs.parrot
[Top] [All Lists]

[svn:parrot] r24616 - trunk/languages/punie/t

Subject: [svn:parrot] r24616 - trunk/languages/punie/t
From:
Date: Sun, 6 Jan 2008 08:09:33 -0800 PST
Newsgroups: perl.cvs.parrot

Author: kjs
Date: Sun Jan  6 08:09:33 2008
New Revision: 24616

Modified:
   trunk/languages/punie/t/base_loop.t

Log:
[punie] rewrite basic for loop test, now that the grammar/actions have been 
fixed.

Modified: trunk/languages/punie/t/base_loop.t
==============================================================================
--- trunk/languages/punie/t/base_loop.t (original)
+++ trunk/languages/punie/t/base_loop.t Sun Jan  6 08:09:33 2008
@@ -40,10 +40,8 @@
 
 language_output_is( 'punie', <<'CODE', <<'OUT', 'for loop' );
 
-$x = 1;
-for (; $x <= 5; ) {
+for ($x = 1; $x <= 5; $x = $x + 1) {
     print "ok "; print $x; print "\n";
-    $x = $x + 1;
 }
 CODE
 ok 1

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r24616 - trunk/languages/punie/t, kjs <=