rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

no longer skip f32 and f64 now that they work consistently

Browse Source
This commit is contained in:
Bennet Bleßmann
2025-02-18 21:31:53 +01:00
committed by Bennet Bleßmann
parent 36bdab84ba
commit 9cccd509e3
2 changed files with 2 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
tests-pl/ffi_struct.pl
View File

@@ -10,10 +10,6 @@ test :-
ffi:'construct'(8, 12, 46, 40, 127, 1.368, -4.587, PG), ffi:'construct'(8, 12, 46, 40, 127, 1.368, -4.587, PG),
write(("PG"-PG)), nl, write(("PG"-PG)), nl,
ffi:'modify'(PG, [pg, A, B, C, D, A2, E, F]), ffi:'modify'(PG, [pg, A, B, C, D, A2, E, F]),
% skipping E & F for now as the result changes between runs for some reason write(("PG2"-[pg, A, B, C, D, A2, E, F])), nl.
write(("PG2"-[pg, A, B, C, D, A2, "skip", "skip"])), nl,
% avoide singelton warning
E = _,
F = _.
:- initialization(test). :- initialization(test).

2
tests/scryer/ffi.rs
View File

@@ -243,6 +243,6 @@ fn ffi_struct() {
load_module_test_with_input( load_module_test_with_input(
"tests-pl/ffi_struct.pl", "tests-pl/ffi_struct.pl",
format!("LIB={dynlib_path:?}."), format!("LIB={dynlib_path:?}."),
"[P,G]-[pg,8,12,46,40,127,1.3680000305175781,-4.587]\n[P,G,2]-[pg,127,65523,4294967249,18446744073709551575,8,[s,k,i,p],[s,k,i,p]]\n", "[P,G]-[pg,8,12,46,40,127,1.3680000305175781,-4.587]\n[P,G,2]-[pg,127,65523,4294967249,18446744073709551575,8,-1.3680000305175781,4.587]\n",
); );
} }