diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/sets.tm | 36 | ||||
| -rw-r--r-- | test/tables.tm | 24 |
2 files changed, 60 insertions, 0 deletions
diff --git a/test/sets.tm b/test/sets.tm new file mode 100644 index 00000000..bfec068e --- /dev/null +++ b/test/sets.tm @@ -0,0 +1,36 @@ + +func main(): + >> t1 := {10, 20, 30, 10} + = {10, 20, 30} + >> t1:has(10) + = yes + >> t1:has(-999) + = no + + >> t2 := {30, 40} + + >> t1:with(t2) + >> {10, 20, 30, 40} + + >> t1:without(t2) + >> {10, 20} + + >> t1:overlap(t2) + >> {30} + + + >> {1,2}:is_subset_of({2,3}) + = no + >> {1,2}:is_subset_of({1,2,3}) + = yes + >> {1,2}:is_subset_of({1,2}) + = yes + >> {1,2}:is_subset_of({1,2}, strict=yes) + = no + + >> t1:add_all(t2) + >> t1 + = {10, 20, 30, 40} + >> t1:remove_all(t2) + >> t1 + = {10, 20} diff --git a/test/tables.tm b/test/tables.tm index 132e4301..6dbc1b78 100644 --- a/test/tables.tm +++ b/test/tables.tm @@ -61,3 +61,27 @@ func main(): >> t3:remove(3) >> t3 = {1:10, 2:20} + + do: + >> plain := {1:10, 2:20, 3:30} + >> plain:get(2, -999) + = 20 + >> plain:get(456, -999) + = -999 + >> plain:has(2) + = yes + >> plain:has(456) + = no + + >> fallback := {4:40; fallback=plain} + >> fallback:has(1) + = yes + >> fallback:get(1, -999) + = 10 + + >> default := {5:50; default=0} + >> default:has(28273) + = yes + >> default:get(28273, -999) + = 0 + |