diff options
| author |  Calvin Rose <calsrose@gmail.com> | 2019-10-13 08:00:43 -0500 |
|---|---|---|
| committer | Calvin Rose <calsrose@gmail.com> | 2019-10-13 08:00:43 -0500 |
| commit | 655d4b3aad00e3e67d46a18d9e0a4f11e5aa4112 (patch) | |
| tree | 23d8faa63002b9299f57e1790495298c9bbf9cdc | |
| parent | Remove a git attribute for linguist. (diff) | |
Fix test.
| -rw-r--r-- | README.md | 1 | ||||
| -rw-r--r-- | test/suite7.janet | 8 |
2 files changed, 4 insertions, 5 deletions
@@ -4,7 +4,6 @@ [](https://travis-ci.org/janet-lang/janet) [](https://builds.sr.ht/~bakpakin/janet/.freebsd.yaml?) [](https://builds.sr.ht/~bakpakin/janet/.openbsd.yaml?) -<noscript><a href="https://liberapay.com/Janet-Language/donate"><img alt="Donate using Liberapay" src="https://liberapay.com/assets/widgets/donate.svg"></a></noscript> <img src="https://raw.githubusercontent.com/janet-lang/janet/master/assets/janet-w200.png" alt="Janet logo" width=200 align="left"> diff --git a/test/suite7.janet b/test/suite7.janet index ff30be3f..07b0d805 100644 --- a/test/suite7.janet +++ b/test/suite7.janet @@ -164,10 +164,10 @@ (debug/unfbreak map 1) (map inc [1 2 3]) -# 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") - +(defn idx= [x y] (= (tuple/slice x) (tuple/slice y))) +# Simple take, drop, etc. tests. +(assert (idx= (take 10 (range 100)) (range 10)) "take 10") +(assert (idx= (drop 10 (range 100)) (range 10 100)) "drop 10") (end-suite) |