mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-23 03:37:40 +00:00
Code Issues 1 Releases Wiki Activity

Fix test.

Browse Source
This commit is contained in:
Calvin Rose
2019-10-13 08:00:43 -05:00
parent 5f51476526
commit 655d4b3aad
2 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
test/suite7.janet
View File

@@ -164,10 +164,10 @@
(debug/unfbreak map 1)
(map inc [1 2 3])
(defn idx= [x y] (= (tuple/slice x) (tuple/slice y)))
# Simple take, drop, etc. tests.
(assert (deep= (take 10 (range 100)) (range 10)) "take 10")
(assert (deep= (drop 10 (range 100)) (range 10 100)) "drop 10")
(assert (idx= (take 10 (range 100)) (range 10)) "take 10")
(assert (idx= (drop 10 (range 100)) (range 10 100)) "drop 10")
(end-suite)