mirror of
https://github.com/janet-lang/janet
synced 2026-06-01 02:02:22 +00:00
Merge branch 'master' into compile-opt
This commit is contained in:
@@ -997,4 +997,14 @@
|
||||
(assert (deep= (get (dyn 'a) :source-form) source))
|
||||
(setdyn *debug* nil)
|
||||
|
||||
# issue #1516
|
||||
(assert (assertf true) "assertf 1 argument")
|
||||
(assert (assertf true "fun message") "assertf 2 arguments")
|
||||
(assert (assertf true "%s message" "mystery") "assertf 3 arguments")
|
||||
(assert (assertf (not nil) "%s message" "ordinary") "assertf not nil")
|
||||
(assert-error "assertf error 1" (assertf false))
|
||||
(assert-error "assertf error 2" (assertf false "fun message"))
|
||||
(assert-error "assertf error 3" (assertf false "%s message" "mystery"))
|
||||
(assert-error "assertf error 4" (assertf nil "%s %s" "alice" "bob"))
|
||||
|
||||
(end-suite)
|
||||
|
||||
@@ -52,5 +52,7 @@
|
||||
(assert (= 26 (ffi/size [:char :pack :int @[:char 21]]))
|
||||
"array struct size"))
|
||||
|
||||
(end-suite)
|
||||
(compwhen has-ffi
|
||||
(assert-error "bad struct issue #1512" (ffi/struct :void)))
|
||||
|
||||
(end-suite)
|
||||
|
||||
Reference in New Issue
Block a user