mirror of
https://github.com/janet-lang/janet
synced 2024-07-01 01:23:15 +00:00
23 lines
433 B
Plaintext
23 lines
433 B
Plaintext
(export! "scheck" (fn [x]
|
|
(: dat (serialize x))
|
|
(: deser (deserialize dat))
|
|
(print (debugp deser))
|
|
deser
|
|
))
|
|
|
|
(scheck 1)
|
|
(scheck true)
|
|
(scheck nil)
|
|
(scheck "asdasdasd")
|
|
(scheck (struct 1 2 3 4))
|
|
(scheck (tuple 1 2 3))
|
|
(scheck 123412.12)
|
|
(scheck (funcdef (fn [] 1)))
|
|
(scheck (funcenv (fn [] 1)))
|
|
(do
|
|
(: producer (fn [a] (fn [] a)))
|
|
(: f (producer "hello!"))
|
|
(scheck (funcenv f))
|
|
)
|
|
(scheck (fn [] 1))
|