open-autonomous-connection/luaj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 2 Wiki Activity

Improve __eq metatag processing.

Browse Source
This commit is contained in:
James Roseborough
2010-08-19 18:08:14 +00:00
parent 0d50184e8f
commit 8cee98befd
8 changed files with 61 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
test/junit/org/luaj/vm2/UnaryBinaryOperatorsTest.java
View File

@@ -176,6 +176,15 @@ public class UnaryBinaryOperatorsTest extends TestCase {
// check arithmetic equality among different types
assertEquals(ia.eq(sa),LuaValue.FALSE);
assertEquals(sa.eq(ia),LuaValue.FALSE);
// equals with mismatched types
LuaValue t = new LuaTable();
assertEquals(ia.eq(t),LuaValue.FALSE);
assertEquals(t.eq(ia),LuaValue.FALSE);
assertEquals(ia.eq(LuaValue.FALSE),LuaValue.FALSE);
assertEquals(LuaValue.FALSE.eq(ia),LuaValue.FALSE);
assertEquals(ia.eq(LuaValue.NIL),LuaValue.FALSE);
assertEquals(LuaValue.NIL.eq(ia),LuaValue.FALSE);
}
public void testEqDouble() {
@@ -191,6 +200,15 @@ public class UnaryBinaryOperatorsTest extends TestCase {
// check arithmetic equality among different types
assertEquals(da.eq(sa),LuaValue.FALSE);
assertEquals(sa.eq(da),LuaValue.FALSE);
// equals with mismatched types
LuaValue t = new LuaTable();
assertEquals(da.eq(t),LuaValue.FALSE);
assertEquals(t.eq(da),LuaValue.FALSE);
assertEquals(da.eq(LuaValue.FALSE),LuaValue.FALSE);
assertEquals(LuaValue.FALSE.eq(da),LuaValue.FALSE);
assertEquals(da.eq(LuaValue.NIL),LuaValue.FALSE);
assertEquals(LuaValue.NIL.eq(da),LuaValue.FALSE);
}
public void testAdd() {

13
test/lua/metatags.lua
View File

@@ -3,7 +3,8 @@ local anumber = 111
local aboolean = false
local afunction = function() end
local athread = coroutine.create( afunction )
local values = { anumber, aboolean, afunction, athread }
local atable = {}
local values = { anumber, aboolean, afunction, athread, atable }
for i=1,#values do
print( debug.getmetatable( values[i] ) )
end
@@ -68,7 +69,7 @@ for i=1,#values do
end
print( '---- __add, __sub, __mul, __div, __pow, __mod' )
local groups = { {aboolean, aboolean}, {aboolean, athread}, {aboolean, afunction}, {aboolean, "abc"} }
local groups = { {aboolean, aboolean}, {aboolean, athread}, {aboolean, afunction}, {aboolean, "abc"}, {aboolean, atable} }
for i=1,#groups do
local a,b = groups[i][1], groups[i][2]
print( type(a), type(b), 'before', ecall( 'attempt to perform arithmetic', function() return a+b end ) )
@@ -106,7 +107,7 @@ for i=1,#values do
end
print( '---- __neg' )
values = { aboolean, afunction, athread, "abcd" }
values = { aboolean, afunction, athread, "abcd", atable }
for i=1,#values do
print( type(values[i]), 'before', ecall( 'attempt to get length of ', function() return #values[i] end ) )
print( debug.setmetatable( values[i], mt ) )
@@ -118,7 +119,7 @@ print( '---- __eq, __lt, __le, same types' )
local bfunction = function() end
local bthread = coroutine.create( bfunction )
local groups
groups = { {afunction, bfunction}, {true, true}, {true, false}, {afunction, bfunction}, {athread, bthread}, }
groups = { {afunction, bfunction}, {true, true}, {true, false}, {afunction, bfunction}, {athread, bthread}, {atable, atable}, {atable, {}} }
for i=1,#groups do
local a,b = groups[i][1], groups[i][2]
print( type(a), type(b), 'before', pcall( function() return a==b end ) )
@@ -162,7 +163,7 @@ for i=1,#groups do
end
print( '---- __tostring' )
values = { aboolean, afunction, athread }
values = { aboolean, afunction, athread, atable, "abc" }
for i=1,#values do
local a = values[i]
print( debug.setmetatable( a, mt ) )
@@ -171,7 +172,7 @@ for i=1,#values do
end
print( '---- __metatable' )
values = { aboolean, afunction, athread }
values = { aboolean, afunction, athread, atable, "abc" }
for i=1,#values do
local a = values[i]
print( type(a), 'before', pcall( function() return debug.getmetatable(a), getmetatable(a) end ) )