Added test for "import as"

This commit is contained in:
Amrut Joshi 2013-03-19 05:46:00 +00:00
parent db88fcd347
commit 29f8cecf65

View File

@ -3,6 +3,7 @@
(import-from tests.resources kwtest) (import-from tests.resources kwtest)
(import-from os.path exists isdir isfile) (import-from os.path exists isdir isfile)
(import sys) (import sys)
(import-as sys systest)
(defn test-sys-argv [] (defn test-sys-argv []
@ -188,3 +189,8 @@
(defn test-rest [] (defn test-rest []
"NATIVE: test rest" "NATIVE: test rest"
(assert (= (rest [1 2 3 4 5]) [2 3 4 5]))) (assert (= (rest [1 2 3 4 5]) [2 3 4 5])))
(defn test-importas []
"NATIVE: test import as"
(assert (!= (len systest.path) 0)))