Author: fperrad
Date: Wed Jan 11 05:12:49 2006
New Revision: 11084
Modified:
trunk/languages/lua/t/basic.t
trunk/languages/lua/t/expr.t
trunk/languages/lua/t/pmc/function.t
trunk/languages/lua/t/pmc/thread.t
Log:
Lua:
- SKIP become TODO
Modified: trunk/languages/lua/t/basic.t
==============================================================================
--- trunk/languages/lua/t/basic.t (original)
+++ trunk/languages/lua/t/basic.t Wed Jan 11 05:12:49 2006
@@ -87,8 +87,8 @@ CODE
number
OUTPUT
-SKIP: {
-skip("tonumber !", 1);
+TODO: {
+local $TODO = "tonumber !";
language_output_is( 'lua', << 'CODE', << 'OUTPUT', "function tonumber");
a = "text12"
Modified: trunk/languages/lua/t/expr.t
==============================================================================
--- trunk/languages/lua/t/expr.t (original)
+++ trunk/languages/lua/t/expr.t Wed Jan 11 05:12:49 2006
@@ -1,5 +1,5 @@
#! perl -w
-# Copyright: 2005 The Perl Foundation. All Rights Reserved.
+# Copyright: 2005-2006 The Perl Foundation. All Rights Reserved.
# $Id$
=head1 NAME
@@ -23,9 +23,10 @@ use FindBin;
use lib "$FindBin::Bin";
use Parrot::Test tests => 6;
+use Test::More;
-SKIP: {
-skip("pb convertion.", 3);
+TODO: {
+local $TODO = "pb convertion.";
language_output_is( 'lua', <<'CODE', <<'OUT', 'relational op (by reference)' );
a = {}; a.x = 1; a.y = 0;
@@ -101,4 +102,3 @@ Hello World
Hello
OUT
-
Modified: trunk/languages/lua/t/pmc/function.t
==============================================================================
--- trunk/languages/lua/t/pmc/function.t (original)
+++ trunk/languages/lua/t/pmc/function.t Wed Jan 11 05:12:49 2006
@@ -1,5 +1,5 @@
#! perl -w
-# Copyright: 2005 The Perl Foundation. All Rights Reserved.
+# Copyright: 2005-2006 The Perl Foundation. All Rights Reserved.
# $Id$
=head1 NAME
@@ -159,8 +159,8 @@ false
boolean
OUTPUT
-SKIP: {
-skip("not implemented.", 2);
+TODO: {
+local $TODO = "not implemented.";
pir_output_is(<< 'CODE', << 'OUTPUT', "check HLL");
.HLL "Lua", "lua_group"
Modified: trunk/languages/lua/t/pmc/thread.t
==============================================================================
--- trunk/languages/lua/t/pmc/thread.t (original)
+++ trunk/languages/lua/t/pmc/thread.t Wed Jan 11 05:12:49 2006
@@ -1,5 +1,5 @@
#! perl -w
-# Copyright: 2005 The Perl Foundation. All Rights Reserved.
+# Copyright: 2005-2006 The Perl Foundation. All Rights Reserved.
# $Id$
=head1 NAME
@@ -155,8 +155,8 @@ false
boolean
OUTPUT
-SKIP: {
-skip("not implemented.", 2);
+TODO: {
+local $TODO = "not implemented.";
pir_output_is(<< 'CODE', << 'OUTPUT', "check HLL");
.HLL "Lua", "lua_group"
