Author: fperrad
Date: Tue May 15 02:30:43 2007
New Revision: 18543
Modified:
trunk/languages/lua/t/pmc/closure.t
trunk/languages/lua/t/pmc/function.t
trunk/languages/lua/t/pmc/table.t
trunk/languages/lua/t/pmc/thread.t
trunk/languages/lua/t/pmc/userdata.t
Log:
[Lua]
- t/pmc/*.t: now use pir_error_output_* (see r18533)
- add some anchor
Modified: trunk/languages/lua/t/pmc/closure.t
==============================================================================
--- trunk/languages/lua/t/pmc/closure.t (original)
+++ trunk/languages/lua/t/pmc/closure.t Tue May 15 02:30:43 2007
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2006, The Perl Foundation.
+# Copyright (C) 2006-2007, The Perl Foundation.
# $Id$
=head1 NAME
@@ -110,7 +110,7 @@
end
.end
CODE
-/function: [0-9A-Fa-f]{8}/
+/^function: [0-9A-Fa-f]{8}/
OUTPUT
pir_output_is( << 'CODE', << 'OUTPUT', 'check get_bool' );
@@ -216,7 +216,7 @@
print "\n"
.end
CODE
-/function: [0-9A-Fa-f]{8}\nfunction: [0-9A-Fa-f]{8}\nstring/
+/^function: [0-9A-Fa-f]{8}\nfunction: [0-9A-Fa-f]{8}\nstring/
OUTPUT
pir_output_is( << 'CODE', << 'OUTPUT', 'check tonumber' );
Modified: trunk/languages/lua/t/pmc/function.t
==============================================================================
--- trunk/languages/lua/t/pmc/function.t (original)
+++ trunk/languages/lua/t/pmc/function.t Tue May 15 02:30:43 2007
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2005-2006, The Perl Foundation.
+# Copyright (C) 2005-2007, The Perl Foundation.
# $Id$
=head1 NAME
@@ -110,7 +110,7 @@
end
.end
CODE
-/function: [0-9A-Fa-f]{8}/
+/^function: [0-9A-Fa-f]{8}/
OUTPUT
pir_output_is( << 'CODE', << 'OUTPUT', 'check get_bool' );
@@ -216,7 +216,7 @@
print "\n"
.end
CODE
-/function: [0-9A-Fa-f]{8}\nfunction: [0-9A-Fa-f]{8}\nstring/
+/^function: [0-9A-Fa-f]{8}\nfunction: [0-9A-Fa-f]{8}\nstring/
OUTPUT
pir_output_is( << 'CODE', << 'OUTPUT', 'check tonumber' );
@@ -251,7 +251,7 @@
tmp_1(tmp_1)
.end
CODE
-/function: [0-9A-Fa-f]{8}/
+/^function: [0-9A-Fa-f]{8}/
OUTPUT
# Local Variables:
Modified: trunk/languages/lua/t/pmc/table.t
==============================================================================
--- trunk/languages/lua/t/pmc/table.t (original)
+++ trunk/languages/lua/t/pmc/table.t Tue May 15 02:30:43 2007
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2005-2006, The Perl Foundation.
+# Copyright (C) 2005-2007, The Perl Foundation.
# $Id$
=head1 NAME
@@ -98,7 +98,7 @@
end
.end
CODE
-/table: [0-9A-Fa-f]{8}/
+/^table: [0-9A-Fa-f]{8}/
OUTPUT
pir_output_is( << 'CODE', << 'OUTPUT', 'check get_bool' );
@@ -177,7 +177,7 @@
nil
OUTPUT
-pir_output_like( << 'CODE', << 'OUTPUT', 'check key nil' );
+pir_error_output_like( << 'CODE', << 'OUTPUT', 'check key nil' );
.sub _main
loadlib $P0, 'lua_group'
find_type $I0, 'LuaTable'
@@ -194,7 +194,7 @@
end
.end
CODE
-/table index is nil/
+/^table index is nil/
OUTPUT
pir_output_is( << 'CODE', << 'OUTPUT', 'check deletion by assignment of nil' );
@@ -268,7 +268,7 @@
print "\n"
.end
CODE
-/table: [0-9A-Fa-f]{8}\ntable: [0-9A-Fa-f]{8}\nstring/
+/^table: [0-9A-Fa-f]{8}\ntable: [0-9A-Fa-f]{8}\nstring/
OUTPUT
pir_output_is( << 'CODE', << 'OUTPUT', 'check tonumber' );
Modified: trunk/languages/lua/t/pmc/thread.t
==============================================================================
--- trunk/languages/lua/t/pmc/thread.t (original)
+++ trunk/languages/lua/t/pmc/thread.t Tue May 15 02:30:43 2007
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2005-2006, The Perl Foundation.
+# Copyright (C) 2005-2007, The Perl Foundation.
# $Id$
=head1 NAME
@@ -33,7 +33,7 @@
.const .Sub F1 = 'f1'
find_type $I0, 'LuaThread'
.local pmc pmc1
- pmc1 = new $I0, F1
+ pmc1 = new $I0, F1
.local int bool1
bool1 = isa pmc1, 'scalar'
print bool1
@@ -66,7 +66,7 @@
.const .Sub F1 = 'f1'
find_type $I0, 'LuaThread'
.local pmc pmc1
- pmc1 = new $I0, F1
+ pmc1 = new $I0, F1
.local string str1
str1 = classname pmc1
print str1
@@ -95,7 +95,7 @@
.const .Sub F1 = 'f1'
find_type $I0, 'LuaThread'
.local pmc pmc1
- pmc1 = new $I0, F1
+ pmc1 = new $I0, F1
print pmc1
print "\n"
end
@@ -105,7 +105,7 @@
end
.end
CODE
-/thread: [0-9A-Fa-f]{8}/
+/^thread: [0-9A-Fa-f]{8}/
OUTPUT
pir_output_is( << 'CODE', << 'OUTPUT', 'check get_bool' );
@@ -118,7 +118,7 @@
.const .Sub F1 = 'f1'
find_type $I0, 'LuaThread'
.local pmc pmc1
- pmc1 = new $I0, F1
+ pmc1 = new $I0, F1
.local int bool1
bool1 = istrue pmc1
print bool1
@@ -145,7 +145,7 @@
.const .Sub F1 = 'f1'
find_type $I0, 'LuaThread'
.local pmc pmc1
- pmc1 = new $I0, F1
+ pmc1 = new $I0, F1
.local pmc pmc2
pmc2 = new .LuaBoolean
pmc2 = not pmc1
@@ -175,7 +175,7 @@
.sub _main
.const .Sub F1 = 'f1'
.local pmc pmc1
- pmc1 = new .LuaThread, F1
+ pmc1 = new .LuaThread, F1
.local int bool1
bool1 = isa pmc1, 'LuaThread'
print bool1
@@ -199,7 +199,7 @@
.sub '_main'
.const .Sub F1 = 'f1'
.local pmc pmc1
- pmc1 = new .LuaThread, F1
+ pmc1 = new .LuaThread, F1
print pmc1
print "\n"
$P0 = pmc1.'tostring'()
@@ -215,7 +215,7 @@
end
.end
CODE
-/thread: [0-9A-Fa-f]{8}\nthread: [0-9A-Fa-f]{8}\nstring/
+/^thread: [0-9A-Fa-f]{8}\nthread: [0-9A-Fa-f]{8}\nstring/
OUTPUT
pir_output_is( << 'CODE', << 'OUTPUT', 'check tonumber' );
@@ -227,7 +227,7 @@
.sub '_main'
.const .Sub F1 = 'f1'
.local pmc pmc1
- pmc1 = new .LuaThread, F1
+ pmc1 = new .LuaThread, F1
$P0 = pmc1.'tonumber'()
print $P0
print "\n"
@@ -245,7 +245,7 @@
nil
OUTPUT
-pir_output_like( << 'CODE', << 'OUTPUT', 'check __add' );
+pir_error_output_like( << 'CODE', << 'OUTPUT', 'check __add' );
.HLL 'Lua', 'lua_group'
.sub '__start' :main
load_bytecode 'Parrot/Coroutine.pbc'
@@ -255,7 +255,7 @@
.const .LuaNumber cst1 = '3.14'
.const .Sub F1 = 'f1'
.local pmc pmc1
- pmc1 = new .LuaThread, F1
+ pmc1 = new .LuaThread, F1
$P0 = add pmc1, cst1
end
.end
@@ -264,7 +264,7 @@
end
.end
CODE
-/attempt to perform arithmetic on a thread value/
+/^attempt to perform arithmetic on a thread value/
OUTPUT
# Local Variables:
Modified: trunk/languages/lua/t/pmc/userdata.t
==============================================================================
--- trunk/languages/lua/t/pmc/userdata.t (original)
+++ trunk/languages/lua/t/pmc/userdata.t Tue May 15 02:30:43 2007
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2005-2006, The Perl Foundation.
+# Copyright (C) 2005-2007, The Perl Foundation.
# $Id$
=head1 NAME
@@ -101,7 +101,7 @@
end
.end
CODE
-/userdata: [0-9A-Fa-f]{8}/
+/^userdata: [0-9A-Fa-f]{8}/
OUTPUT
pir_output_is( << 'CODE', << 'OUTPUT', 'check get_bool' );
@@ -184,7 +184,7 @@
print "\n"
.end
CODE
-/userdata: [0-9A-Fa-f]{8}\nuserdata: [0-9A-Fa-f]{8}\nstring/
+/^userdata: [0-9A-Fa-f]{8}\nuserdata: [0-9A-Fa-f]{8}\nstring/
OUTPUT
pir_output_is( << 'CODE', << 'OUTPUT', 'check tonumber' );
