From 655d4b3aad00e3e67d46a18d9e0a4f11e5aa4112 Mon Sep 17 00:00:00 2001
From: Calvin Rose <calsrose@gmail.com>
Date: Sun, 13 Oct 2019 08:00:43 -0500
Subject: [PATCH] Fix test.

---
 README.md         | 1 -
 test/suite7.janet | 8 ++++----
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/README.md b/README.md
index de10b7bc..8806daf6 100644
--- a/README.md
+++ b/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">
 
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])
 
+(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)