Fix test.

Author: bakpakin

README.md

@@ -4,7 +4,6 @@
 [![Build Status](https://travis-ci.org/janet-lang/janet.svg?branch=master)](https://travis-ci.org/janet-lang/janet)
 [![builds.sr.ht status](https://builds.sr.ht/~bakpakin/janet/.freebsd.yaml.svg)](https://builds.sr.ht/~bakpakin/janet/.freebsd.yaml?)
 [![builds.sr.ht status](https://builds.sr.ht/~bakpakin/janet/.openbsd.yaml.svg)](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">
 

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)