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