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

Merge branch 'master' onto pr/395

Browse Source
This commit is contained in:
Abhishek L 2013-12-31 03:37:26 +05:30
commit 0a80b87b7f
4 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hy/lex/parser.py
View File

@ -229,6 +229,7 @@ def t_identifier(p):
table = { table = {
"true": "True", "true": "True",
"false": "False", "false": "False",
"nil": "None",
"null": "None", "null": "None",
} }

7
tests/native_tests/language.hy
View File

@ -86,9 +86,10 @@
(defn test-is [] (defn test-is []
"NATIVE: test is can deal with None" "NATIVE: test is can deal with None"
(setv a null) (setv a nil)
(assert (is a null)) (assert (is a nil))
(assert (is-not a "b"))) (assert (is-not a "b"))
(assert (none? a)))
(defn test-branching [] (defn test-branching []

2
tests/native_tests/unless.hy
View File

@ -4,5 +4,7 @@
(assert (= (unless false 1 2) 2)) (assert (= (unless false 1 2) 2))
(assert (= (unless false 1 3) 3)) (assert (= (unless false 1 3) 3))
(assert (= (unless true 2) null)) (assert (= (unless true 2) null))
(assert (= (unless true 2) nil))
(assert (= (unless (!= 1 2) 42) null)) (assert (= (unless (!= 1 2) 42) null))
(assert (= (unless (!= 1 2) 42) nil))
(assert (= (unless (!= 2 2) 42) 42))) (assert (= (unless (!= 2 2) 42) 42)))

2
tests/native_tests/when.hy
View File

@ -5,4 +5,6 @@
(assert (= (when true 1 3) 3)) (assert (= (when true 1 3) 3))
(assert (= (when false 2) null)) (assert (= (when false 2) null))
(assert (= (when (= 1 2) 42) null)) (assert (= (when (= 1 2) 42) null))
(assert (= (when false 2) nil))
(assert (= (when (= 1 2) 42) nil))
(assert (= (when (= 2 2) 42) 42))) (assert (= (when (= 2 2) 42) 42)))