From f8a75c0dec45ff8e4c8510f399105a3f725de287 Mon Sep 17 00:00:00 2001 From: Douglas R Miles Date: Mon, 25 Dec 2023 01:34:56 -0800 Subject: [PATCH] fixed test headers --- prolog/logicmoo_test.pl | 2 +- prolog/logicmoo_test_header.pl | 7 +++++-- prolog/shared_test_header.pl | 4 +++- 3 files changed, 9 insertions(+), 4 deletions(-) diff --git a/prolog/logicmoo_test.pl b/prolog/logicmoo_test.pl index 2169c8f..21070f0 100755 --- a/prolog/logicmoo_test.pl +++ b/prolog/logicmoo_test.pl @@ -11,7 +11,7 @@ % =================================================================== */ :- if((prolog_load_context(source,File),prolog_load_context(file,File));current_prolog_flag(xref,true)). -%:- module(logicmoo_test,[]). +:- module(logicmoo_test,[]). :-endif. :- define_into_module( diff --git a/prolog/logicmoo_test_header.pl b/prolog/logicmoo_test_header.pl index 72f8b77..3b9b91b 100755 --- a/prolog/logicmoo_test_header.pl +++ b/prolog/logicmoo_test_header.pl @@ -1,4 +1,7 @@ -% This file is mostly all inside if/endifs so it doesnt interfere with `module/2` +:- if((prolog_load_context(source,File),prolog_load_context(file,File));current_prolog_flag(xref,true)). +:- else. + +test_completed% This file is mostly all inside if/endifs so it doesnt interfere with `module/2` :- if((set_stream(current_output,tty(true)))). :- endif. :- dumpST. @@ -113,4 +116,4 @@ :- if((prolog_load_context(source,F),echo_source_file_no_catchup(F))). :- endif. :- endif. - +:- endif. diff --git a/prolog/shared_test_header.pl b/prolog/shared_test_header.pl index bf48354..43a8fac 100755 --- a/prolog/shared_test_header.pl +++ b/prolog/shared_test_header.pl @@ -1,8 +1,10 @@ % This file is mostly all inside if/endifs so it doesnt interfere with `module/2` - +:- if((prolog_load_context(source,File),prolog_load_context(file,File));current_prolog_flag(xref,true)). +:- else. :- if(( keep_going, redefine_system_predicate(system:break/0), abolish(system:break,0), assert(system:break :- (dumpST, sleep(1))))). :- endif. +:- endif.