Yaltik/hy
2
0
Fork 0
Code Pull Requests Releases Activity

Update tests to work with Pytho 2.x

Browse Source 
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.
This commit is contained in:
Tuukka Turto 2016-11-09 05:07:31 +02:00
parent 241d554b0b
commit 584a40d9c0
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/native_tests/contrib/sequences.hy
View File

@ -33,14 +33,15 @@
(defseq shorty [n] (defseq shorty [n]
(cond [(< n 10) n] (cond [(< n 10) n]
[true (end-sequence)])) [true (end-sequence)]))
(setv 0-to-9 (list (range 10)))
(assert (= (get shorty 0) (assert (= (get shorty 0)
(get (range 10) 0)) (get 0-to-9 0))
"getting first element failed") "getting first element failed")
(assert (= (get shorty 5) (assert (= (get shorty 5)
(get (range 10) 5)) (get 0-to-9 5))
"getting 5th element failed") "getting 5th element failed")
(assert (= (get shorty -1) (assert (= (get shorty -1)
(get (range 10) -1)) (get 0-to-9 -1))
"getting element -1 failed")) "getting element -1 failed"))
(defn test-slicing-sequence [] (defn test-slicing-sequence []
@ -48,20 +49,21 @@
(defseq shorty [n] (defseq shorty [n]
(cond [(< n 10) n] (cond [(< n 10) n]
[true (end-sequence)])) [true (end-sequence)]))
(setv 0-to-9 (list (range 10)))
(assert (= (first shorty) (assert (= (first shorty)
(first (range 10))) (first 0-to-9))
"getting first failed") "getting first failed")
(assert (= (list (rest shorty)) (assert (= (list (rest shorty))
(list (rest (range 10)))) (list (rest 0-to-9)))
"getting rest failed") "getting rest failed")
(assert (= (list (cut shorty 2 6)) (assert (= (list (cut shorty 2 6))
(list (cut (range 10) 2 6))) (list (cut 0-to-9 2 6)))
"cutting 2-6 failed") "cutting 2-6 failed")
(assert (= (list (cut shorty 2 8 2)) (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") "cutting 2-8-2 failed")
(assert (= (list (cut shorty 8 2 -2)) (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")) "negative cut failed"))
(defn test-recursive-sequence [] (defn test-recursive-sequence []