diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-05-18 07:53:01 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-05-18 07:53:01 -0700 |
| commit | 7bfa50a6dee2d90c564774c2e7673048ef179708 (patch) | |
| tree | 999a62b88036ebcc9d54998c76727d304bb7a1d1 | |
| parent | 1c95aaacfcd0eeef774fae5e6cbd0e51edd51f20 (diff) | |
| download | txr-7bfa50a6dee2d90c564774c2e7673048ef179708.tar.gz txr-7bfa50a6dee2d90c564774c2e7673048ef179708.tar.bz2 txr-7bfa50a6dee2d90c564774c2e7673048ef179708.zip | |
ffi: fix broken test.
* tests/017/ffi-misc.tl: Fix incorrect test whose loop body
does not execute. A remaining issue here is why the diagnostics
about unbound functions and variables in the loop body get
swept under the rug.
| -rw-r--r-- | tests/017/ffi-misc.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/017/ffi-misc.tl b/tests/017/ffi-misc.tl index d0785513..6e41f482 100644 --- a/tests/017/ffi-misc.tl +++ b/tests/017/ffi-misc.tl @@ -80,9 +80,9 @@ (sizeof abc) 1 (znew abc) #S(abc a fals b fals c fals)) -(each-match ((a b c) (rperm '(fals true) 3)) +(each-match ((@a @b @c) (rperm '(fals true) 3)) (let ((s (new abc a a b b c c))) - (test (ffi-get (ffi-put s (ffi abc)) (ffi-abc)) s))) + (vtest (ffi-get (ffi-put s (ffi abc)) (ffi abc)) s))) (mstest (copy-cptr (cptr-int 3)) "#<cptr: 3>" |