diff options
| author | Bruce Hill <bruce@bruce-hill.com> | 2018-12-30 23:58:47 -0800 |
|---|---|---|
| committer | Bruce Hill <bruce@bruce-hill.com> | 2018-12-30 23:58:47 -0800 |
| commit | 5059c081ac624ede925d5256885509ddd17181c6 (patch) | |
| tree | 0457d135e5193126bf73466bfaae09df94ab8a7d /core/collections.nom | |
| parent | ec69ee6f62016a2edcc13e3183cbe4cadd75717f (diff) | |
Auto-upgraded code.
Diffstat (limited to 'core/collections.nom')
| -rw-r--r-- | core/collections.nom | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/core/collections.nom b/core/collections.nom index 77da968..5697af9 100644 --- a/core/collections.nom +++ b/core/collections.nom @@ -38,9 +38,8 @@ test: $dict = {.x = 1, .y = 2, .z = 3} assume (size of $dict) == 3 assume [: for $ in {.x = 1}: add $] == [{.key = "x", .value = 1}] - assume [: for $k = $v in {.x = 1}: add {.key = $k, .value = $v}] == [ - {.key = "x", .value = 1} - ] + assume [: for $k = $v in {.x = 1}: add {.key = $k, .value = $v}] == + [{.key = "x", .value = 1}] assume ({.x = 1, .y = 1} + {.y = 10, .z = 10}) == {.x = 1, .y = 11, .z = 10} assume ({.x = 1, .y = 1} | {.y = 10, .z = 10}) == {.x = 1, .y = 1, .z = 10} assume ({.x = 1, .y = 1} & {.y = 10, .z = 10}) == {.y = 1} @@ -62,9 +61,8 @@ externally ($lists flattened) means: test: assume ((entries in {.x = 1}) == [{.key = "x", .value = 1}]) -(entries in $dict) parses as [ - : for $k = $v in $dict: add {.key = $k, .value = $v} -] +(entries in $dict) parses as + [: for $k = $v in $dict: add {.key = $k, .value = $v}] test: assume ((keys in {.x = 1}) == ["x"]) @@ -81,10 +79,9 @@ test: assume ("\$t" == "XXX") (set $dict's metatable to $metatable) compiles to -.."setmetatable(\($dict as lua expr), \($metatable as lua expr));" + "setmetatable(\($dict as lua expr), \($metatable as lua expr));" [$'s metatable, $'metatable] all compile to "getmetatable(\($ as lua expr))" - test: assume (({} with fallback $ -> ($ + 1)).10 == 11) |
