mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-12 04:58:18 +03:00
44 lines
761 B
Plaintext
44 lines
761 B
Plaintext
(def line-1 "hej")
|
|
|
|
(def line-3 [1 2 3])
|
|
|
|
(def line-5 {})
|
|
|
|
(def line-7 '())
|
|
|
|
(def line-9 'whatever)
|
|
|
|
(def line-11 :yeah)
|
|
|
|
(def line-13 1000)
|
|
|
|
(def line-15 3.14)
|
|
|
|
(def line-17 (fn [] "..."))
|
|
|
|
(defn line-19 [] "...")
|
|
|
|
;; comment
|
|
|
|
(defn line-23 [] "...")
|
|
|
|
;; more comments...
|
|
;; () [] {} !?@#.-_ <>
|
|
;;
|
|
;
|
|
;;;
|
|
|
|
(defn line-31 [] "...")
|
|
|
|
(assert-eq 1 (meta-get line-1 :line))
|
|
(assert-eq 3 (meta-get line-3 :line))
|
|
(assert-eq 5 (meta-get line-5 :line))
|
|
(assert-eq 7 (meta-get line-7 :line))
|
|
(assert-eq 9 (meta-get line-9 :line))
|
|
(assert-eq 11 (meta-get line-11 :line))
|
|
(assert-eq 13 (meta-get line-13 :line))
|
|
(assert-eq 15 (meta-get line-15 :line))
|
|
(assert-eq 17 (meta-get line-17 :line))
|
|
(assert-eq 19 (meta-get line-19 :line))
|
|
(assert-eq 31 (meta-get line-31 :line))
|