diff options
Diffstat (limited to 'tests/core.fnl')
| -rw-r--r-- | tests/core.fnl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/core.fnl b/tests/core.fnl index b0c02aa..1df3921 100644 --- a/tests/core.fnl +++ b/tests/core.fnl @@ -200,7 +200,9 @@ (assert-eq (seq {}) nil) (assert-eq (seq [1]) [1]) (assert-eq (seq [1 2 3]) [1 2 3]) - (assert-eq (seq {:a 1}) [["a" 1]])) + (assert-eq (seq {:a 1}) [["a" 1]]) + (assert-eq (seq "abc") ["a" "b" "c"]) + (assert-eq (seq "абв") ["а" "б" "в"])) (testing "mapv" (assert-not (pcall mapv)) @@ -224,7 +226,8 @@ ["Happy Days co." "Coffee With You"] ["secretary" "chief officer"]) ["Bob Smith works as secretary at Happy Days co." - "Alice Watson works as chief officer at Coffee With You"])) + "Alice Watson works as chief officer at Coffee With You"]) + (assert-eq (table.concat (mapv string.upper "vaiv")) "VAIV")) (testing "reduce" (fn* add |