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]
(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 []