
:- ensure_loaded(qtest_header).

:- dynamic(tested/1).

qtest :- true.
qtest :- fail.

:- ensure_loaded(qtest).
:- ensure_loaded(library(unix)).

go :-
	% print_message(warning, format('** IGNORE the following "qtest failed" message; it is intended.', [])),

	% total hack to ignore the output!
	open(',f', write, F),
	dup(F, user_error),
 	\+ run_qtests(_),
	close(F).

	
