mirror of
https://github.com/kikito/middleclass.git
synced 2024-10-05 23:24:17 +00:00
107 lines
3.9 KiB
Lua
107 lines
3.9 KiB
Lua
require 'middleclass'
|
|
|
|
context('Metamethods', function()
|
|
|
|
context('Custom Metamethods', function()
|
|
-- Tests all metamethods. Note that __len is missing (lua makes table length unoverridable)
|
|
-- I'll use a() to note the length of vector "a" (I would have preferred to use #a, but it's not possible)
|
|
-- I'll be using 'a' instead of 'self' on this example since it is shorter
|
|
local Vector= class('Vector')
|
|
function Vector.initialize(a,x,y,z) a.x, a.y, a.z = x,y,z end
|
|
function Vector.__tostring(a) return a.class.name .. '[' .. a.x .. ',' .. a.y .. ',' .. a.z .. ']' end
|
|
function Vector.__eq(a,b) return a.x==b.x and a.y==b.y and a.z==b.z end
|
|
function Vector.__lt(a,b) return a() < b() end
|
|
function Vector.__le(a,b) return a() <= b() end
|
|
function Vector.__add(a,b) return Vector:new(a.x+b.x, a.y+b.y ,a.z+b.z) end
|
|
function Vector.__sub(a,b) return Vector:new(a.x-b.x, a.y-b.y, a.z-b.z) end
|
|
function Vector.__div(a,s) return Vector:new(a.x/s, a.y/s, a.z/s) end
|
|
function Vector.__unm(a) return Vector:new(-a.x, -a.y, -a.z) end
|
|
function Vector.__concat(a,b) return a.x*b.x+a.y*b.y+a.z*b.z end
|
|
function Vector.__call(a) return math.sqrt(a.x*a.x+a.y*a.y+a.z*a.z) end
|
|
function Vector.__pow(a,b)
|
|
return Vector:new(a.y*b.z-a.z*b.y,a.z*b.x-a.x*b.z,a.x*b.y-a.y*b.x)
|
|
end
|
|
function Vector.__mul(a,b)
|
|
if type(b)=="number" then return Vector:new(a.x*b, a.y*b, a.z*b) end
|
|
if type(a)=="number" then return Vector:new(a*b.x, a*b.y, a*b.z) end
|
|
end
|
|
|
|
local a = Vector:new(1,2,3)
|
|
local b = Vector:new(2,4,6)
|
|
|
|
for metamethod,values in pairs({
|
|
__tostring = { tostring(a), "Vector[1,2,3]" },
|
|
__eq = { a, a},
|
|
__lt = { a<b, true },
|
|
__le = { a<=b, true },
|
|
__add = { a+b, Vector(3,6,9) },
|
|
__sub = { b-a, Vector(1,2,3) },
|
|
__div = { b/2, Vector(1,2,3) },
|
|
__unm = { -a, Vector(-1,-2,-3) },
|
|
__concat = { a..b, 28 },
|
|
__call = { a(), math.sqrt(14) },
|
|
__pow = { a^b, Vector(0,0,0) },
|
|
__mul = { 4*a, Vector(4,8,12) }--,
|
|
--__index = { b[1], 3 }
|
|
}) do
|
|
test(metamethod .. ' works as expected', function()
|
|
assert_equal(values[1], values[2])
|
|
end)
|
|
end
|
|
|
|
context('Inherited Metamethods', function()
|
|
local Vector2= class('Vector2', Vector)
|
|
function Vector2:initialize(x,y,z) Vector.initialize(self,x,y,z) end
|
|
|
|
local c = Vector2:new(1,2,3)
|
|
local d = Vector2:new(2,4,6)
|
|
for metamethod,values in pairs({
|
|
__tostring = { tostring(c), "Vector2[1,2,3]" },
|
|
__eq = { c, c },
|
|
__lt = { c<d, true },
|
|
__le = { c<=d, true },
|
|
__add = { c+d, Vector(3,6,9) },
|
|
__sub = { d-c, Vector(1,2,3) },
|
|
__div = { d/2, Vector(1,2,3) },
|
|
__unm = { -c, Vector(-1,-2,-3) },
|
|
__concat = { c..d, 28 },
|
|
__call = { c(), math.sqrt(14) },
|
|
__pow = { c^d, Vector(0,0,0) },
|
|
__mul = { 4*c, Vector(4,8,12) }
|
|
}) do
|
|
test(metamethod .. ' works as expected', function()
|
|
assert_equal(values[1], values[2])
|
|
end)
|
|
end
|
|
end)
|
|
|
|
end)
|
|
|
|
context('Default Metamethods', function()
|
|
|
|
local Peter, peter
|
|
|
|
before(function()
|
|
Peter = class('Peter')
|
|
peter = Peter()
|
|
end)
|
|
|
|
context('A Class', function()
|
|
test('has a call metamethod properly set', function()
|
|
assert_true(instanceOf(Peter, peter))
|
|
end)
|
|
test('has a tostring metamethod properly set', function()
|
|
assert_equal(tostring(Peter), 'class Peter')
|
|
end)
|
|
end)
|
|
|
|
context('An instance', function()
|
|
test('has a tostring metamethod, returning a different result from Object.__tostring', function()
|
|
assert_not_equal(Peter.__tostring, Object.__tostring)
|
|
assert_equal(tostring(peter), 'instance of class Peter')
|
|
end)
|
|
end)
|
|
end)
|
|
|
|
end)
|