From 3561a7bfa2e3ed6690c359c052cf056652df4deb Mon Sep 17 00:00:00 2001
From: Gabriel Pérez-Cerezo <gabriel@gpcf.eu>
Date: Tue, 9 Nov 2021 21:56:41 +0100
Subject: Add more unit tests, fix broken unit test

---
 advtrains_interlocking/spec/ars_spec.lua | 67 ++++++++++++++++++++++++++++++++
 1 file changed, 67 insertions(+)
 create mode 100644 advtrains_interlocking/spec/ars_spec.lua

(limited to 'advtrains_interlocking/spec')

diff --git a/advtrains_interlocking/spec/ars_spec.lua b/advtrains_interlocking/spec/ars_spec.lua
new file mode 100644
index 0000000..085dbcb
--- /dev/null
+++ b/advtrains_interlocking/spec/ars_spec.lua
@@ -0,0 +1,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)
-- 
cgit v1.2.3