mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-07-01 01:23:15 +00:00
Code Issues 1 Releases Wiki Activity

Merge pull request #435 from pepe/add-keyword-symbol-slice-tests

Browse Source 
Add keyword/slice and symbol/slice tests
This commit is contained in:
Calvin Rose 2020-06-29 09:11:35 -05:00 committed by GitHub
commit cc936d9977
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/suite8.janet
View File

@ -36,7 +36,7 @@
:loop (/ (* "[" :main "]") ,(fn [& captures]
~(while (not= (get DATA POS) 0)
,;captures)))
:main (any (+ :s :loop :+ :- :> :< :.)) }))
:main (any (+ :s :loop :+ :- :> :< :.))}))
(defn bf
"Run brainfuck."
@ -328,4 +328,8 @@ neldb\0\0\0\xD8\x05printG\x01\0\xDE\xDE\xDE'\x03\0marshal_tes/\x02
# Inline 3 argument get
(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)