Predicate searching by wildcard or similar

Hi,

I just wrote a *really simple* testing framework for my project, it looks like this at the test script end:

test_package([it('should ensure that global values have expected settings', defaults_correctly_set_test)
	     ,it('should correctly set the quiet flag on "-q"', respect_quiet('-q'))
	     ,it('should correctly set the quiet flag on "--quiet"', respect_quiet('--quiet'))
	     ,it('should correctly set the wrap flag on "--wrap"', respect_wrap)
	     ,it('should correctly set the check flag on "--nocheck"', respect_check)
	     ,it('should add unhandled options as source filenames', filename_check)
	     ,it('should throw exceptions on unknown options', handle_unknown_options)
	     ]).

The test_package predicate is called from the framework by the script, the script pulls in the file and that has an initialisation instruction:

:- initialization(run_tests).

run_tests :-
	test_package(AllTests),
	maplist(call, AllTests),
	ink(normal, '*done*'),
	stop.


What would have made it *really* nice was to have been able to find all predicates starting with test_ or ending with _test etc. so that I would not have needed to make the test_package predicate unify the variable with the list of tests to be run. Some tests mentioned above...

defaults_correctly_set_test :-
	cl_set_defaults,
	get_all_globals([],[],user_input,user_output,php,nowrap,check,plain,noisy).


respect_quiet(Flag) :-
	cl_set_defaults,
	process_option(Flag),
	get_all_globals(_,_,_,_,_,_,_,_,quiet).


As you can see, having to enter the test predicate AND enter it in the test package isn’t ideal ALTHOUGH it does allow me to provide a nice label but I could have done that with a really long predicate name anyway.

So, how would I do that in GNU Prolog…if it is possible. The listing() predicate is not much help in this instance…

Thanks,
Sean.

_______________________________________________
Users-prolog mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/users-prolog