mirror of
https://github.com/kanaka/mal.git
synced 2024-11-10 12:47:45 +03:00
189 lines
3.0 KiB
Plaintext
189 lines
3.0 KiB
Plaintext
;;;
|
|
;;; See IMPL/tests/stepA_mal.mal for implementation specific
|
|
;;; interop tests.
|
|
;;;
|
|
|
|
|
|
;;
|
|
;; Testing readline
|
|
(readline "mal-user> ")
|
|
"hello"
|
|
;=>"\"hello\""
|
|
|
|
;;
|
|
;; Testing *host-language*
|
|
;;; each impl is different, but this should return false
|
|
;;; rather than throwing an exception
|
|
(= "something bogus" *host-language*)
|
|
;=>false
|
|
|
|
|
|
;;
|
|
;; ------- Optional Functionality ----------
|
|
;; ------- (Needed for self-hosting) -------
|
|
|
|
;;
|
|
;; Testing metadata on functions
|
|
|
|
;;
|
|
;; Testing metadata on mal functions
|
|
|
|
(meta (fn* (a) a))
|
|
;=>nil
|
|
|
|
(meta (with-meta (fn* (a) a) {"b" 1}))
|
|
;=>{"b" 1}
|
|
|
|
(meta (with-meta (fn* (a) a) "abc"))
|
|
;=>"abc"
|
|
|
|
(def! l-wm (with-meta (fn* (a) a) {"b" 2}))
|
|
(meta l-wm)
|
|
;=>{"b" 2}
|
|
|
|
(meta (with-meta l-wm {"new_meta" 123}))
|
|
;=>{"new_meta" 123}
|
|
(meta l-wm)
|
|
;=>{"b" 2}
|
|
|
|
(def! f-wm (with-meta (fn* [a] (+ 1 a)) {"abc" 1}))
|
|
(meta f-wm)
|
|
;=>{"abc" 1}
|
|
|
|
(meta (with-meta f-wm {"new_meta" 123}))
|
|
;=>{"new_meta" 123}
|
|
(meta f-wm)
|
|
;=>{"abc" 1}
|
|
|
|
(def! f-wm2 ^{"abc" 1} (fn* [a] (+ 1 a)))
|
|
(meta f-wm2)
|
|
;=>{"abc" 1}
|
|
|
|
;; Meta of native functions should return nil (not fail)
|
|
(meta +)
|
|
;=>nil
|
|
|
|
|
|
;;
|
|
;; Make sure closures and metadata co-exist
|
|
(def! gen-plusX (fn* (x) (with-meta (fn* (b) (+ x b)) {"meta" 1})))
|
|
(def! plus7 (gen-plusX 7))
|
|
(def! plus8 (gen-plusX 8))
|
|
(plus7 8)
|
|
;=>15
|
|
(meta plus7)
|
|
;=>{"meta" 1}
|
|
(meta plus8)
|
|
;=>{"meta" 1}
|
|
(meta (with-meta plus7 {"meta" 2}))
|
|
;=>{"meta" 2}
|
|
(meta plus8)
|
|
;=>{"meta" 1}
|
|
|
|
;;
|
|
;; Testing hash-map evaluation and atoms (i.e. an env)
|
|
(def! e (atom {"+" +}))
|
|
(swap! e assoc "-" -)
|
|
( (get @e "+") 7 8)
|
|
;=>15
|
|
( (get @e "-") 11 8)
|
|
;=>3
|
|
(swap! e assoc "foo" (list))
|
|
(get @e "foo")
|
|
;=>()
|
|
(swap! e assoc "bar" '(1 2 3))
|
|
(get @e "bar")
|
|
;=>(1 2 3)
|
|
|
|
|
|
;;
|
|
;; ------- Optional Functionality --------------
|
|
;; ------- (Not needed for self-hosting) -------
|
|
;>>> soft=True
|
|
|
|
;;
|
|
;; Testing conj function
|
|
(conj (list) 1)
|
|
;=>(1)
|
|
(conj (list 1) 2)
|
|
;=>(2 1)
|
|
(conj (list 2 3) 4)
|
|
;=>(4 2 3)
|
|
(conj (list 2 3) 4 5 6)
|
|
;=>(6 5 4 2 3)
|
|
(conj (list 1) (list 2 3))
|
|
;=>((2 3) 1)
|
|
|
|
(conj [] 1)
|
|
;=>[1]
|
|
(conj [1] 2)
|
|
;=>[1 2]
|
|
(conj [2 3] 4)
|
|
;=>[2 3 4]
|
|
(conj [2 3] 4 5 6)
|
|
;=>[2 3 4 5 6]
|
|
(conj [1] [2 3])
|
|
;=>[1 [2 3]]
|
|
|
|
|
|
;;
|
|
;; Testing metadata on collections
|
|
|
|
(meta [1 2 3])
|
|
;=>nil
|
|
|
|
(with-meta [1 2 3] {"a" 1})
|
|
;=>[1 2 3]
|
|
|
|
(meta (with-meta [1 2 3] {"a" 1}))
|
|
;=>{"a" 1}
|
|
|
|
(vector? (with-meta [1 2 3] {"a" 1}))
|
|
;=>true
|
|
|
|
(meta (with-meta [1 2 3] "abc"))
|
|
;=>"abc"
|
|
|
|
(meta (with-meta (list 1 2 3) {"a" 1}))
|
|
;=>{"a" 1}
|
|
|
|
(list? (with-meta (list 1 2 3) {"a" 1}))
|
|
;=>true
|
|
|
|
(meta (with-meta {"abc" 123} {"a" 1}))
|
|
;=>{"a" 1}
|
|
|
|
(map? (with-meta {"abc" 123} {"a" 1}))
|
|
;=>true
|
|
|
|
;;; Not actually supported by Clojure
|
|
;;;(meta (with-meta (atom 7) {"a" 1}))
|
|
;;;;=>{"a" 1}
|
|
|
|
(def! l-wm (with-meta [4 5 6] {"b" 2}))
|
|
;=>[4 5 6]
|
|
(meta l-wm)
|
|
;=>{"b" 2}
|
|
|
|
(meta (with-meta l-wm {"new_meta" 123}))
|
|
;=>{"new_meta" 123}
|
|
(meta l-wm)
|
|
;=>{"b" 2}
|
|
|
|
;;
|
|
;; Testing metadata on builtin functions
|
|
(meta +)
|
|
;=>nil
|
|
(def! f-wm3 ^{"def" 2} +)
|
|
(meta f-wm3)
|
|
;=>{"def" 2}
|
|
(meta +)
|
|
;=>nil
|
|
|
|
;;
|
|
;; Testing gensym and clean or macro
|
|
(= (gensym) (gensym))
|
|
;=>false
|
|
(let* [or_FIXME 23] (or false (+ or_FIXME 100)))
|
|
;=>123
|