Author: fperrad
Date: Sun Nov 30 13:30:29 2008
New Revision: 33380
Modified:
trunk/languages/lua/src/lib/mathx.pir
trunk/languages/lua/t/mathx.t
Log:
[Lua] mathx
- add infinity & nan
Modified: trunk/languages/lua/src/lib/mathx.pir
==============================================================================
--- trunk/languages/lua/src/lib/mathx.pir (original)
+++ trunk/languages/lua/src/lib/mathx.pir Sun Nov 30 13:30:29 2008
@@ -73,12 +73,14 @@
lua_register($P1, _mathx, $P2)
new $P0, 'LuaNumber'
- set $P0, 0 # TODO
+ set $N0, 'Inf'
+ set $P0, $N0
set $P1, 'infinity'
_mathx[$P1] = $P0
new $P0, 'LuaNumber'
- set $P0, 0 # TODO
+ set $N0, 'NaN'
+ set $P0, $N0
set $P1, 'nan'
_mathx[$P1] = $P0
Modified: trunk/languages/lua/t/mathx.t
==============================================================================
--- trunk/languages/lua/t/mathx.t (original)
+++ trunk/languages/lua/t/mathx.t Sun Nov 30 13:30:29 2008
@@ -22,7 +22,7 @@
use FindBin;
use lib "$FindBin::Bin";
-use Parrot::Test tests => 2;
+use Parrot::Test tests => 4;
use Parrot::Config;
use Test::More;
use Parrot::Test::Lua;
@@ -34,6 +34,24 @@
/^3\.14/
OUTPUT
+language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'infinity' );
+require 'mathx'
+print(type(math.infinity))
+print(math.infinity)
+CODE
+number
+inf
+OUTPUT
+
+language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'nan' );
+require 'mathx'
+print(type(math.nan))
+print(math.nan)
+CODE
+number
+nan
+OUTPUT
+
language_output_like( 'lua', << 'CODE', << 'OUTPUT', 'function log2' );
require 'mathx'
print(math.log2(47))
