From 584a40d9c0f761c1b86be7379ea45ca5c467d613 Mon Sep 17 00:00:00 2001 From: Tuukka Turto Date: Wed, 9 Nov 2016 05:07:31 +0200 Subject: [PATCH] Update tests to work with Pytho 2.x In Python 2.x (range 10) is mapped to xrange(10) in Python terms. However, xrange doesn't support slicing, which caused tests to fail. By forxing xrange into list, we have slicing available. --- tests/native_tests/contrib/sequences.hy | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/tests/native_tests/contrib/sequences.hy b/tests/native_tests/contrib/sequences.hy index 4d40473..0b6aeb0 100644 --- a/tests/native_tests/contrib/sequences.hy +++ b/tests/native_tests/contrib/sequences.hy @@ -33,14 +33,15 @@ (defseq shorty [n] (cond [(< n 10) n] [true (end-sequence)])) + (setv 0-to-9 (list (range 10))) (assert (= (get shorty 0) - (get (range 10) 0)) + (get 0-to-9 0)) "getting first element failed") (assert (= (get shorty 5) - (get (range 10) 5)) + (get 0-to-9 5)) "getting 5th element failed") (assert (= (get shorty -1) - (get (range 10) -1)) + (get 0-to-9 -1)) "getting element -1 failed")) (defn test-slicing-sequence [] @@ -48,20 +49,21 @@ (defseq shorty [n] (cond [(< n 10) n] [true (end-sequence)])) + (setv 0-to-9 (list (range 10))) (assert (= (first shorty) - (first (range 10))) + (first 0-to-9)) "getting first failed") (assert (= (list (rest shorty)) - (list (rest (range 10)))) + (list (rest 0-to-9))) "getting rest failed") (assert (= (list (cut shorty 2 6)) - (list (cut (range 10) 2 6))) + (list (cut 0-to-9 2 6))) "cutting 2-6 failed") (assert (= (list (cut shorty 2 8 2)) - (list (cut (range 10) 2 8 2))) + (list (cut 0-to-9 2 8 2))) "cutting 2-8-2 failed") (assert (= (list (cut shorty 8 2 -2)) - (list (cut (range 10) 8 2 -2))) + (list (cut 0-to-9 8 2 -2))) "negative cut failed")) (defn test-recursive-sequence []