1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
dofile("myassert.lua")
local p = Point:new(1,2)
local q = Point:new()
local x, y = p:get()
local c = {}; q:get(c)
assert(x==1 and y==2)
assert(c[1]==0 and c[2]==0)
q:set(4,5)
p:setconst(q)
local r = p:getpointer();
x,y = r:get()
assert(x==4 and y==5)
local s = Point:new()
s:setref(r)
local t = s:getref()
t:set(5,6) -- t is s
x,y = s:get()
assert(x==5 and y==6)
local u = s:getvalue()
u:set(4,1) -- u represents a copy of s
x,y = s:get()
assert(x~=4 and y~=1)
local x1,y1 = getpoint(u)
local x2,y2 = getpoint(s)
local p1 = alg.add(u,s)
x,y = p1:get()
assert(x==x1+x2 and y==y1+y2)
local p2 = alg.sub(u,s)
x,y = p2:get()
assert(x==x1-x2 and y==y1-y2)
local p3 = alg.mult(u,s)
x,y = p3:get()
assert(x==x1*x2 and y==y1*y2)
local p4 = alg.div(s,2)
x,y = p4:get()
assert(x==x2/2 and y==y2/2)
setpoint(p4)
x,y = p4:get()
assert(x==0 and y==0)
local cp = ColorPoint:MakeRed(3,4)
local p = cp+cp
x,y = p:get()
assert(x==6 and y==8)
local q = p-cp
x,y = q:get()
assert(x==3 and y==4)
local r = p/2
x,y = r:get()
assert(x==3 and y==4)
local t = r*cp
x,y = t:get()
assert(x==9 and y==16)
assert(t==r*r)
-- assert(q==cp) -- the eq does not deal with different metatables
assert(t~=q)
assert(q<t)
assert(q<=t)
assert(t>q)
assert(t>=q)
local p = Point:new(1,2)
assert(p[1]==1 and p[2]==2)
p[1]=3; p[2] = p[2]+2
local x, y = p:get()
assert(x==3 and y==4)
local n = 3
local v = {Point:new(0,1), Point:new(2,3), Point:new(4,5)}
local m = average(n,v)
local c = averagepointer(n,v)
local t = {}
copyvector(n,v,t)
local l = Point:new()
for i=1,n do
assert(v[i]==t[i])
l[1] = l[1] + v[i][1]
l[2] = l[2] + v[i][2]
end
l = l/n
assert(m==l)
assert(c==l)
assert(Point.SUCCESS==Point:echo(Point.SUCCESS))
assert(Point.ERROR==Point:echo(Point.ERROR))
assert(FIRST==invert(SECOND))
assert(SECOND==invert(FIRST))
print("Function test OK")
|
