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
|
-- test the serialization function
package.path = "../?.lua;" .. package.path
_G.advtrains = {}
_G.advtrains.interlocking = {}
require("ars")
local arstb = {{ ln="Foo"}, {c="Bar"}, {n=true, rc="Boo"}}
local arsdef = {{ ln="Foo"}, {c="Bar"}, {rc="Boo"}, default=true}
local arstr = [[LN Foo
#Bar
!RC Boo]]
local defstr = [[*
LN Foo
#Bar
RC Boo]]
il = _G.advtrains.interlocking
describe("ars_to_text", function ()
it("read table", function ()
assert.equals(il.ars_to_text(arstb),arstr)
end)
it("reads back and forth", function ()
assert.equals(il.ars_to_text(il.text_to_ars(arstr)),arstr)
end)
it("handles default routes properly", function ()
assert.equals(il.ars_to_text(arsdef),defstr)
end)
end)
describe("text_to_ars", function ()
it("writes table", function()
assert.same(il.text_to_ars(arstr),arstb)
end)
it("handles default routes properly", function ()
assert.same(il.text_to_ars(defstr),arsdef)
end)
end)
train1 = {}
train2 = {}
train3 = {}
train1.line = "Foo"
train1.routingcode = "Boo"
train2.line= "Bar"
train2.routingcode = "NotBoo NotBoo"
train3.routingcode = "Foo Boo Moo Zoo"
describe("check_rule_match", function ()
it("matches rules correctly", function()
assert.equals(il.ars_check_rule_match(arstb,train1),1)
assert.equals(il.ars_check_rule_match(arsdef,train2),nil)
end)
it("matches negative rules", function()
assert.equals(il.ars_check_rule_match(arstb,train2),3)
assert.equals(il.ars_check_rule_match(arstb,train3),nil)
end)
it("matches RC in a list correctly", function()
assert.equals(il.ars_check_rule_match(arsdef,train3),3)
end)
end)
|
