fixed test headers

logicmoo · Dec 25, 2023 · f8a75c0 · f8a75c0
1 parent 067955d
commit f8a75c0
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 4 deletions.
diff --git 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
@@ -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
@@ -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.