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

[svn:parrot] r21544 - trunk/languages/lua/t

Subject: [svn:parrot] r21544 - trunk/languages/lua/t
From:
Date: Mon, 24 Sep 2007 22:53:12 -0700 PDT
Newsgroups: perl.cvs.parrot

Author: fperrad
Date: Mon Sep 24 22:53:11 2007
New Revision: 21544

Modified:
   trunk/languages/lua/t/io.t
   trunk/languages/lua/t/os.t
   trunk/languages/lua/t/test-from-lua.t

Log:
[Lua]
- fix some tests

Modified: trunk/languages/lua/t/io.t
==============================================================================
--- trunk/languages/lua/t/io.t  (original)
+++ trunk/languages/lua/t/io.t  Mon Sep 24 22:53:11 2007
@@ -150,8 +150,8 @@
 OUTPUT
 unlink('../output.new') if ( -f '../output.new' );
 
-SKIP: {
-    skip('pipe not yet implemented on Win32', 1) if ($^O eq 'MSWin32');
+TODO: {
+    local $TODO = 'pipe not yet implemented';
 
 language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'io.popen' );
 f = io.popen("perl -e \"print 'standard output'\"")

Modified: trunk/languages/lua/t/os.t
==============================================================================
--- trunk/languages/lua/t/os.t  (original)
+++ trunk/languages/lua/t/os.t  Mon Sep 24 22:53:11 2007
@@ -184,7 +184,7 @@
 /^\d+/
 OUTPUT
 
-language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'function os.time' );
+language_output_like( 'lua', << 'CODE', << 'OUTPUT', 'function os.time' );
 print(os.time({
     sec = 0,
     min = 0,
@@ -204,8 +204,7 @@
     isdst = 0,
 }))
 CODE
-946677600
-nil
+/^946\d+\nnil\n$/
 OUTPUT
 
 language_output_like( 'lua', << 'CODE', << 'OUTPUT', 'function os.time 
(missing field)' );

Modified: trunk/languages/lua/t/test-from-lua.t
==============================================================================
--- trunk/languages/lua/t/test-from-lua.t       (original)
+++ trunk/languages/lua/t/test-from-lua.t       Mon Sep 24 22:53:11 2007
@@ -84,10 +84,8 @@
 #
 
 $code = Parrot::Test::slurp_file(File::Spec->catfile( @dir, 'echo.lua' ));
-language_output_is( 'lua', $code, << 'OUTPUT', 'echo', params => 'arg1 arg2' );
-0      languages/lua/t/test-from-lua_3.lua
-1      arg1
-2      arg2
+language_output_like( 'lua', $code, << 'OUTPUT', 'echo', params => 'arg1 arg2' 
);
+/^0\tlanguages.lua.t.test-from-lua_3\.lua\n1\targ1\n2\targ2\n/
 OUTPUT
 
 #
@@ -106,7 +104,7 @@
 
 $code = Parrot::Test::slurp_file(File::Spec->catfile( @dir, 'fib.lua' ));
 language_output_like( 'lua', $code, << 'OUTPUT', 'fib' );
-/^\tn\tvalue\ttime\tevals\nplain\t24\t46368\t\d+(\.\d+)?\t150049\ncached\t24\t46368\t0\t25\n/
+/^\tn\tvalue\ttime\tevals\nplain\t24\t46368\t\d+(\.\d+)?\t150049\ncached\t24\t46368\t\d+(\.\d+)?\t25\n/
 OUTPUT
 
 #

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r21544 - trunk/languages/lua/t, fperrad <=