add iso-conformity-tests.pl to test suite

This commit is contained in:
Mark
2023-07-02 11:10:33 -06:00
parent 38a9d23174
commit cb25a90250
3 changed files with 13 additions and 7 deletions
+3 -6
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).