[#667] Add test
This commit is contained in:
parent
45faf1ec63
commit
38c7bc1c17
1 changed files with 2 additions and 1 deletions
|
|
@ -565,7 +565,8 @@
|
|||
|
||||
(deftest var-print-method-test
|
||||
(when test-utils/native?
|
||||
(is (bb nil "(defmethod print-method sci.lang.IVar [o w] (.write w (str :foo (symbol o)))) (def x 1) (= \":foouser/x\" (pr-str #'x))"))))
|
||||
(is (bb nil "(defmethod print-method sci.lang.IVar [o w] (.write w (str :foo (symbol o)))) (def x 1) (= \":foouser/x\" (pr-str #'x))"))
|
||||
(is (= :foouser/x (bb nil "(defmethod print-method sci.lang.IVar [o w] (.write w (str :foo (symbol o)))) (def x 1)")))))
|
||||
|
||||
;;;; Scratch
|
||||
|
||||
|
|
|
|||
Loading…
Reference in a new issue