user_error,
load_contexts: vec![],
runtime,
- foreign_function_table: Default::default(),
+ foreign_function_table: Default::default(),
};
let mut lib_path = current_dir();
:- use_module(library(files)).
:- use_module(library(format)).
:- use_module(library(iso_ext)).
-:- use_module(library(lists), [append/3]).
writeq_term_to_chars(Term, Chars) :-
Options = [ignore_ops(false), numbervars(true), quoted(true), variable_names([])],
Tests),
phrase(run_tests(Tests), FailedTests),
( FailedTests == [] ->
- write('All tests passed'),
- nl
- ; format("Failed ISO conformity tests: ~w~n", [FailedTests]),
+ write('All tests passed')
+ ; format("Failed ISO conformity tests: ~w", [FailedTests]),
false
).
-% FIXME: enable once all tests pass.
-% :- initialization(run_tests).
+:- initialization(run_tests).
fn clpz_load() {
load_module_test("src/tests/clpz/test_clpz.pl", "");
}
+
+#[serial]
+#[test]
+fn iso_conformity_tests() {
+ load_module_test(
+ "tests-pl/iso-conformity-tests.pl",
+ "All tests passed",
+ );
+}