2020-01-03 19:47:51 +01:00
|
|
|
;; Copyright 2020 the authors.
|
2019-04-18 20:28:19 +02:00
|
|
|
;; This file is part of Hy, which is free software licensed under the Expat
|
|
|
|
|
;; license. See the LICENSE.
|
|
|
|
|
|
|
|
|
|
;; Tests where the emitted code relies on Python ≥3.8.
|
|
|
|
|
;; conftest.py skips this file when running on Python <3.8.
|
|
|
|
|
|
|
|
|
|
(import pytest)
|
|
|
|
|
|
|
|
|
|
(defn test-setx []
|
|
|
|
|
(setx y (+ (setx x (+ "a" "b")) "c"))
|
|
|
|
|
(assert (= x "ab"))
|
|
|
|
|
(assert (= y "abc"))
|
|
|
|
|
|
|
|
|
|
(setv l [])
|
|
|
|
|
(for [x [1 2 3]]
|
|
|
|
|
(when (>= (setx y (+ x 8)) 10)
|
|
|
|
|
(.append l y)))
|
|
|
|
|
(assert (= l [10 11]))
|
|
|
|
|
|
|
|
|
|
(setv a ["apple" None "banana"])
|
|
|
|
|
(setv filtered (lfor
|
|
|
|
|
i (range (len a))
|
|
|
|
|
:if (is-not (setx v (get a i)) None)
|
|
|
|
|
v))
|
|
|
|
|
(assert (= filtered ["apple" "banana"]))
|
|
|
|
|
(assert (= v "banana"))
|
|
|
|
|
(with [(pytest.raises NameError)]
|
|
|
|
|
i))
|
