no longer skip f32 and f64 now that they work consistently

diff --git a/tests-pl/ffi_struct.pl b/tests-pl/ffi_struct.pl
index 6c7fff981724f59c44af80f5a2c0e4f2315fd43f..23ec2af7e3382cf750ebe5c1562bac657e4bf3fc 100644 (file)
--- a/tests-pl/ffi_struct.pl
+++ b/tests-pl/ffi_struct.pl
@@ -10,10 +10,6 @@ test :-
     ffi:'construct'(8, 12, 46, 40, 127, 1.368, -4.587, PG),
     write(("PG"-PG)), nl,
     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, "skip", "skip"])), nl,
-    % avoide singelton warning
-    E = _,
-    F = _.
+    write(("PG2"-[pg, A, B, C, D, A2, E, F])), nl.
 
 :- initialization(test).

diff --git a/tests/scryer/ffi.rs b/tests/scryer/ffi.rs
index 472f5df48149dd3a1145a3e6126bbb9ef45646ea..107b5ff094e9e2f15c2d0659d00c6343b5c4844e 100644 (file)
--- a/tests/scryer/ffi.rs
+++ b/tests/scryer/ffi.rs
@@ -243,6 +243,6 @@ fn ffi_struct() {
     load_module_test_with_input(
         "tests-pl/ffi_struct.pl",
         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",
     );
 }