diff options
Diffstat (limited to 'unit_tests/scripts')
| -rw-r--r-- | unit_tests/scripts/linda/send_receive_tables.lua | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/unit_tests/scripts/linda/send_receive_tables.lua b/unit_tests/scripts/linda/send_receive_tables.lua new file mode 100644 index 0000000..08b1f16 --- /dev/null +++ b/unit_tests/scripts/linda/send_receive_tables.lua | |||
| @@ -0,0 +1,41 @@ | |||
| 1 | local lanes = require "lanes" | ||
| 2 | |||
| 3 | -- a newly created linda doesn't contain anything | ||
| 4 | local l = lanes.linda() | ||
| 5 | |||
| 6 | -- send a table with subtables, both as keys and values, making sure the structure is preserved | ||
| 7 | |||
| 8 | local t1 = {["name"] = "t1"} | ||
| 9 | local t2 = {["name"] = "t2"} | ||
| 10 | |||
| 11 | local t3 = { | ||
| 12 | ["name"] = "t3", | ||
| 13 | ["t1"] = t1, | ||
| 14 | [t1] = t2, -- table t1 as key, table t2 as value | ||
| 15 | ["t2"] = t2, | ||
| 16 | [t2] = t1 -- table t2 as key, table t1 as value | ||
| 17 | } | ||
| 18 | |||
| 19 | -- add recursivity for good measure | ||
| 20 | t3["t3"] = t3 | ||
| 21 | t3[t3] = t3 | ||
| 22 | t1["t3"] = t3 | ||
| 23 | t2["t3"] = t3 | ||
| 24 | |||
| 25 | l:send("data", t3) | ||
| 26 | local k, t = l:receive("data") | ||
| 27 | assert(k == "data" and type(t) == "table" and t.name == "t3") | ||
| 28 | -- when keys are strings | ||
| 29 | assert(t["t3"] == t) | ||
| 30 | assert(type(t["t1"]) == "table") | ||
| 31 | assert(t["t1"].name == "t1") | ||
| 32 | assert(type(t["t2"]) == "table") | ||
| 33 | assert(t["t2"].name == "t2") | ||
| 34 | assert(t["t1"].t3 == t) | ||
| 35 | assert(t["t2"].t3 == t) | ||
| 36 | -- when keys are tables | ||
| 37 | assert(t[t.t1] == t.t2) | ||
| 38 | assert(t[t.t1]["t3"] == t) | ||
| 39 | assert(t[t.t2] == t.t1) | ||
| 40 | assert(t[t.t2]["t3"] == t) | ||
| 41 | assert(t[t.t3] == t.t3) | ||
