add iso-conformity-tests.pl to test suite

This commit is contained in:
Mark
2023-07-01 15:38:05 -06:00
parent 38a9d23174
commit cb25a90250
3 changed files with 13 additions and 7 deletions

View File

@@ -5,7 +5,6 @@
:- 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([])],
@@ -1016,11 +1015,9 @@ run_tests :-
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).