mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-24 17:27:18 +00:00
Code Issues 1 Releases Wiki Activity

Add keyword/slice and symbol/slice tests

Browse Source
This commit is contained in:
Josef Pospíšil 2020-06-29 09:18:26 +02:00
parent a1ea62a923
commit e9911fee4d
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
test/suite8.janet
View File

@ -36,7 +36,7 @@
:loop (/ (* "[" :main "]") ,(fn [& captures] :loop (/ (* "[" :main "]") ,(fn [& captures]
~(while (not= (get DATA POS) 0) ~(while (not= (get DATA POS) 0)
,;captures))) ,;captures)))
:main (any (+ :s :loop :+ :- :> :< :.)) })) :main (any (+ :s :loop :+ :- :> :< :.))}))
(defn bf (defn bf
"Run brainfuck." "Run brainfuck."
@ -233,8 +233,8 @@ neldb\0\0\0\xD8\x05printG\x01\0\xDE\xDE\xDE'\x03\0marshal_tes/\x02
(gccollect) (gccollect)
(def v (unmarshal (def v (unmarshal
@"\xD7\xCD0\xD4000000\0\x03\x01\xCE\00\0\x01\0\0000\x03\0\0\0000000000\xCC0\0000" @"\xD7\xCD0\xD4000000\0\x03\x01\xCE\00\0\x01\0\0000\x03\0\0\0000000000\xCC0\0000"
load-image-dict)) load-image-dict))
(gccollect) (gccollect)
# in vs get regression # in vs get regression
@ -271,7 +271,7 @@ neldb\0\0\0\xD8\x05printG\x01\0\xDE\xDE\xDE'\x03\0marshal_tes/\x02
:packet-body '(lenprefix (-> :header-len) 1) :packet-body '(lenprefix (-> :header-len) 1)
# header, followed by body, and drop the :header-len capture # header, followed by body, and drop the :header-len capture
:packet (/ (* :packet-header :packet-body) ,|$1) :packet (/ (* :packet-header :packet-body) ,|$1)
# any exact seqence of packets (no extra characters) # any exact seqence of packets (no extra characters)
:main (* (any :packet) -1)})) :main (* (any :packet) -1)}))
@ -328,4 +328,8 @@ neldb\0\0\0\xD8\x05printG\x01\0\xDE\xDE\xDE'\x03\0marshal_tes/\x02
# Inline 3 argument get # Inline 3 argument get
(assert (= 10 (do (var a 10) (set a (get '{} :a a)))) "inline get 1") (assert (= 10 (do (var a 10) (set a (get '{} :a a)))) "inline get 1")
# Keyword and Symbol slice
(assert (= :keyword (keyword/slice "some_keyword_slice" 5 12)) "keyword slice")
(assert (= 'symbol (symbol/slice "some_symbol_slice" 5 11)) "symbol slice")
(end-suite) (end-suite)