develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34376 - in trunk/languages/lua: src t

From:
fperrad
Date:
December 26, 2008 04:10
Subject:
[svn:parrot] r34376 - in trunk/languages/lua: src t
Message ID:
20081226121050.1097ECBA12@x12.develooper.com
Author: fperrad
Date: Fri Dec 26 04:10:49 2008
New Revision: 34376

Modified:
   trunk/languages/lua/src/POSTGrammar.tg
   trunk/languages/lua/t/shootout.t

Log:
[Lua]
- fix lexical generation
- unTODO some test

Modified: trunk/languages/lua/src/POSTGrammar.tg
==============================================================================
--- trunk/languages/lua/src/POSTGrammar.tg	(original)
+++ trunk/languages/lua/src/POSTGrammar.tg	Fri Dec 26 04:10:49 2008
@@ -976,6 +976,9 @@
     ops.'push_pirop'('.local pmc', pname)
     ops.'push_pirop'('.lex', lname, pname, 'result'=>pname)
     storage_lex[name] = pname
+    ops.'push_pirop'('set', pname, 'node'=>node)
+    ops.'result'(pname)
+    .return (ops)
   L3:
     ops.'push_pirop'('store_lex', lname, 'node'=>node)
     ops.'result'(lname)

Modified: trunk/languages/lua/t/shootout.t
==============================================================================
--- trunk/languages/lua/t/shootout.t	(original)
+++ trunk/languages/lua/t/shootout.t	Fri Dec 26 04:10:49 2008
@@ -59,14 +59,9 @@
 #       Generate and write random DNA sequences
 #
 
-TODO:
-{
-    local $TODO = 'broken';
-
 $code = Parrot::Test::slurp_file( "$FindBin::Bin/shootout/fasta_lua-2.lua" );
 $out = Parrot::Test::slurp_file( "$FindBin::Bin/shootout/fasta-output.txt" );
 language_output_is( 'lua', $code, $out, 'fasta', params => '1000' );
-}
 
 #
 #   pidigits
@@ -111,14 +106,9 @@
 #       Indexed-access to bit-values
 #
 
-TODO:
-{
-    local $TODO = 'broken';
-
 $code = Parrot::Test::slurp_file( "$FindBin::Bin/shootout/nsievebits.lua" );
 $out = Parrot::Test::slurp_file( "$FindBin::Bin/shootout/nsievebits-output.txt" );
 language_output_is( 'lua', $code, $out, 'nsieve-bits' );
-}
 
 #
 #   recursive
@@ -171,9 +161,9 @@
 #       Eigenvalue using the power method
 #
 
-TODO:
+SKIP:
 {
-    local $TODO = 'broken';
+    skip('low memory', 1) unless ($test_prog eq 'lua');
 
 $code = Parrot::Test::slurp_file( "$FindBin::Bin/shootout/spectralnorm_lua-3.lua" );
 $out = Parrot::Test::slurp_file( "$FindBin::Bin/shootout/spectralnorm-output.txt" );
@@ -185,14 +175,9 @@
 #       Symmetrical thread rendez-vous requests
 #
 
-TODO:
-{
-    local $TODO = 'broken';
-
 $code = Parrot::Test::slurp_file( "$FindBin::Bin/shootout/chameneos.lua" );
 $out = Parrot::Test::slurp_file( "$FindBin::Bin/shootout/chameneos-output.txt" );
 language_output_is( 'lua', $code, $out, 'chameneos', params => '100' );
-}
 
 #
 #   reverse-complement



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About