add regression test for issue 3073

2025-09-27 22:05:51 +02:00
parent e7ac3ae0f7
commit 2f43c3ff40
2 changed files with 12 additions and 0 deletions
--- a/tests/scryer/cli/issues/ffi_alloc_mismatched_args.in/input.pl
+++ b/tests/scryer/cli/issues/ffi_alloc_mismatched_args.in/input.pl
@@ -0,0 +1,7 @@
+:- use_module(library(ffi)).
+
+
+test :- ffi:array_type(u8, 2, Type), ffi:allocate(rust, Type, [Type, 0], _ArrayPtr).
+
+?- test.
+   error(system_error,'$ffi_allocate'/4).
--- a/tests/scryer/cli/issues/ffi_alloc_mismatched_args.md
+++ b/tests/scryer/cli/issues/ffi_alloc_mismatched_args.md
@@ -0,0 +1,5 @@
+```trycmd
+$ scryer-prolog -f --no-add-history input.pl -g test -g halt
+test causes: error(system_error,$ffi_allocate/4)
+
+```