Add tests
This commit is contained in:
parent
c9362d39c1
commit
c7e4d4cd6e
@ -7,6 +7,15 @@
|
|||||||
(* 2 2)))
|
(* 2 2)))
|
||||||
|
|
||||||
|
|
||||||
|
(defn bardec [cls]
|
||||||
|
(setv cls.my_attr 123))
|
||||||
|
|
||||||
|
(with-decorator bardec
|
||||||
|
(defclass cls []
|
||||||
|
[[my_attr 456]]))
|
||||||
|
|
||||||
|
|
||||||
(defn test-decorators []
|
(defn test-decorators []
|
||||||
"NATIVE: test decorators."
|
"NATIVE: test decorators."
|
||||||
(assert (= (tfunction) 2)))
|
(assert (= (tfunction) 2))
|
||||||
|
(assert (= cls.my_attr 123)))
|
||||||
|
Loading…
x
Reference in New Issue
Block a user