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

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

From:
fperrad
Date:
December 8, 2008 08:35
Subject:
[svn:parrot] r33658 - in trunk/languages/lua: src/pmc t/pmc
Message ID:
20081208163505.5E101CB9AF@x12.develooper.com
Author: fperrad
Date: Mon Dec  8 08:35:03 2008
New Revision: 33658

Modified:
   trunk/languages/lua/src/pmc/luanumber.pmc
   trunk/languages/lua/t/pmc/number.t
   trunk/languages/lua/t/pmc/string.t

Log:
[Lua] box
- test the opcode 'box' with the HLL 'Lua'
- now, LuaNumber PMC maps Float & Integer


Modified: trunk/languages/lua/src/pmc/luanumber.pmc
==============================================================================
--- trunk/languages/lua/src/pmc/luanumber.pmc	(original)
+++ trunk/languages/lua/src/pmc/luanumber.pmc	Mon Dec  8 08:35:03 2008
@@ -32,6 +32,7 @@
     dynpmc
     group    lua_group
     hll      Lua
+    maps     Integer
     maps     Float {
 
 /*

Modified: trunk/languages/lua/t/pmc/number.t
==============================================================================
--- trunk/languages/lua/t/pmc/number.t	(original)
+++ trunk/languages/lua/t/pmc/number.t	Mon Dec  8 08:35:03 2008
@@ -20,7 +20,7 @@
 use strict;
 use warnings;
 
-use Parrot::Test tests => 11;
+use Parrot::Test tests => 13;
 use Test::More;
 
 pir_output_is( << 'CODE', << 'OUTPUT', 'check inheritance' );
@@ -208,6 +208,42 @@
 1
 OUTPUT
 
+pir_output_is( << 'CODE', << 'OUTPUT', 'check box float' );
+.HLL 'Lua'
+.loadlib 'lua_group'
+.sub _main
+    .local pmc pmc1
+    box pmc1, 3.14
+    print pmc1
+    print "\n"
+    .local int bool1
+    bool1 = isa pmc1, 'LuaNumber'
+    print bool1
+    print "\n"
+.end
+CODE
+3.14
+1
+OUTPUT
+
+pir_output_is( << 'CODE', << 'OUTPUT', 'check box integer' );
+.HLL 'Lua'
+.loadlib 'lua_group'
+.sub _main
+    .local pmc pmc1
+    box pmc1, -2
+    print pmc1
+    print "\n"
+    .local int bool1
+    bool1 = isa pmc1, 'LuaNumber'
+    print bool1
+    print "\n"
+.end
+CODE
+-2
+1
+OUTPUT
+
 pir_output_is( << 'CODE', << 'OUTPUT', 'check tostring' );
 .HLL 'Lua'
 .loadlib 'lua_group'

Modified: trunk/languages/lua/t/pmc/string.t
==============================================================================
--- trunk/languages/lua/t/pmc/string.t	(original)
+++ trunk/languages/lua/t/pmc/string.t	Mon Dec  8 08:35:03 2008
@@ -20,7 +20,7 @@
 use strict;
 use warnings;
 
-use Parrot::Test tests => 14;
+use Parrot::Test tests => 15;
 use Test::More;
 
 pir_output_is( << 'CODE', << 'OUTPUT', 'check inheritance' );
@@ -213,6 +213,24 @@
 1
 OUTPUT
 
+pir_output_is( << 'CODE', << 'OUTPUT', 'check box' );
+.HLL 'Lua'
+.loadlib 'lua_group'
+.sub _main
+    .local pmc pmc1
+    box pmc1, "simple string"
+    print pmc1
+    print "\n"
+    .local int bool1
+    bool1 = isa pmc1, 'LuaString'
+    print bool1
+    print "\n"
+.end
+CODE
+simple string
+1
+OUTPUT
+
 pir_output_is( << 'CODE', << 'OUTPUT', 'check is_equal (RT #60292)' );
 .HLL 'Lua'
 .loadlib 'lua_group'



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