1:- set_test_options([load(always)]).    2:- use_module(test_pita).    3:- use_module(test_pitaind).    4:- use_module(test_mc).    5:- use_module(test_kbest).    6:- use_module(test_viterbi).    7:- use_module(test_sc).    8:- use_module(test_lemur).    9:- use_module(test_cplint_util).   10
   11:- format(user_error,
   12	  'cplint test suite.  To run all tests run ?- test.~n~n', []).   13
   14% :- set_prolog_flag(trace_gc, true).
   15
   16test:-
   17  collect_failed([ test_pita,
   18                   test_mc,
   19                   test_kbest,
   20                   test_viterbi,
   21                   test_sc,
   22                   test_lemur,
   23                   test_pitaind,
   24                   test_util
   25                 ], Failed),
   26  (   Failed == []
   27  ->  format(user_error, 'All test suites succeeded~n', [])
   28  ;   format(user_error, 'These test suites failed: ~p~n', [Failed]),
   29      fail
   30  ).
   31
   32collect_failed([], []).
   33collect_failed([H|T], Failed) :-
   34  (   call(H)
   35  ->  collect_failed(T, Failed)
   36  ;   Failed = [H|Failed1],
   37      collect_failed(T, Failed1)
   38  )