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
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 )