'). 0m49m39m21m0m % init.pl:2353: (13)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$sig_atomic'(setup_call_cleanup(with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b068b00),[expand(false),expand(true)])),'$mt_do_load'((0x55fc8b068b00),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),'$mt_end_load'((0x55fc8b068b00)))). 0m49m39m21m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (14)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (16)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b068b00),[expand(false),expand(true)])),system:'$mt_do_load'((0x55fc8b068b00),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),A,system:'$mt_end_load'((0x55fc8b068b00))). 0m49m39m0m0m % init.pl:646: (18)$0m0m39m49m10m[system]0m49m39m0m0m#0m2m97m40m12m '$qdo_load_file'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]). 0m49m0m0m0m % init.pl:2546: (21)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m95m49m10m '$do_load_file_2'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,compiled,[expand(false),expand(true)]). 0m49m0m21m0m % init.pl:2592: (25)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:'$start_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',1632225690.9774585),system:'$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]),B,system:'$end_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',lexstate(202,swi),user)). 0m49m39m0m0m % init.pl:646: (26)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:3007: (27)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m36m49m11m '$compile_term'((:-clause(kb2:a,A)),B,'* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl '). 0m49m39m0m0m % init.pl:3074: (28)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m36m49m11m '$compile_term'((:-clause(kb2:a,A)),B,'* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',-). 0m49m39m0m0m % init.pl:3084: (29)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m93m49m10m '$execute_directive'(clause(kb2:a,A),'* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl '). 0m49m0m21m0m % init.pl:3549: (30)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m32m49m14m '$execute_directive_2'(clause(kb2:a,A),'* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl '). 0m49m39m21m0m % init.pl:3571: (31)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m91m49m10m '$execute_directive_3'(clause(kb2:a,A)). 0m49m0m0m0m % init.pl:3574: (32)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m catch(myMt:clause(kb2:a,A),error(B,C),system:'$exception_in_directive'(error(B,C))). 0m49m39m0m0m % init.pl:546: (33)0m2m93m49m14m[myMt]0m49m0m0m0m#0m1m95m49m17m pfc_lib:clause(kb2:a,A). 0m49m0m21m0m % mpred_core.pl:4331: (34)$0m2m93m49m14m[myMt]0m49m0m0m0m0m1m95m49m17m pfc_lib:log_failure(failed_mpred_test(clause(kb2:a,A))). 0m49m0m21m0m % mpred_core.pl:4209: (35)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (36)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (37)0m2m93m49m14m[myMt]0m49m0m0m0m0m1m95m49m17m pfc_lib:maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))). 0m49m0m21m0m % mpred_core.pl:4229: (38)$0m2m93m49m14m[myMt]0m49m0m0m0m0m0m99m49m15m pfc_lib:break_ex. 0m49m0m0m0m % mpred_core.pl:4226: (39)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (40)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (41)0m2m93m49m14m[myMt]0m49m0m0m0m0m1m36m49m12m dumpst:dumpST. 0m49m39m21m0m % dumpst.pl:150: %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ DUMP_BREAK/0 %~ message_hook(unhandled_exception(abort),error,['Unhandled exception: ','~p'-[abort]]) Unhandled exception: abort ERROR: Unhandled exception: abort ~*/ /*~ ~*/ /* % % PFC is a language extension for prolog. % % It adds a new type of module inheritance % % Dec 13, 2035 % Douglas Miles */ % was_module(mt_09,[]). :- include(library(logicmoo_test_header)). /*~ running(-), %~ reload_of_test_header. %~ this_test_might_need( :-( expects_dialect(pfc))) %~ this_test_might_need( :-( use_module( library(logicmoo_plarkc)))) ~*/ :- pfc_test_feature(pfc_file_detect,must(\+ is_pfc_file)). %:- add_import_module(mt_01,baseKB,end). /*~ ~*/ %:- add_import_module(mt_01,baseKB,end). :- set_defaultAssertMt(myMt). /*~ ~*/ mtProlog(code1). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtProlog/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtProlog/1]]) No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ~*/ mtHybrid(kb2). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtHybrid/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtHybrid/1]]) No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ~*/ /* ;; All living people have an organ (forall ((p PersonAlive)) (exists ((o Organ)) (have p o))) ;; An organ exists in which every living Persons ever will exists (exists ((o Organ)) (forall ((p PersonAlive)) (co-temporal p o))) Maybe people dont even exist? Wait.. 'co-temporal' does this mean we have created People? Have we created people with Eternal life as well? At least until the Eternal Organ is no more? To make my question fair (forall (x t) (if (and (ist t (instance x TemporalObject)) (co-temporal x y)) (ist t (exists (y) (instance y TemporalObject)))) (forall (x y) (iff (co-temporal x y) (co-temporal y x))) */ code1: (a:- printAll('$current_source_module'(_M)),b). /*~ No source location!? ~*/ kb2: (b). /*~ No source location!? ~*/ genlMt(kb2,code1). % before test, to make sure a was not accdently defined in kb2 /*~ ~*/ % before test, to make sure a was not accdently defined in kb2 :- sanity( clause(kb2:a,_)). % before test, genlMt makes the rule available and should not corrupt the code1 module /*~ %~ ?-( mpred_test("Test_0004_Line_0000__A_in_kb2_in_myMt",myMt:clause(kb2:a,Clause_Kw))). failure=info((why_was_true(myMt:(\+clause(kb2:a,_91464))),nop(ftrace(myMt:clause(kb2:a,_91464))))) no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0004_Line_0000__A_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0004_Line_0000_A_in_kb2_in_myMt-junit.xml ~*/ % before test, genlMt makes the rule available and should not corrupt the code1 module :- sanity(\+ clause(code1:b,_)). % make sure genlMt didnt unassert /*~ %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:56 %~ ?-( mpred_test("Test_0005_Line_0000__naf_B_in_code1_in_myMt",myMt:(\+clause(code1:b,Clause_Kw)))). passed=info(why_was_true(myMt:(\+clause(code1:b,_458)))) no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0005_Line_0000__naf_B_in_code1_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0005_Line_0000_naf_B_in_code1_in_myMt-junit.xml ~*/ % make sure genlMt didnt unassert :- sanity(clause(kb2:b,_)). % run the test /*~ %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:59 %~ ?-( mpred_test("Test_0006_Line_0000__B_in_kb2_in_myMt",myMt:clause(kb2:b,Clause_Kw))). passed=info(why_was_true(myMt:clause(kb2:b,true))) no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0006_Line_0000__B_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0006_Line_0000_B_in_kb2_in_myMt-junit.xml ~*/ % run the test kb2: (?- a). % to make sure a does not get accdently defined in kb2 /*~ No source location!? ~*/ % to make sure a does not get accdently defined in kb2 :- mpred_must( clause(kb2:a,_)). % genlMt makes the rule available and should not corrupt the code1 module /*~ %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure+failed_mpred_test(clause(kb2:a,_115434))]) 39m %~ failed_mpred_test( clause(kb2:a,Clause_Kw)) %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 (0)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (1)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m2m96m49m11m '$toplevel'. 0m49m0m0m0m % toplevel.pl:701: (2)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m0m33m49m15m '$runtoplevel'. 0m49m39m0m0m % toplevel.pl:713: (10)$0m0m39m49m10m[system]0m49m39m0m0m0m1m37m40m13m '$load_file'('mt_09.pl',user,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:2353: (13)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$sig_atomic'(setup_call_cleanup(with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b069c00),[expand(false),expand(true)])),'$mt_do_load'((0x55fc8b069c00),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),'$mt_end_load'((0x55fc8b069c00)))). 0m49m39m21m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (14)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (16)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b069c00),[expand(false),expand(true)])),system:'$mt_do_load'((0x55fc8b069c00),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),A,system:'$mt_end_load'((0x55fc8b069c00))). 0m49m39m0m0m % init.pl:646: (18)$0m0m39m49m10m[system]0m49m39m0m0m#0m2m97m40m12m '$qdo_load_file'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]). 0m49m0m0m0m % init.pl:2546: (21)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m95m49m10m '$do_load_file_2'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,compiled,[expand(false),expand(true)]). 0m49m0m21m0m % init.pl:2592: (25)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:'$start_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',1632225690.9774585),system:'$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]),B,system:'$end_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',lexstate(202,swi),user)). 0m49m39m0m0m % init.pl:646: (26)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:3007: (31)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m91m49m10m '$execute_directive_3'(clause(kb2:a,A)). 0m49m0m0m0m % init.pl:3574: (32)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m catch(myMt:clause(kb2:a,A),error(B,C),system:'$exception_in_directive'(error(B,C))). 0m49m39m0m0m % init.pl:546: (33)0m2m93m49m14m[myMt]0m49m0m0m0m#0m1m95m49m17m pfc_lib:clause(kb2:a,A). 0m49m0m21m0m % mpred_core.pl:4331: (35)0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (36)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (38)0m2m93m49m14m[myMt]0m49m0m0m0m0m0m99m49m15m pfc_lib:break_ex. 0m49m0m0m0m % mpred_core.pl:4226: (39)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (40)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (43)0m2m33m49m15m[butterfly]0m49m39m0m0m0m2m93m49m14m butterfly:in_bfly(f,myMt:zotrace(with_all_dmsg((b_setval('$dump_frame',500),dumpST1)))). 0m49m0m0m0m % butterfly_console.pl:226: %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ DUMP_BREAK/0 %~ message_hook(unhandled_exception(abort),error,['Unhandled exception: ','~p'-[abort]]) Unhandled exception: abort ERROR: Unhandled exception: abort ~*/ /*~ ~*/ /* % % PFC is a language extension for prolog. % % It adds a new type of module inheritance % % Dec 13, 2035 % Douglas Miles */ % was_module(mt_09,[]). :- include(library(logicmoo_test_header)). /*~ running(-), %~ /var/lib/jenkins/.local/share/swi-prolog/pack/logicmoo_utils/prolog/logicmoo_test_header.pl:59 %~ reload_of_test_header. %~ this_test_might_need( :-( expects_dialect(pfc))) %~ this_test_might_need( :-( use_module( library(logicmoo_plarkc)))) ~*/ :- pfc_test_feature(pfc_file_detect,must(\+ is_pfc_file)). %:- add_import_module(mt_01,baseKB,end). /*~ ~*/ %:- add_import_module(mt_01,baseKB,end). :- set_defaultAssertMt(myMt). /*~ ~*/ mtProlog(code1). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtProlog/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtProlog/1]]) No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ~*/ mtHybrid(kb2). /*~ No source location!? %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:21 %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtHybrid/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtHybrid/1]]) No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ~*/ /* ;; All living people have an organ (forall ((p PersonAlive)) (exists ((o Organ)) (have p o))) ;; An organ exists in which every living Persons ever will exists (exists ((o Organ)) (forall ((p PersonAlive)) (co-temporal p o))) Maybe people dont even exist? Wait.. 'co-temporal' does this mean we have created People? Have we created people with Eternal life as well? At least until the Eternal Organ is no more? To make my question fair (forall (x t) (if (and (ist t (instance x TemporalObject)) (co-temporal x y)) (ist t (exists (y) (instance y TemporalObject)))) (forall (x y) (iff (co-temporal x y) (co-temporal y x))) */ code1: (a:- printAll('$current_source_module'(_M)),b). /*~ No source location!? ~*/ kb2: (b). /*~ No source location!? ~*/ genlMt(kb2,code1). % before test, to make sure a was not accdently defined in kb2 /*~ ~*/ % before test, to make sure a was not accdently defined in kb2 :- sanity( clause(kb2:a,_)). % before test, genlMt makes the rule available and should not corrupt the code1 module /*~ %~ ?-( mpred_test("Test_0007_Line_0000__A_in_kb2_in_myMt",myMt:clause(kb2:a,Clause_Kw))). failure=info((why_was_true(myMt:(\+clause(kb2:a,_348734))),nop(ftrace(myMt:clause(kb2:a,_348734))))) no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0007_Line_0000__A_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0007_Line_0000_A_in_kb2_in_myMt-junit.xml ~*/ % before test, genlMt makes the rule available and should not corrupt the code1 module :- sanity(\+ clause(code1:b,_)). % make sure genlMt didnt unassert /*~ %~ ?-( mpred_test("Test_0008_Line_0000__naf_B_in_code1_in_myMt",myMt:(\+clause(code1:b,Clause_Kw)))). passed=info(why_was_true(myMt:(\+clause(code1:b,_375826)))) no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0008_Line_0000__naf_B_in_code1_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0008_Line_0000_naf_B_in_code1_in_myMt-junit.xml ~*/ % make sure genlMt didnt unassert :- sanity(clause(kb2:b,_)). % run the test /*~ %~ ?-( mpred_test("Test_0009_Line_0000__B_in_kb2_in_myMt",myMt:clause(kb2:b,Clause_Kw))). passed=info(why_was_true(myMt:clause(kb2:b,true))) no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0009_Line_0000__B_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0009_Line_0000_B_in_kb2_in_myMt-junit.xml ~*/ % run the test kb2: (?- a). % to make sure a does not get accdently defined in kb2 /*~ No source location!? ~*/ % to make sure a does not get accdently defined in kb2 :- mpred_must( clause(kb2:a,_)). % genlMt makes the rule available and should not corrupt the code1 module /*~ %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure+failed_mpred_test(clause(kb2:a,_422844))]) 39m %~ failed_mpred_test( clause(kb2:a,Clause_Kw)) %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 (0)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (1)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m2m96m49m11m '$toplevel'. 0m49m0m0m0m % toplevel.pl:701: (2)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m0m33m49m15m '$runtoplevel'. 0m49m39m0m0m % toplevel.pl:713: (10)$0m0m39m49m10m[system]0m49m39m0m0m0m1m37m40m13m '$load_file'('mt_09.pl',user,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:2353: (13)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$sig_atomic'(setup_call_cleanup(with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b068a80),[expand(false),expand(true)])),'$mt_do_load'((0x55fc8b068a80),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),'$mt_end_load'((0x55fc8b068a80)))). 0m49m39m21m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (14)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (16)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b068a80),[expand(false),expand(true)])),system:'$mt_do_load'((0x55fc8b068a80),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),A,system:'$mt_end_load'((0x55fc8b068a80))). 0m49m39m0m0m % init.pl:646: (18)$0m0m39m49m10m[system]0m49m39m0m0m#0m2m97m40m12m '$qdo_load_file'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]). 0m49m0m0m0m % init.pl:2546: (21)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m95m49m10m '$do_load_file_2'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,compiled,[expand(false),expand(true)]). 0m49m0m21m0m % init.pl:2592: (25)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:'$start_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',1632225690.9774585),system:'$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]),B,system:'$end_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',lexstate(202,swi),user)). 0m49m39m0m0m % init.pl:646: (26)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:3007: (31)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m91m49m10m '$execute_directive_3'(clause(kb2:a,A)). 0m49m0m0m0m % init.pl:3574: (32)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m catch(myMt:clause(kb2:a,A),error(B,C),system:'$exception_in_directive'(error(B,C))). 0m49m39m0m0m % init.pl:546: (33)0m2m93m49m14m[myMt]0m49m0m0m0m#0m1m95m49m17m pfc_lib:clause(kb2:a,A). 0m49m0m21m0m % mpred_core.pl:4331: (35)0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (36)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (38)0m2m93m49m14m[myMt]0m49m0m0m0m0m0m99m49m15m pfc_lib:break_ex. 0m49m0m0m0m % mpred_core.pl:4226: (39)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (40)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (43)0m2m33m49m15m[butterfly]0m49m39m0m0m0m2m93m49m14m butterfly:in_bfly(f,myMt:zotrace(with_all_dmsg((b_setval('$dump_frame',500),dumpST1)))). 0m49m0m0m0m % butterfly_console.pl:226: %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ DUMP_BREAK/0 %~ message_hook(unhandled_exception(abort),error,['Unhandled exception: ','~p'-[abort]]) Unhandled exception: abort ERROR: Unhandled exception: abort ~*/ /*~ ~*/ /* % % PFC is a language extension for prolog. % % It adds a new type of module inheritance % % Dec 13, 2035 % Douglas Miles */ % was_module(mt_09,[]). :- include(library(logicmoo_test_header)). /*~ running(-), %~ reload_of_test_header. %~ this_test_might_need( :-( expects_dialect(pfc))) %~ this_test_might_need( :-( use_module( library(logicmoo_plarkc)))) ~*/ :- pfc_test_feature(pfc_file_detect,must(\+ is_pfc_file)). %:- add_import_module(mt_01,baseKB,end). /*~ ~*/ %:- add_import_module(mt_01,baseKB,end). :- set_defaultAssertMt(myMt). /*~ ~*/ mtProlog(code1). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtProlog/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtProlog/1]]) No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ~*/ mtHybrid(kb2). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtHybrid/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtHybrid/1]]) No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ~*/ /* ;; All living people have an organ (forall ((p PersonAlive)) (exists ((o Organ)) (have p o))) ;; An organ exists in which every living Persons ever will exists (exists ((o Organ)) (forall ((p PersonAlive)) (co-temporal p o))) Maybe people dont even exist? Wait.. 'co-temporal' does this mean we have created People? Have we created people with Eternal life as well? At least until the Eternal Organ is no more? To make my question fair (forall (x t) (if (and (ist t (instance x TemporalObject)) (co-temporal x y)) (ist t (exists (y) (instance y TemporalObject)))) (forall (x y) (iff (co-temporal x y) (co-temporal y x))) */ code1: (a:- printAll('$current_source_module'(_M)),b). /*~ No source location!? ~*/ kb2: (b). /*~ No source location!? ~*/ genlMt(kb2,code1). % before test, to make sure a was not accdently defined in kb2 /*~ ~*/ % before test, to make sure a was not accdently defined in kb2 :- sanity( clause(kb2:a,_)). % before test, genlMt makes the rule available and should not corrupt the code1 module /*~ %~ ?-( mpred_test("Test_0010_Line_0000__A_in_kb2_in_myMt",myMt:clause(kb2:a,Clause_Kw))). failure=info((why_was_true(myMt:(\+clause(kb2:a,_90436))),nop(ftrace(myMt:clause(kb2:a,_90436))))) no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0010_Line_0000__A_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0010_Line_0000_A_in_kb2_in_myMt-junit.xml ~*/ % before test, genlMt makes the rule available and should not corrupt the code1 module :- sanity(\+ clause(code1:b,_)). % make sure genlMt didnt unassert /*~ %~ ?-( mpred_test("Test_0011_Line_0000__naf_B_in_code1_in_myMt",myMt:(\+clause(code1:b,Clause_Kw)))). passed=info(why_was_true(myMt:(\+clause(code1:b,_451402)))) no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0011_Line_0000__naf_B_in_code1_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0011_Line_0000_naf_B_in_code1_in_myMt-junit.xml ~*/ % make sure genlMt didnt unassert :- sanity(clause(kb2:b,_)). % run the test /*~ %~ ?-( mpred_test("Test_0012_Line_0000__B_in_kb2_in_myMt",myMt:clause(kb2:b,Clause_Kw))). passed=info(why_was_true(myMt:clause(kb2:b,true))) no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0012_Line_0000__B_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0012_Line_0000_B_in_kb2_in_myMt-junit.xml ~*/ % run the test kb2: (?- a). % to make sure a does not get accdently defined in kb2 /*~ No source location!? ~*/ % to make sure a does not get accdently defined in kb2 :- mpred_must( clause(kb2:a,_)). % genlMt makes the rule available and should not corrupt the code1 module /*~ %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure+failed_mpred_test(clause(kb2:a,_934214))]) 39m %~ failed_mpred_test( clause(kb2:a,Clause_Kw)) %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 (0)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (1)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m2m96m49m11m '$toplevel'. 0m49m0m0m0m % toplevel.pl:701: (2)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m0m33m49m15m '$runtoplevel'. 0m49m39m0m0m % toplevel.pl:713: (10)$0m0m39m49m10m[system]0m49m39m0m0m0m1m37m40m13m '$load_file'('mt_09.pl',user,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:2353: (13)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$sig_atomic'(setup_call_cleanup(with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b069480),[expand(false),expand(true)])),'$mt_do_load'((0x55fc8b069480),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),'$mt_end_load'((0x55fc8b069480)))). 0m49m39m21m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (14)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (16)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b069480),[expand(false),expand(true)])),system:'$mt_do_load'((0x55fc8b069480),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),A,system:'$mt_end_load'((0x55fc8b069480))). 0m49m39m0m0m % init.pl:646: (18)$0m0m39m49m10m[system]0m49m39m0m0m#0m2m97m40m12m '$qdo_load_file'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]). 0m49m0m0m0m % init.pl:2546: (21)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m95m49m10m '$do_load_file_2'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,compiled,[expand(false),expand(true)]). 0m49m0m21m0m % init.pl:2592: (25)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:'$start_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',1632225690.9774585),system:'$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]),B,system:'$end_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',lexstate(202,swi),user)). 0m49m39m0m0m % init.pl:646: (26)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:3007: (31)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m91m49m10m '$execute_directive_3'(clause(kb2:a,A)). 0m49m0m0m0m % init.pl:3574: (32)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m catch(myMt:clause(kb2:a,A),error(B,C),system:'$exception_in_directive'(error(B,C))). 0m49m39m0m0m % init.pl:546: (33)0m2m93m49m14m[myMt]0m49m0m0m0m#0m1m95m49m17m pfc_lib:clause(kb2:a,A). 0m49m0m21m0m % mpred_core.pl:4331: (35)0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (36)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (38)0m2m93m49m14m[myMt]0m49m0m0m0m0m0m99m49m15m pfc_lib:break_ex. 0m49m0m0m0m % mpred_core.pl:4226: (39)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (40)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (43)0m2m33m49m15m[butterfly]0m49m39m0m0m0m2m93m49m14m butterfly:in_bfly(f,myMt:zotrace(with_all_dmsg((b_setval('$dump_frame',500),dumpST1)))). 0m49m0m0m0m % butterfly_console.pl:226: %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ DUMP_BREAK/0 %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:68 %~ message_hook(unhandled_exception(abort),error,['Unhandled exception: ','~p'-[abort]]) Unhandled exception: abort ERROR: Unhandled exception: abort ~*/ /*~ ~*/ /* % % PFC is a language extension for prolog. % % It adds a new type of module inheritance % % Dec 13, 2035 % Douglas Miles */ % was_module(mt_09,[]). :- include(library(logicmoo_test_header)). /*~ running(-), %~ reload_of_test_header. %~ this_test_might_need( :-( expects_dialect(pfc))) %~ this_test_might_need( :-( use_module( library(logicmoo_plarkc)))) ~*/ :- pfc_test_feature(pfc_file_detect,must(\+ is_pfc_file)). %:- add_import_module(mt_01,baseKB,end). /*~ ~*/ %:- add_import_module(mt_01,baseKB,end). :- set_defaultAssertMt(myMt). /*~ ~*/ mtProlog(code1). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtProlog/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtProlog/1]]) No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ~*/ mtHybrid(kb2). /*~ No source location!? %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:21 %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtHybrid/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtHybrid/1]]) No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ~*/ /* ;; All living people have an organ (forall ((p PersonAlive)) (exists ((o Organ)) (have p o))) ;; An organ exists in which every living Persons ever will exists (exists ((o Organ)) (forall ((p PersonAlive)) (co-temporal p o))) Maybe people dont even exist? Wait.. 'co-temporal' does this mean we have created People? Have we created people with Eternal life as well? At least until the Eternal Organ is no more? To make my question fair (forall (x t) (if (and (ist t (instance x TemporalObject)) (co-temporal x y)) (ist t (exists (y) (instance y TemporalObject)))) (forall (x y) (iff (co-temporal x y) (co-temporal y x))) */ code1: (a:- printAll('$current_source_module'(_M)),b). /*~ No source location!? ~*/ kb2: (b). /*~ No source location!? ~*/ genlMt(kb2,code1). % before test, to make sure a was not accdently defined in kb2 /*~ ~*/ % before test, to make sure a was not accdently defined in kb2 :- sanity( clause(kb2:a,_)). % before test, genlMt makes the rule available and should not corrupt the code1 module /*~ %~ ?-( mpred_test("Test_0013_Line_0000__A_in_kb2_in_myMt",myMt:clause(kb2:a,Clause_Kw))). failure=info((why_was_true(myMt:(\+clause(kb2:a,_91030))),nop(ftrace(myMt:clause(kb2:a,_91030))))) no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0013_Line_0000__A_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0013_Line_0000_A_in_kb2_in_myMt-junit.xml ~*/ % before test, genlMt makes the rule available and should not corrupt the code1 module :- sanity(\+ clause(code1:b,_)). % make sure genlMt didnt unassert /*~ %~ ?-( mpred_test("Test_0014_Line_0000__naf_B_in_code1_in_myMt",myMt:(\+clause(code1:b,Clause_Kw)))). passed=info(why_was_true(myMt:(\+clause(code1:b,_872072)))) no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0014_Line_0000__naf_B_in_code1_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0014_Line_0000_naf_B_in_code1_in_myMt-junit.xml ~*/ % make sure genlMt didnt unassert :- sanity(clause(kb2:b,_)). % run the test /*~ %~ ?-( mpred_test("Test_0015_Line_0000__B_in_kb2_in_myMt",myMt:clause(kb2:b,Clause_Kw))). passed=info(why_was_true(myMt:clause(kb2:b,true))) no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0015_Line_0000__B_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0015_Line_0000_B_in_kb2_in_myMt-junit.xml ~*/ % run the test kb2: (?- a). % to make sure a does not get accdently defined in kb2 /*~ No source location!? ~*/ % to make sure a does not get accdently defined in kb2 :- mpred_must( clause(kb2:a,_)). % genlMt makes the rule available and should not corrupt the code1 module /*~ %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure+failed_mpred_test(clause(kb2:a,_723320))]) 39m %~ failed_mpred_test( clause(kb2:a,Clause_Kw)) %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 (0)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (1)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m2m96m49m11m '$toplevel'. 0m49m0m0m0m % toplevel.pl:701: (2)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m0m33m49m15m '$runtoplevel'. 0m49m39m0m0m % toplevel.pl:713: (10)$0m0m39m49m10m[system]0m49m39m0m0m0m1m37m40m13m '$load_file'('mt_09.pl',user,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:2353: (13)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$sig_atomic'(setup_call_cleanup(with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b068c80),[expand(false),expand(true)])),'$mt_do_load'((0x55fc8b068c80),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),'$mt_end_load'((0x55fc8b068c80)))). 0m49m39m21m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (14)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (16)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b068c80),[expand(false),expand(true)])),system:'$mt_do_load'((0x55fc8b068c80),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),A,system:'$mt_end_load'((0x55fc8b068c80))). 0m49m39m0m0m % init.pl:646: (18)$0m0m39m49m10m[system]0m49m39m0m0m#0m2m97m40m12m '$qdo_load_file'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]). 0m49m0m0m0m % init.pl:2546: (21)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m95m49m10m '$do_load_file_2'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,compiled,[expand(false),expand(true)]). 0m49m0m21m0m % init.pl:2592: (25)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:'$start_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',1632225690.9774585),system:'$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]),B,system:'$end_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',lexstate(202,swi),user)). 0m49m39m0m0m % init.pl:646: (26)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:3007: (31)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m91m49m10m '$execute_directive_3'(clause(kb2:a,A)). 0m49m0m0m0m % init.pl:3574: (32)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m catch(myMt:clause(kb2:a,A),error(B,C),system:'$exception_in_directive'(error(B,C))). 0m49m39m0m0m % init.pl:546: (33)0m2m93m49m14m[myMt]0m49m0m0m0m#0m1m95m49m17m pfc_lib:clause(kb2:a,A). 0m49m0m21m0m % mpred_core.pl:4331: (35)0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (36)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (38)0m2m93m49m14m[myMt]0m49m0m0m0m0m0m99m49m15m pfc_lib:break_ex. 0m49m0m0m0m % mpred_core.pl:4226: (39)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (40)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (43)0m2m33m49m15m[butterfly]0m49m39m0m0m0m2m93m49m14m butterfly:in_bfly(f,myMt:zotrace(with_all_dmsg((b_setval('$dump_frame',500),dumpST1)))). 0m49m0m0m0m % butterfly_console.pl:226: %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ DUMP_BREAK/0 %~ message_hook(unhandled_exception(abort),error,['Unhandled exception: ','~p'-[abort]]) Unhandled exception: abort ERROR: Unhandled exception: abort ~*/ /*~ ~*/ /* % % PFC is a language extension for prolog. % % It adds a new type of module inheritance % % Dec 13, 2035 % Douglas Miles */ % was_module(mt_09,[]). :- include(library(logicmoo_test_header)). /*~ running(-), %~ reload_of_test_header. %~ this_test_might_need( :-( expects_dialect(pfc))) %~ this_test_might_need( :-( use_module( library(logicmoo_plarkc)))) ~*/ :- pfc_test_feature(pfc_file_detect,must(\+ is_pfc_file)). %:- add_import_module(mt_01,baseKB,end). /*~ ~*/ %:- add_import_module(mt_01,baseKB,end). :- set_defaultAssertMt(myMt). /*~ ~*/ mtProlog(code1). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtProlog/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtProlog/1]]) No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ~*/ mtHybrid(kb2). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtHybrid/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtHybrid/1]]) No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ~*/ /* ;; All living people have an organ (forall ((p PersonAlive)) (exists ((o Organ)) (have p o))) ;; An organ exists in which every living Persons ever will exists (exists ((o Organ)) (forall ((p PersonAlive)) (co-temporal p o))) Maybe people dont even exist? Wait.. 'co-temporal' does this mean we have created People? Have we created people with Eternal life as well? At least until the Eternal Organ is no more? To make my question fair (forall (x t) (if (and (ist t (instance x TemporalObject)) (co-temporal x y)) (ist t (exists (y) (instance y TemporalObject)))) (forall (x y) (iff (co-temporal x y) (co-temporal y x))) */ code1: (a:- printAll('$current_source_module'(_M)),b). /*~ No source location!? ~*/ kb2: (b). /*~ No source location!? ~*/ genlMt(kb2,code1). % before test, to make sure a was not accdently defined in kb2 /*~ ~*/ % before test, to make sure a was not accdently defined in kb2 :- sanity( clause(kb2:a,_)). % before test, genlMt makes the rule available and should not corrupt the code1 module /*~ %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:53 %~ ?-( mpred_test("Test_0016_Line_0000__A_in_kb2_in_myMt",myMt:clause(kb2:a,Clause_Kw))). failure=info((why_was_true(myMt:(\+clause(kb2:a,_91558))),nop(ftrace(myMt:clause(kb2:a,_91558))))) no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0016_Line_0000__A_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0016_Line_0000_A_in_kb2_in_myMt-junit.xml ~*/ % before test, genlMt makes the rule available and should not corrupt the code1 module :- sanity(\+ clause(code1:b,_)). % make sure genlMt didnt unassert /*~ %~ ?-( mpred_test("Test_0017_Line_0000__naf_B_in_code1_in_myMt",myMt:(\+clause(code1:b,Clause_Kw)))). passed=info(why_was_true(myMt:(\+clause(code1:b,_487246)))) no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0017_Line_0000__naf_B_in_code1_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0017_Line_0000_naf_B_in_code1_in_myMt-junit.xml ~*/ % make sure genlMt didnt unassert :- sanity(clause(kb2:b,_)). % run the test /*~ %~ ?-( mpred_test("Test_0018_Line_0000__B_in_kb2_in_myMt",myMt:clause(kb2:b,Clause_Kw))). passed=info(why_was_true(myMt:clause(kb2:b,true))) no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0018_Line_0000__B_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0018_Line_0000_B_in_kb2_in_myMt-junit.xml ~*/ % run the test kb2: (?- a). % to make sure a does not get accdently defined in kb2 /*~ No source location!? ~*/ % to make sure a does not get accdently defined in kb2 :- mpred_must( clause(kb2:a,_)). % genlMt makes the rule available and should not corrupt the code1 module /*~ %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure+failed_mpred_test(clause(kb2:a,_858694))]) 39m %~ failed_mpred_test( clause(kb2:a,Clause_Kw)) %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 (0)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (1)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m2m96m49m11m '$toplevel'. 0m49m0m0m0m % toplevel.pl:701: (2)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m0m33m49m15m '$runtoplevel'. 0m49m39m0m0m % toplevel.pl:713: (10)$0m0m39m49m10m[system]0m49m39m0m0m0m1m37m40m13m '$load_file'('mt_09.pl',user,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:2353: (13)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$sig_atomic'(setup_call_cleanup(with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b073c00),[expand(false),expand(true)])),'$mt_do_load'((0x55fc8b073c00),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),'$mt_end_load'((0x55fc8b073c00)))). 0m49m39m21m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (14)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (16)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b073c00),[expand(false),expand(true)])),system:'$mt_do_load'((0x55fc8b073c00),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),A,system:'$mt_end_load'((0x55fc8b073c00))). 0m49m39m0m0m % init.pl:646: (18)$0m0m39m49m10m[system]0m49m39m0m0m#0m2m97m40m12m '$qdo_load_file'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]). 0m49m0m0m0m % init.pl:2546: (21)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m95m49m10m '$do_load_file_2'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,compiled,[expand(false),expand(true)]). 0m49m0m21m0m % init.pl:2592: (25)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:'$start_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',1632225690.9774585),system:'$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]),B,system:'$end_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',lexstate(202,swi),user)). 0m49m39m0m0m % init.pl:646: (26)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:3007: (31)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m91m49m10m '$execute_directive_3'(clause(kb2:a,A)). 0m49m0m0m0m % init.pl:3574: (32)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m catch(myMt:clause(kb2:a,A),error(B,C),system:'$exception_in_directive'(error(B,C))). 0m49m39m0m0m % init.pl:546: (33)0m2m93m49m14m[myMt]0m49m0m0m0m#0m1m95m49m17m pfc_lib:clause(kb2:a,A). 0m49m0m21m0m % mpred_core.pl:4331: (35)0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (36)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (38)0m2m93m49m14m[myMt]0m49m0m0m0m0m0m99m49m15m pfc_lib:break_ex. 0m49m0m0m0m % mpred_core.pl:4226: (39)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (40)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (43)0m2m33m49m15m[butterfly]0m49m39m0m0m0m2m93m49m14m butterfly:in_bfly(f,myMt:zotrace(with_all_dmsg((b_setval('$dump_frame',500),dumpST1)))). 0m49m0m0m0m % butterfly_console.pl:226: %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ DUMP_BREAK/0 %~ message_hook(unhandled_exception(abort),error,['Unhandled exception: ','~p'-[abort]]) Unhandled exception: abort ERROR: Unhandled exception: abort ~*/ /*~ ~*/ /* % % PFC is a language extension for prolog. % % It adds a new type of module inheritance % % Dec 13, 2035 % Douglas Miles */ % was_module(mt_09,[]). :- include(library(logicmoo_test_header)). /*~ running(-), %~ /var/lib/jenkins/.local/share/swi-prolog/pack/logicmoo_utils/prolog/logicmoo_test_header.pl:59 %~ reload_of_test_header. %~ this_test_might_need( :-( expects_dialect(pfc))) %~ this_test_might_need( :-( use_module( library(logicmoo_plarkc)))) ~*/ :- pfc_test_feature(pfc_file_detect,must(\+ is_pfc_file)). %:- add_import_module(mt_01,baseKB,end). /*~ ~*/ %:- add_import_module(mt_01,baseKB,end). :- set_defaultAssertMt(myMt). /*~ ~*/ mtProlog(code1). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtProlog/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtProlog/1]]) No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ~*/ mtHybrid(kb2). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtHybrid/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtHybrid/1]]) No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ~*/ /* ;; All living people have an organ (forall ((p PersonAlive)) (exists ((o Organ)) (have p o))) ;; An organ exists in which every living Persons ever will exists (exists ((o Organ)) (forall ((p PersonAlive)) (co-temporal p o))) Maybe people dont even exist? Wait.. 'co-temporal' does this mean we have created People? Have we created people with Eternal life as well? At least until the Eternal Organ is no more? To make my question fair (forall (x t) (if (and (ist t (instance x TemporalObject)) (co-temporal x y)) (ist t (exists (y) (instance y TemporalObject)))) (forall (x y) (iff (co-temporal x y) (co-temporal y x))) */ code1: (a:- printAll('$current_source_module'(_M)),b). /*~ No source location!? ~*/ kb2: (b). /*~ No source location!? ~*/ genlMt(kb2,code1). % before test, to make sure a was not accdently defined in kb2 /*~ ~*/ % before test, to make sure a was not accdently defined in kb2 :- sanity( clause(kb2:a,_)). % before test, genlMt makes the rule available and should not corrupt the code1 module /*~ %~ ?-( mpred_test("Test_0019_Line_0000__A_in_kb2_in_myMt",myMt:clause(kb2:a,Clause_Kw))). failure=info((why_was_true(myMt:(\+clause(kb2:a,_1095098))),nop(ftrace(myMt:clause(kb2:a,_1095098))))) no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0019_Line_0000__A_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0019_Line_0000_A_in_kb2_in_myMt-junit.xml ~*/ % before test, genlMt makes the rule available and should not corrupt the code1 module :- sanity(\+ clause(code1:b,_)). % make sure genlMt didnt unassert /*~ %~ ?-( mpred_test("Test_0020_Line_0000__naf_B_in_code1_in_myMt",myMt:(\+clause(code1:b,Clause_Kw)))). passed=info(why_was_true(myMt:(\+clause(code1:b,_693970)))) no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0020_Line_0000__naf_B_in_code1_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0020_Line_0000_naf_B_in_code1_in_myMt-junit.xml ~*/ % make sure genlMt didnt unassert :- sanity(clause(kb2:b,_)). % run the test /*~ %~ ?-( mpred_test("Test_0021_Line_0000__B_in_kb2_in_myMt",myMt:clause(kb2:b,Clause_Kw))). passed=info(why_was_true(myMt:clause(kb2:b,true))) no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0021_Line_0000__B_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0021_Line_0000_B_in_kb2_in_myMt-junit.xml ~*/ % run the test kb2: (?- a). % to make sure a does not get accdently defined in kb2 /*~ No source location!? ~*/ % to make sure a does not get accdently defined in kb2 :- mpred_must( clause(kb2:a,_)). % genlMt makes the rule available and should not corrupt the code1 module /*~ %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure+failed_mpred_test(clause(kb2:a,_1023822))]) 39m %~ failed_mpred_test( clause(kb2:a,Clause_Kw)) %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 (0)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (1)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m2m96m49m11m '$toplevel'. 0m49m0m0m0m % toplevel.pl:701: (2)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m0m33m49m15m '$runtoplevel'. 0m49m39m0m0m % toplevel.pl:713: (10)$0m0m39m49m10m[system]0m49m39m0m0m0m1m37m40m13m '$load_file'('mt_09.pl',user,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:2353: (13)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$sig_atomic'(setup_call_cleanup(with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8fa4d200),[expand(false),expand(true)])),'$mt_do_load'((0x55fc8fa4d200),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),'$mt_end_load'((0x55fc8fa4d200)))). 0m49m39m21m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (14)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (16)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8fa4d200),[expand(false),expand(true)])),system:'$mt_do_load'((0x55fc8fa4d200),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),A,system:'$mt_end_load'((0x55fc8fa4d200))). 0m49m39m0m0m % init.pl:646: (18)$0m0m39m49m10m[system]0m49m39m0m0m#0m2m97m40m12m '$qdo_load_file'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]). 0m49m0m0m0m % init.pl:2546: (21)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m95m49m10m '$do_load_file_2'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,compiled,[expand(false),expand(true)]). 0m49m0m21m0m % init.pl:2592: (25)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:'$start_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',1632225690.9774585),system:'$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]),B,system:'$end_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',lexstate(202,swi),user)). 0m49m39m0m0m % init.pl:646: (26)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:3007: (31)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m91m49m10m '$execute_directive_3'(clause(kb2:a,A)). 0m49m0m0m0m % init.pl:3574: (32)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m catch(myMt:clause(kb2:a,A),error(B,C),system:'$exception_in_directive'(error(B,C))). 0m49m39m0m0m % init.pl:546: (33)0m2m93m49m14m[myMt]0m49m0m0m0m#0m1m95m49m17m pfc_lib:clause(kb2:a,A). 0m49m0m21m0m % mpred_core.pl:4331: (35)0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (36)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (38)0m2m93m49m14m[myMt]0m49m0m0m0m0m0m99m49m15m pfc_lib:break_ex. 0m49m0m0m0m % mpred_core.pl:4226: (39)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (40)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (43)0m2m33m49m15m[butterfly]0m49m39m0m0m0m2m93m49m14m butterfly:in_bfly(f,myMt:zotrace(with_all_dmsg((b_setval('$dump_frame',500),dumpST1)))). 0m49m0m0m0m % butterfly_console.pl:226: %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:68 %~ DUMP_BREAK/0 %~ message_hook(unhandled_exception(abort),error,['Unhandled exception: ','~p'-[abort]]) Unhandled exception: abort ERROR: Unhandled exception: abort ~*/ /*~ ~*/ /* % % PFC is a language extension for prolog. % % It adds a new type of module inheritance % % Dec 13, 2035 % Douglas Miles */ % was_module(mt_09,[]). :- include(library(logicmoo_test_header)). /*~ running(-), %~ reload_of_test_header. %~ this_test_might_need( :-( expects_dialect(pfc))) %~ this_test_might_need( :-( use_module( library(logicmoo_plarkc)))) ~*/ :- pfc_test_feature(pfc_file_detect,must(\+ is_pfc_file)). %:- add_import_module(mt_01,baseKB,end). /*~ ~*/ %:- add_import_module(mt_01,baseKB,end). :- set_defaultAssertMt(myMt). /*~ ~*/ mtProlog(code1). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtProlog/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtProlog/1]]) No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ~*/ mtHybrid(kb2). /*~ No source location!? %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:21 %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtHybrid/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtHybrid/1]]) No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ~*/ /* ;; All living people have an organ (forall ((p PersonAlive)) (exists ((o Organ)) (have p o))) ;; An organ exists in which every living Persons ever will exists (exists ((o Organ)) (forall ((p PersonAlive)) (co-temporal p o))) Maybe people dont even exist? Wait.. 'co-temporal' does this mean we have created People? Have we created people with Eternal life as well? At least until the Eternal Organ is no more? To make my question fair (forall (x t) (if (and (ist t (instance x TemporalObject)) (co-temporal x y)) (ist t (exists (y) (instance y TemporalObject)))) (forall (x y) (iff (co-temporal x y) (co-temporal y x))) */ code1: (a:- printAll('$current_source_module'(_M)),b). /*~ No source location!? ~*/ kb2: (b). /*~ No source location!? ~*/ genlMt(kb2,code1). % before test, to make sure a was not accdently defined in kb2 /*~ ~*/ % before test, to make sure a was not accdently defined in kb2 :- sanity( clause(kb2:a,_)). % before test, genlMt makes the rule available and should not corrupt the code1 module /*~ %~ ?-( mpred_test("Test_0022_Line_0000__A_in_kb2_in_myMt",myMt:clause(kb2:a,Clause_Kw))). failure=info((why_was_true(myMt:(\+clause(kb2:a,_92712))),nop(ftrace(myMt:clause(kb2:a,_92712))))) no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0022_Line_0000__A_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0022_Line_0000_A_in_kb2_in_myMt-junit.xml ~*/ % before test, genlMt makes the rule available and should not corrupt the code1 module :- sanity(\+ clause(code1:b,_)). % make sure genlMt didnt unassert /*~ %~ ?-( mpred_test("Test_0023_Line_0000__naf_B_in_code1_in_myMt",myMt:(\+clause(code1:b,Clause_Kw)))). passed=info(why_was_true(myMt:(\+clause(code1:b,_1439484)))) no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0023_Line_0000__naf_B_in_code1_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0023_Line_0000_naf_B_in_code1_in_myMt-junit.xml ~*/ % make sure genlMt didnt unassert :- sanity(clause(kb2:b,_)). % run the test /*~ %~ ?-( mpred_test("Test_0024_Line_0000__B_in_kb2_in_myMt",myMt:clause(kb2:b,Clause_Kw))). passed=info(why_was_true(myMt:clause(kb2:b,true))) no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0024_Line_0000__B_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0024_Line_0000_B_in_kb2_in_myMt-junit.xml ~*/ % run the test kb2: (?- a). % to make sure a does not get accdently defined in kb2 /*~ No source location!? ~*/ % to make sure a does not get accdently defined in kb2 :- mpred_must( clause(kb2:a,_)). % genlMt makes the rule available and should not corrupt the code1 module /*~ %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure+failed_mpred_test(clause(kb2:a,_1029568))]) 39m %~ failed_mpred_test( clause(kb2:a,Clause_Kw)) %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 (0)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (1)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m2m96m49m11m '$toplevel'. 0m49m0m0m0m % toplevel.pl:701: (2)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m0m33m49m15m '$runtoplevel'. 0m49m39m0m0m % toplevel.pl:713: (10)$0m0m39m49m10m[system]0m49m39m0m0m0m1m37m40m13m '$load_file'('mt_09.pl',user,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:2353: (13)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$sig_atomic'(setup_call_cleanup(with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b069c00),[expand(false),expand(true)])),'$mt_do_load'((0x55fc8b069c00),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),'$mt_end_load'((0x55fc8b069c00)))). 0m49m39m21m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (14)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (16)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b069c00),[expand(false),expand(true)])),system:'$mt_do_load'((0x55fc8b069c00),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),A,system:'$mt_end_load'((0x55fc8b069c00))). 0m49m39m0m0m % init.pl:646: (18)$0m0m39m49m10m[system]0m49m39m0m0m#0m2m97m40m12m '$qdo_load_file'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]). 0m49m0m0m0m % init.pl:2546: (21)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m95m49m10m '$do_load_file_2'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,compiled,[expand(false),expand(true)]). 0m49m0m21m0m % init.pl:2592: (25)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:'$start_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',1632225690.9774585),system:'$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]),B,system:'$end_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',lexstate(202,swi),user)). 0m49m39m0m0m % init.pl:646: (26)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:3007: (31)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m91m49m10m '$execute_directive_3'(clause(kb2:a,A)). 0m49m0m0m0m % init.pl:3574: (32)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m catch(myMt:clause(kb2:a,A),error(B,C),system:'$exception_in_directive'(error(B,C))). 0m49m39m0m0m % init.pl:546: (33)0m2m93m49m14m[myMt]0m49m0m0m0m#0m1m95m49m17m pfc_lib:clause(kb2:a,A). 0m49m0m21m0m % mpred_core.pl:4331: (35)0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (36)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (38)0m2m93m49m14m[myMt]0m49m0m0m0m0m0m99m49m15m pfc_lib:break_ex. 0m49m0m0m0m % mpred_core.pl:4226: (39)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (40)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (43)0m2m33m49m15m[butterfly]0m49m39m0m0m0m2m93m49m14m butterfly:in_bfly(f,myMt:zotrace(with_all_dmsg((b_setval('$dump_frame',500),dumpST1)))). 0m49m0m0m0m % butterfly_console.pl:226: %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:68 %~ DUMP_BREAK/0 %~ message_hook(unhandled_exception(abort),error,['Unhandled exception: ','~p'-[abort]]) Unhandled exception: abort ERROR: Unhandled exception: abort ~*/ /*~ ~*/ /* % % PFC is a language extension for prolog. % % It adds a new type of module inheritance % % Dec 13, 2035 % Douglas Miles */ % was_module(mt_09,[]). :- include(library(logicmoo_test_header)). /*~ running(-), %~ reload_of_test_header. %~ this_test_might_need( :-( expects_dialect(pfc))) %~ this_test_might_need( :-( use_module( library(logicmoo_plarkc)))) ~*/ :- pfc_test_feature(pfc_file_detect,must(\+ is_pfc_file)). %:- add_import_module(mt_01,baseKB,end). /*~ ~*/ %:- add_import_module(mt_01,baseKB,end). :- set_defaultAssertMt(myMt). /*~ ~*/ mtProlog(code1). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtProlog/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtProlog/1]]) No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ~*/ mtHybrid(kb2). /*~ No source location!? %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:21 %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtHybrid/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtHybrid/1]]) No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ~*/ /* ;; All living people have an organ (forall ((p PersonAlive)) (exists ((o Organ)) (have p o))) ;; An organ exists in which every living Persons ever will exists (exists ((o Organ)) (forall ((p PersonAlive)) (co-temporal p o))) Maybe people dont even exist? Wait.. 'co-temporal' does this mean we have created People? Have we created people with Eternal life as well? At least until the Eternal Organ is no more? To make my question fair (forall (x t) (if (and (ist t (instance x TemporalObject)) (co-temporal x y)) (ist t (exists (y) (instance y TemporalObject)))) (forall (x y) (iff (co-temporal x y) (co-temporal y x))) */ code1: (a:- printAll('$current_source_module'(_M)),b). /*~ No source location!? ~*/ kb2: (b). /*~ No source location!? ~*/ genlMt(kb2,code1). % before test, to make sure a was not accdently defined in kb2 /*~ ~*/ % before test, to make sure a was not accdently defined in kb2 :- sanity( clause(kb2:a,_)). % before test, genlMt makes the rule available and should not corrupt the code1 module /*~ %~ ?-( mpred_test("Test_0025_Line_0000__A_in_kb2_in_myMt",myMt:clause(kb2:a,Clause_Kw))). failure=info((why_was_true(myMt:(\+clause(kb2:a,_1268662))),nop(ftrace(myMt:clause(kb2:a,_1268662))))) no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0025_Line_0000__A_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0025_Line_0000_A_in_kb2_in_myMt-junit.xml ~*/ % before test, genlMt makes the rule available and should not corrupt the code1 module :- sanity(\+ clause(code1:b,_)). % make sure genlMt didnt unassert /*~ %~ ?-( mpred_test("Test_0026_Line_0000__naf_B_in_code1_in_myMt",myMt:(\+clause(code1:b,Clause_Kw)))). passed=info(why_was_true(myMt:(\+clause(code1:b,_2784702)))) no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0026_Line_0000__naf_B_in_code1_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0026_Line_0000_naf_B_in_code1_in_myMt-junit.xml ~*/ % make sure genlMt didnt unassert :- sanity(clause(kb2:b,_)). % run the test /*~ %~ ?-( mpred_test("Test_0027_Line_0000__B_in_kb2_in_myMt",myMt:clause(kb2:b,Clause_Kw))). passed=info(why_was_true(myMt:clause(kb2:b,true))) no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0027_Line_0000__B_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0027_Line_0000_B_in_kb2_in_myMt-junit.xml ~*/ % run the test kb2: (?- a). % to make sure a does not get accdently defined in kb2 /*~ No source location!? ~*/ % to make sure a does not get accdently defined in kb2 :- mpred_must( clause(kb2:a,_)). % genlMt makes the rule available and should not corrupt the code1 module /*~ %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure+failed_mpred_test(clause(kb2:a,_2330296))]) 39m %~ failed_mpred_test( clause(kb2:a,Clause_Kw)) %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 (0)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (1)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m2m96m49m11m '$toplevel'. 0m49m0m0m0m % toplevel.pl:701: (2)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m0m33m49m15m '$runtoplevel'. 0m49m39m0m0m % toplevel.pl:713: (10)$0m0m39m49m10m[system]0m49m39m0m0m0m1m37m40m13m '$load_file'('mt_09.pl',user,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:2353: (13)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$sig_atomic'(setup_call_cleanup(with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b073c00),[expand(false),expand(true)])),'$mt_do_load'((0x55fc8b073c00),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),'$mt_end_load'((0x55fc8b073c00)))). 0m49m39m21m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (14)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (16)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b073c00),[expand(false),expand(true)])),system:'$mt_do_load'((0x55fc8b073c00),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),A,system:'$mt_end_load'((0x55fc8b073c00))). 0m49m39m0m0m % init.pl:646: (18)$0m0m39m49m10m[system]0m49m39m0m0m#0m2m97m40m12m '$qdo_load_file'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]). 0m49m0m0m0m % init.pl:2546: (21)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m95m49m10m '$do_load_file_2'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,compiled,[expand(false),expand(true)]). 0m49m0m21m0m % init.pl:2592: (25)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:'$start_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',1632225690.9774585),system:'$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]),B,system:'$end_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',lexstate(202,swi),user)). 0m49m39m0m0m % init.pl:646: (26)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:3007: (31)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m91m49m10m '$execute_directive_3'(clause(kb2:a,A)). 0m49m0m0m0m % init.pl:3574: (32)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m catch(myMt:clause(kb2:a,A),error(B,C),system:'$exception_in_directive'(error(B,C))). 0m49m39m0m0m % init.pl:546: (33)0m2m93m49m14m[myMt]0m49m0m0m0m#0m1m95m49m17m pfc_lib:clause(kb2:a,A). 0m49m0m21m0m % mpred_core.pl:4331: (35)0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (36)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (38)0m2m93m49m14m[myMt]0m49m0m0m0m0m0m99m49m15m pfc_lib:break_ex. 0m49m0m0m0m % mpred_core.pl:4226: (39)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (40)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (43)0m2m33m49m15m[butterfly]0m49m39m0m0m0m2m93m49m14m butterfly:in_bfly(f,myMt:zotrace(with_all_dmsg((b_setval('$dump_frame',500),dumpST1)))). 0m49m0m0m0m % butterfly_console.pl:226: %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ DUMP_BREAK/0 %~ message_hook(unhandled_exception(abort),error,['Unhandled exception: ','~p'-[abort]]) Unhandled exception: abort ERROR: Unhandled exception: abort ~*/ /*~ ~*/ /* % % PFC is a language extension for prolog. % % It adds a new type of module inheritance % % Dec 13, 2035 % Douglas Miles */ % was_module(mt_09,[]). :- include(library(logicmoo_test_header)). /*~ running(-), %~ reload_of_test_header. %~ this_test_might_need( :-( expects_dialect(pfc))) %~ /var/lib/jenkins/.local/share/swi-prolog/pack/logicmoo_utils/prolog/logicmoo_test_header.pl:96 %~ this_test_might_need( :-( use_module( library(logicmoo_plarkc)))) ~*/ :- pfc_test_feature(pfc_file_detect,must(\+ is_pfc_file)). %:- add_import_module(mt_01,baseKB,end). /*~ ~*/ %:- add_import_module(mt_01,baseKB,end). :- set_defaultAssertMt(myMt). /*~ ~*/ mtProlog(code1). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtProlog/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtProlog/1]]) No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ~*/ mtHybrid(kb2). /*~ No source location!? %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:21 %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtHybrid/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtHybrid/1]]) No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ~*/ /* ;; All living people have an organ (forall ((p PersonAlive)) (exists ((o Organ)) (have p o))) ;; An organ exists in which every living Persons ever will exists (exists ((o Organ)) (forall ((p PersonAlive)) (co-temporal p o))) Maybe people dont even exist? Wait.. 'co-temporal' does this mean we have created People? Have we created people with Eternal life as well? At least until the Eternal Organ is no more? To make my question fair (forall (x t) (if (and (ist t (instance x TemporalObject)) (co-temporal x y)) (ist t (exists (y) (instance y TemporalObject)))) (forall (x y) (iff (co-temporal x y) (co-temporal y x))) */ code1: (a:- printAll('$current_source_module'(_M)),b). /*~ No source location!? ~*/ kb2: (b). /*~ No source location!? ~*/ genlMt(kb2,code1). % before test, to make sure a was not accdently defined in kb2 /*~ ~*/ % before test, to make sure a was not accdently defined in kb2 :- sanity( clause(kb2:a,_)). % before test, genlMt makes the rule available and should not corrupt the code1 module /*~ %~ ?-( mpred_test("Test_0028_Line_0000__A_in_kb2_in_myMt",myMt:clause(kb2:a,Clause_Kw))). failure=info((why_was_true(myMt:(\+clause(kb2:a,_94100))),nop(ftrace(myMt:clause(kb2:a,_94100))))) no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0028_Line_0000__A_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0028_Line_0000_A_in_kb2_in_myMt-junit.xml ~*/ % before test, genlMt makes the rule available and should not corrupt the code1 module :- sanity(\+ clause(code1:b,_)). % make sure genlMt didnt unassert /*~ %~ ?-( mpred_test("Test_0029_Line_0000__naf_B_in_code1_in_myMt",myMt:(\+clause(code1:b,Clause_Kw)))). passed=info(why_was_true(myMt:(\+clause(code1:b,_1779188)))) no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0029_Line_0000__naf_B_in_code1_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0029_Line_0000_naf_B_in_code1_in_myMt-junit.xml ~*/ % make sure genlMt didnt unassert :- sanity(clause(kb2:b,_)). % run the test /*~ %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:59 %~ ?-( mpred_test("Test_0030_Line_0000__B_in_kb2_in_myMt",myMt:clause(kb2:b,Clause_Kw))). passed=info(why_was_true(myMt:clause(kb2:b,true))) no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0030_Line_0000__B_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0030_Line_0000_B_in_kb2_in_myMt-junit.xml ~*/ % run the test kb2: (?- a). % to make sure a does not get accdently defined in kb2 /*~ No source location!? ~*/ % to make sure a does not get accdently defined in kb2 :- mpred_must( clause(kb2:a,_)). % genlMt makes the rule available and should not corrupt the code1 module /*~ %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure+failed_mpred_test(clause(kb2:a,_1526336))]) 39m %~ failed_mpred_test( clause(kb2:a,Clause_Kw)) %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 (0)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (1)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m2m96m49m11m '$toplevel'. 0m49m0m0m0m % toplevel.pl:701: (2)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m0m33m49m15m '$runtoplevel'. 0m49m39m0m0m % toplevel.pl:713: (10)$0m0m39m49m10m[system]0m49m39m0m0m0m1m37m40m13m '$load_file'('mt_09.pl',user,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:2353: (13)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$sig_atomic'(setup_call_cleanup(with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b069a80),[expand(false),expand(true)])),'$mt_do_load'((0x55fc8b069a80),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),'$mt_end_load'((0x55fc8b069a80)))). 0m49m39m21m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (14)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (16)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b069a80),[expand(false),expand(true)])),system:'$mt_do_load'((0x55fc8b069a80),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),A,system:'$mt_end_load'((0x55fc8b069a80))). 0m49m39m0m0m % init.pl:646: (18)$0m0m39m49m10m[system]0m49m39m0m0m#0m2m97m40m12m '$qdo_load_file'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]). 0m49m0m0m0m % init.pl:2546: (21)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m95m49m10m '$do_load_file_2'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,compiled,[expand(false),expand(true)]). 0m49m0m21m0m % init.pl:2592: (25)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:'$start_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',1632225690.9774585),system:'$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]),B,system:'$end_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',lexstate(202,swi),user)). 0m49m39m0m0m % init.pl:646: (26)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:3007: (31)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m91m49m10m '$execute_directive_3'(clause(kb2:a,A)). 0m49m0m0m0m % init.pl:3574: (32)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m catch(myMt:clause(kb2:a,A),error(B,C),system:'$exception_in_directive'(error(B,C))). 0m49m39m0m0m % init.pl:546: (33)0m2m93m49m14m[myMt]0m49m0m0m0m#0m1m95m49m17m pfc_lib:clause(kb2:a,A). 0m49m0m21m0m % mpred_core.pl:4331: (35)0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (36)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (38)0m2m93m49m14m[myMt]0m49m0m0m0m0m0m99m49m15m pfc_lib:break_ex. 0m49m0m0m0m % mpred_core.pl:4226: (39)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (40)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (43)0m2m33m49m15m[butterfly]0m49m39m0m0m0m2m93m49m14m butterfly:in_bfly(f,myMt:zotrace(with_all_dmsg((b_setval('$dump_frame',500),dumpST1)))). 0m49m0m0m0m % butterfly_console.pl:226: %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ DUMP_BREAK/0 %~ message_hook(unhandled_exception(abort),error,['Unhandled exception: ','~p'-[abort]]) Unhandled exception: abort ERROR: Unhandled exception: abort ~*/ /*~ ~*/ /* % % PFC is a language extension for prolog. % % It adds a new type of module inheritance % % Dec 13, 2035 % Douglas Miles */ % was_module(mt_09,[]). :- include(library(logicmoo_test_header)). /*~ running(-), %~ reload_of_test_header. %~ /var/lib/jenkins/.local/share/swi-prolog/pack/logicmoo_utils/prolog/logicmoo_test_header.pl:93 %~ this_test_might_need( :-( expects_dialect(pfc))) %~ this_test_might_need( :-( use_module( library(logicmoo_plarkc)))) ~*/ :- pfc_test_feature(pfc_file_detect,must(\+ is_pfc_file)). %:- add_import_module(mt_01,baseKB,end). /*~ ~*/ %:- add_import_module(mt_01,baseKB,end). :- set_defaultAssertMt(myMt). /*~ ~*/ mtProlog(code1). /*~ No source location!? %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:20 %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtProlog/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtProlog/1]]) No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ~*/ mtHybrid(kb2). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtHybrid/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtHybrid/1]]) No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ~*/ /* ;; All living people have an organ (forall ((p PersonAlive)) (exists ((o Organ)) (have p o))) ;; An organ exists in which every living Persons ever will exists (exists ((o Organ)) (forall ((p PersonAlive)) (co-temporal p o))) Maybe people dont even exist? Wait.. 'co-temporal' does this mean we have created People? Have we created people with Eternal life as well? At least until the Eternal Organ is no more? To make my question fair (forall (x t) (if (and (ist t (instance x TemporalObject)) (co-temporal x y)) (ist t (exists (y) (instance y TemporalObject)))) (forall (x y) (iff (co-temporal x y) (co-temporal y x))) */ code1: (a:- printAll('$current_source_module'(_M)),b). /*~ No source location!? ~*/ kb2: (b). /*~ No source location!? ~*/ genlMt(kb2,code1). % before test, to make sure a was not accdently defined in kb2 /*~ ~*/ % before test, to make sure a was not accdently defined in kb2 :- sanity( clause(kb2:a,_)). % before test, genlMt makes the rule available and should not corrupt the code1 module /*~ %~ ?-( mpred_test("Test_0031_Line_0000__A_in_kb2_in_myMt",myMt:clause(kb2:a,Clause_Kw))). failure=info((why_was_true(myMt:(\+clause(kb2:a,_94658))),nop(ftrace(myMt:clause(kb2:a,_94658))))) no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0031_Line_0000__A_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0031_Line_0000_A_in_kb2_in_myMt-junit.xml ~*/ % before test, genlMt makes the rule available and should not corrupt the code1 module :- sanity(\+ clause(code1:b,_)). % make sure genlMt didnt unassert /*~ %~ ?-( mpred_test("Test_0032_Line_0000__naf_B_in_code1_in_myMt",myMt:(\+clause(code1:b,Clause_Kw)))). passed=info(why_was_true(myMt:(\+clause(code1:b,_1949182)))) no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0032_Line_0000__naf_B_in_code1_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0032_Line_0000_naf_B_in_code1_in_myMt-junit.xml ~*/ % make sure genlMt didnt unassert :- sanity(clause(kb2:b,_)). % run the test /*~ %~ ?-( mpred_test("Test_0033_Line_0000__B_in_kb2_in_myMt",myMt:clause(kb2:b,Clause_Kw))). passed=info(why_was_true(myMt:clause(kb2:b,true))) no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0033_Line_0000__B_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0033_Line_0000_B_in_kb2_in_myMt-junit.xml ~*/ % run the test kb2: (?- a). % to make sure a does not get accdently defined in kb2 /*~ No source location!? ~*/ % to make sure a does not get accdently defined in kb2 :- mpred_must( clause(kb2:a,_)). % genlMt makes the rule available and should not corrupt the code1 module /*~ %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure+failed_mpred_test(clause(kb2:a,_1676520))]) 39m %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:68 %~ failed_mpred_test( clause(kb2:a,Clause_Kw)) %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 (0)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (1)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m2m96m49m11m '$toplevel'. 0m49m0m0m0m % toplevel.pl:701: (2)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m0m33m49m15m '$runtoplevel'. 0m49m39m0m0m % toplevel.pl:713: (10)$0m0m39m49m10m[system]0m49m39m0m0m0m1m37m40m13m '$load_file'('mt_09.pl',user,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:2353: (13)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$sig_atomic'(setup_call_cleanup(with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b068600),[expand(false),expand(true)])),'$mt_do_load'((0x55fc8b068600),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),'$mt_end_load'((0x55fc8b068600)))). 0m49m39m21m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (14)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (16)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b068600),[expand(false),expand(true)])),system:'$mt_do_load'((0x55fc8b068600),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),A,system:'$mt_end_load'((0x55fc8b068600))). 0m49m39m0m0m % init.pl:646: (18)$0m0m39m49m10m[system]0m49m39m0m0m#0m2m97m40m12m '$qdo_load_file'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]). 0m49m0m0m0m % init.pl:2546: (21)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m95m49m10m '$do_load_file_2'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,compiled,[expand(false),expand(true)]). 0m49m0m21m0m % init.pl:2592: (25)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:'$start_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',1632225690.9774585),system:'$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]),B,system:'$end_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',lexstate(202,swi),user)). 0m49m39m0m0m % init.pl:646: (26)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:3007: (31)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m91m49m10m '$execute_directive_3'(clause(kb2:a,A)). 0m49m0m0m0m % init.pl:3574: (32)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m catch(myMt:clause(kb2:a,A),error(B,C),system:'$exception_in_directive'(error(B,C))). 0m49m39m0m0m % init.pl:546: (33)0m2m93m49m14m[myMt]0m49m0m0m0m#0m1m95m49m17m pfc_lib:clause(kb2:a,A). 0m49m0m21m0m % mpred_core.pl:4331: (35)0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (36)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (38)0m2m93m49m14m[myMt]0m49m0m0m0m0m0m99m49m15m pfc_lib:break_ex. 0m49m0m0m0m % mpred_core.pl:4226: (39)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (40)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (43)0m2m33m49m15m[butterfly]0m49m39m0m0m0m2m93m49m14m butterfly:in_bfly(f,myMt:zotrace(with_all_dmsg((b_setval('$dump_frame',500),dumpST1)))). 0m49m0m0m0m % butterfly_console.pl:226: %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ DUMP_BREAK/0 %~ message_hook(unhandled_exception(abort),error,['Unhandled exception: ','~p'-[abort]]) Unhandled exception: abort ERROR: Unhandled exception: abort ~*/ /*~ ~*/ /* % % PFC is a language extension for prolog. % % It adds a new type of module inheritance % % Dec 13, 2035 % Douglas Miles */ % was_module(mt_09,[]). :- include(library(logicmoo_test_header)). /*~ running(-), %~ reload_of_test_header. %~ this_test_might_need( :-( expects_dialect(pfc))) %~ this_test_might_need( :-( use_module( library(logicmoo_plarkc)))) ~*/ :- pfc_test_feature(pfc_file_detect,must(\+ is_pfc_file)). %:- add_import_module(mt_01,baseKB,end). /*~ ~*/ %:- add_import_module(mt_01,baseKB,end). :- set_defaultAssertMt(myMt). /*~ ~*/ mtProlog(code1). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtProlog/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtProlog/1]]) No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ~*/ mtHybrid(kb2). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtHybrid/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtHybrid/1]]) No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ~*/ /* ;; All living people have an organ (forall ((p PersonAlive)) (exists ((o Organ)) (have p o))) ;; An organ exists in which every living Persons ever will exists (exists ((o Organ)) (forall ((p PersonAlive)) (co-temporal p o))) Maybe people dont even exist? Wait.. 'co-temporal' does this mean we have created People? Have we created people with Eternal life as well? At least until the Eternal Organ is no more? To make my question fair (forall (x t) (if (and (ist t (instance x TemporalObject)) (co-temporal x y)) (ist t (exists (y) (instance y TemporalObject)))) (forall (x y) (iff (co-temporal x y) (co-temporal y x))) */ code1: (a:- printAll('$current_source_module'(_M)),b). /*~ No source location!? ~*/ kb2: (b). /*~ No source location!? ~*/ genlMt(kb2,code1). % before test, to make sure a was not accdently defined in kb2 /*~ ~*/ % before test, to make sure a was not accdently defined in kb2 :- sanity( clause(kb2:a,_)). % before test, genlMt makes the rule available and should not corrupt the code1 module /*~ %~ ?-( mpred_test("Test_0034_Line_0000__A_in_kb2_in_myMt",myMt:clause(kb2:a,Clause_Kw))). failure=info((why_was_true(myMt:(\+clause(kb2:a,_94590))),nop(ftrace(myMt:clause(kb2:a,_94590))))) no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0034_Line_0000__A_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0034_Line_0000_A_in_kb2_in_myMt-junit.xml ~*/ % before test, genlMt makes the rule available and should not corrupt the code1 module :- sanity(\+ clause(code1:b,_)). % make sure genlMt didnt unassert /*~ %~ ?-( mpred_test("Test_0035_Line_0000__naf_B_in_code1_in_myMt",myMt:(\+clause(code1:b,Clause_Kw)))). passed=info(why_was_true(myMt:(\+clause(code1:b,_2176184)))) no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0035_Line_0000__naf_B_in_code1_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0035_Line_0000_naf_B_in_code1_in_myMt-junit.xml ~*/ % make sure genlMt didnt unassert :- sanity(clause(kb2:b,_)). % run the test /*~ %~ ?-( mpred_test("Test_0036_Line_0000__B_in_kb2_in_myMt",myMt:clause(kb2:b,Clause_Kw))). passed=info(why_was_true(myMt:clause(kb2:b,true))) no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0036_Line_0000__B_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0036_Line_0000_B_in_kb2_in_myMt-junit.xml ~*/ % run the test kb2: (?- a). % to make sure a does not get accdently defined in kb2 /*~ No source location!? ~*/ % to make sure a does not get accdently defined in kb2 :- mpred_must( clause(kb2:a,_)). % genlMt makes the rule available and should not corrupt the code1 module /*~ %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure+failed_mpred_test(clause(kb2:a,_3038544))]) 39m %~ failed_mpred_test( clause(kb2:a,Clause_Kw)) %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 (0)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (1)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m2m96m49m11m '$toplevel'. 0m49m0m0m0m % toplevel.pl:701: (2)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m0m33m49m15m '$runtoplevel'. 0m49m39m0m0m % toplevel.pl:713: (10)$0m0m39m49m10m[system]0m49m39m0m0m0m1m37m40m13m '$load_file'('mt_09.pl',user,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:2353: (13)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$sig_atomic'(setup_call_cleanup(with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b069300),[expand(false),expand(true)])),'$mt_do_load'((0x55fc8b069300),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),'$mt_end_load'((0x55fc8b069300)))). 0m49m39m21m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (14)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (16)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b069300),[expand(false),expand(true)])),system:'$mt_do_load'((0x55fc8b069300),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),A,system:'$mt_end_load'((0x55fc8b069300))). 0m49m39m0m0m % init.pl:646: (18)$0m0m39m49m10m[system]0m49m39m0m0m#0m2m97m40m12m '$qdo_load_file'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]). 0m49m0m0m0m % init.pl:2546: (21)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m95m49m10m '$do_load_file_2'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,compiled,[expand(false),expand(true)]). 0m49m0m21m0m % init.pl:2592: (25)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:'$start_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',1632225690.9774585),system:'$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]),B,system:'$end_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',lexstate(202,swi),user)). 0m49m39m0m0m % init.pl:646: (26)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:3007: (31)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m91m49m10m '$execute_directive_3'(clause(kb2:a,A)). 0m49m0m0m0m % init.pl:3574: (32)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m catch(myMt:clause(kb2:a,A),error(B,C),system:'$exception_in_directive'(error(B,C))). 0m49m39m0m0m % init.pl:546: (33)0m2m93m49m14m[myMt]0m49m0m0m0m#0m1m95m49m17m pfc_lib:clause(kb2:a,A). 0m49m0m21m0m % mpred_core.pl:4331: (35)0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (36)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (38)0m2m93m49m14m[myMt]0m49m0m0m0m0m0m99m49m15m pfc_lib:break_ex. 0m49m0m0m0m % mpred_core.pl:4226: (39)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (40)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (43)0m2m33m49m15m[butterfly]0m49m39m0m0m0m2m93m49m14m butterfly:in_bfly(f,myMt:zotrace(with_all_dmsg((b_setval('$dump_frame',500),dumpST1)))). 0m49m0m0m0m % butterfly_console.pl:226: %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ DUMP_BREAK/0 %~ message_hook(unhandled_exception(abort),error,['Unhandled exception: ','~p'-[abort]]) Unhandled exception: abort ERROR: Unhandled exception: abort ~*/ /*~ ~*/ /* % % PFC is a language extension for prolog. % % It adds a new type of module inheritance % % Dec 13, 2035 % Douglas Miles */ % was_module(mt_09,[]). :- include(library(logicmoo_test_header)). /*~ running(-), %~ reload_of_test_header. %~ this_test_might_need( :-( expects_dialect(pfc))) %~ this_test_might_need( :-( use_module( library(logicmoo_plarkc)))) ~*/ :- pfc_test_feature(pfc_file_detect,must(\+ is_pfc_file)). %:- add_import_module(mt_01,baseKB,end). /*~ ~*/ %:- add_import_module(mt_01,baseKB,end). :- set_defaultAssertMt(myMt). /*~ ~*/ mtProlog(code1). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtProlog/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtProlog/1]]) No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ~*/ mtHybrid(kb2). /*~ No source location!? %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:21 %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtHybrid/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtHybrid/1]]) No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ~*/ /* ;; All living people have an organ (forall ((p PersonAlive)) (exists ((o Organ)) (have p o))) ;; An organ exists in which every living Persons ever will exists (exists ((o Organ)) (forall ((p PersonAlive)) (co-temporal p o))) Maybe people dont even exist? Wait.. 'co-temporal' does this mean we have created People? Have we created people with Eternal life as well? At least until the Eternal Organ is no more? To make my question fair (forall (x t) (if (and (ist t (instance x TemporalObject)) (co-temporal x y)) (ist t (exists (y) (instance y TemporalObject)))) (forall (x y) (iff (co-temporal x y) (co-temporal y x))) */ code1: (a:- printAll('$current_source_module'(_M)),b). /*~ No source location!? ~*/ kb2: (b). /*~ No source location!? ~*/ genlMt(kb2,code1). % before test, to make sure a was not accdently defined in kb2 /*~ ~*/ % before test, to make sure a was not accdently defined in kb2 :- sanity( clause(kb2:a,_)). % before test, genlMt makes the rule available and should not corrupt the code1 module /*~ %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:53 %~ ?-( mpred_test("Test_0037_Line_0000__A_in_kb2_in_myMt",myMt:clause(kb2:a,Clause_Kw))). failure=info((why_was_true(myMt:(\+clause(kb2:a,_95514))),nop(ftrace(myMt:clause(kb2:a,_95514))))) no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0037_Line_0000__A_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0037_Line_0000_A_in_kb2_in_myMt-junit.xml ~*/ % before test, genlMt makes the rule available and should not corrupt the code1 module :- sanity(\+ clause(code1:b,_)). % make sure genlMt didnt unassert /*~ %~ ?-( mpred_test("Test_0038_Line_0000__naf_B_in_code1_in_myMt",myMt:(\+clause(code1:b,Clause_Kw)))). passed=info(why_was_true(myMt:(\+clause(code1:b,_2346672)))) no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0038_Line_0000__naf_B_in_code1_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0038_Line_0000_naf_B_in_code1_in_myMt-junit.xml ~*/ % make sure genlMt didnt unassert :- sanity(clause(kb2:b,_)). % run the test /*~ %~ ?-( mpred_test("Test_0039_Line_0000__B_in_kb2_in_myMt",myMt:clause(kb2:b,Clause_Kw))). passed=info(why_was_true(myMt:clause(kb2:b,true))) no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0039_Line_0000__B_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0039_Line_0000_B_in_kb2_in_myMt-junit.xml ~*/ % run the test kb2: (?- a). % to make sure a does not get accdently defined in kb2 /*~ No source location!? ~*/ % to make sure a does not get accdently defined in kb2 :- mpred_must( clause(kb2:a,_)). % genlMt makes the rule available and should not corrupt the code1 module /*~ %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure+failed_mpred_test(clause(kb2:a,_3648810))]) 39m %~ failed_mpred_test( clause(kb2:a,Clause_Kw)) %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 (0)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (1)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m2m96m49m11m '$toplevel'. 0m49m0m0m0m % toplevel.pl:701: (2)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m0m33m49m15m '$runtoplevel'. 0m49m39m0m0m % toplevel.pl:713: (10)$0m0m39m49m10m[system]0m49m39m0m0m0m1m37m40m13m '$load_file'('mt_09.pl',user,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:2353: (13)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$sig_atomic'(setup_call_cleanup(with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b068e00),[expand(false),expand(true)])),'$mt_do_load'((0x55fc8b068e00),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),'$mt_end_load'((0x55fc8b068e00)))). 0m49m39m21m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (14)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (16)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b068e00),[expand(false),expand(true)])),system:'$mt_do_load'((0x55fc8b068e00),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),A,system:'$mt_end_load'((0x55fc8b068e00))). 0m49m39m0m0m % init.pl:646: (18)$0m0m39m49m10m[system]0m49m39m0m0m#0m2m97m40m12m '$qdo_load_file'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]). 0m49m0m0m0m % init.pl:2546: (21)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m95m49m10m '$do_load_file_2'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,compiled,[expand(false),expand(true)]). 0m49m0m21m0m % init.pl:2592: (25)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:'$start_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',1632225690.9774585),system:'$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]),B,system:'$end_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',lexstate(202,swi),user)). 0m49m39m0m0m % init.pl:646: (26)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:3007: (31)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m91m49m10m '$execute_directive_3'(clause(kb2:a,A)). 0m49m0m0m0m % init.pl:3574: (32)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m catch(myMt:clause(kb2:a,A),error(B,C),system:'$exception_in_directive'(error(B,C))). 0m49m39m0m0m % init.pl:546: (33)0m2m93m49m14m[myMt]0m49m0m0m0m#0m1m95m49m17m pfc_lib:clause(kb2:a,A). 0m49m0m21m0m % mpred_core.pl:4331: (35)0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (36)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (38)0m2m93m49m14m[myMt]0m49m0m0m0m0m0m99m49m15m pfc_lib:break_ex. 0m49m0m0m0m % mpred_core.pl:4226: (39)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (40)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (43)0m2m33m49m15m[butterfly]0m49m39m0m0m0m2m93m49m14m butterfly:in_bfly(f,myMt:zotrace(with_all_dmsg((b_setval('$dump_frame',500),dumpST1)))). 0m49m0m0m0m % butterfly_console.pl:226: %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ DUMP_BREAK/0 %~ message_hook(unhandled_exception(abort),error,['Unhandled exception: ','~p'-[abort]]) Unhandled exception: abort ERROR: Unhandled exception: abort ~*/ /*~ ~*/ /* % % PFC is a language extension for prolog. % % It adds a new type of module inheritance % % Dec 13, 2035 % Douglas Miles */ % was_module(mt_09,[]). :- include(library(logicmoo_test_header)). /*~ running(-), %~ reload_of_test_header. %~ /var/lib/jenkins/.local/share/swi-prolog/pack/logicmoo_utils/prolog/logicmoo_test_header.pl:93 %~ this_test_might_need( :-( expects_dialect(pfc))) %~ this_test_might_need( :-( use_module( library(logicmoo_plarkc)))) ~*/ :- pfc_test_feature(pfc_file_detect,must(\+ is_pfc_file)). %:- add_import_module(mt_01,baseKB,end). /*~ ~*/ %:- add_import_module(mt_01,baseKB,end). :- set_defaultAssertMt(myMt). /*~ ~*/ mtProlog(code1). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtProlog/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtProlog/1]]) No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ~*/ mtHybrid(kb2). /*~ No source location!? %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:21 %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtHybrid/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtHybrid/1]]) No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ~*/ /* ;; All living people have an organ (forall ((p PersonAlive)) (exists ((o Organ)) (have p o))) ;; An organ exists in which every living Persons ever will exists (exists ((o Organ)) (forall ((p PersonAlive)) (co-temporal p o))) Maybe people dont even exist? Wait.. 'co-temporal' does this mean we have created People? Have we created people with Eternal life as well? At least until the Eternal Organ is no more? To make my question fair (forall (x t) (if (and (ist t (instance x TemporalObject)) (co-temporal x y)) (ist t (exists (y) (instance y TemporalObject)))) (forall (x y) (iff (co-temporal x y) (co-temporal y x))) */ code1: (a:- printAll('$current_source_module'(_M)),b). /*~ No source location!? ~*/ kb2: (b). /*~ No source location!? ~*/ genlMt(kb2,code1). % before test, to make sure a was not accdently defined in kb2 /*~ ~*/ % before test, to make sure a was not accdently defined in kb2 :- sanity( clause(kb2:a,_)). % before test, genlMt makes the rule available and should not corrupt the code1 module /*~ %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:53 %~ ?-( mpred_test("Test_0040_Line_0000__A_in_kb2_in_myMt",myMt:clause(kb2:a,Clause_Kw))). failure=info((why_was_true(myMt:(\+clause(kb2:a,_96340))),nop(ftrace(myMt:clause(kb2:a,_96340))))) no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0040_Line_0000__A_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0040_Line_0000_A_in_kb2_in_myMt-junit.xml ~*/ % before test, genlMt makes the rule available and should not corrupt the code1 module :- sanity(\+ clause(code1:b,_)). % make sure genlMt didnt unassert /*~ %~ ?-( mpred_test("Test_0041_Line_0000__naf_B_in_code1_in_myMt",myMt:(\+clause(code1:b,Clause_Kw)))). passed=info(why_was_true(myMt:(\+clause(code1:b,_2516658)))) no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0041_Line_0000__naf_B_in_code1_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0041_Line_0000_naf_B_in_code1_in_myMt-junit.xml ~*/ % make sure genlMt didnt unassert :- sanity(clause(kb2:b,_)). % run the test /*~ %~ ?-( mpred_test("Test_0042_Line_0000__B_in_kb2_in_myMt",myMt:clause(kb2:b,Clause_Kw))). passed=info(why_was_true(myMt:clause(kb2:b,true))) no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0042_Line_0000__B_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0042_Line_0000_B_in_kb2_in_myMt-junit.xml ~*/ % run the test kb2: (?- a). % to make sure a does not get accdently defined in kb2 /*~ No source location!? ~*/ % to make sure a does not get accdently defined in kb2 :- mpred_must( clause(kb2:a,_)). % genlMt makes the rule available and should not corrupt the code1 module /*~ %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure+failed_mpred_test(clause(kb2:a,_1115872))]) 39m %~ failed_mpred_test( clause(kb2:a,Clause_Kw)) %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 (0)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (1)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m2m96m49m11m '$toplevel'. 0m49m0m0m0m % toplevel.pl:701: (2)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m0m33m49m15m '$runtoplevel'. 0m49m39m0m0m % toplevel.pl:713: (10)$0m0m39m49m10m[system]0m49m39m0m0m0m1m37m40m13m '$load_file'('mt_09.pl',user,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:2353: (13)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$sig_atomic'(setup_call_cleanup(with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b068600),[expand(false),expand(true)])),'$mt_do_load'((0x55fc8b068600),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),'$mt_end_load'((0x55fc8b068600)))). 0m49m39m21m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (14)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (16)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b068600),[expand(false),expand(true)])),system:'$mt_do_load'((0x55fc8b068600),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),A,system:'$mt_end_load'((0x55fc8b068600))). 0m49m39m0m0m % init.pl:646: (18)$0m0m39m49m10m[system]0m49m39m0m0m#0m2m97m40m12m '$qdo_load_file'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]). 0m49m0m0m0m % init.pl:2546: (21)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m95m49m10m '$do_load_file_2'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,compiled,[expand(false),expand(true)]). 0m49m0m21m0m % init.pl:2592: (25)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:'$start_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',1632225690.9774585),system:'$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]),B,system:'$end_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',lexstate(202,swi),user)). 0m49m39m0m0m % init.pl:646: (26)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:3007: (31)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m91m49m10m '$execute_directive_3'(clause(kb2:a,A)). 0m49m0m0m0m % init.pl:3574: (32)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m catch(myMt:clause(kb2:a,A),error(B,C),system:'$exception_in_directive'(error(B,C))). 0m49m39m0m0m % init.pl:546: (33)0m2m93m49m14m[myMt]0m49m0m0m0m#0m1m95m49m17m pfc_lib:clause(kb2:a,A). 0m49m0m21m0m % mpred_core.pl:4331: (35)0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (36)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (38)0m2m93m49m14m[myMt]0m49m0m0m0m0m0m99m49m15m pfc_lib:break_ex. 0m49m0m0m0m % mpred_core.pl:4226: (39)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (40)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (43)0m2m33m49m15m[butterfly]0m49m39m0m0m0m2m93m49m14m butterfly:in_bfly(f,myMt:zotrace(with_all_dmsg((b_setval('$dump_frame',500),dumpST1)))). 0m49m0m0m0m % butterfly_console.pl:226: %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ DUMP_BREAK/0 %~ message_hook(unhandled_exception(abort),error,['Unhandled exception: ','~p'-[abort]]) Unhandled exception: abort ERROR: Unhandled exception: abort ~*/ /*~ ~*/ /* % % PFC is a language extension for prolog. % % It adds a new type of module inheritance % % Dec 13, 2035 % Douglas Miles */ % was_module(mt_09,[]). :- include(library(logicmoo_test_header)). /*~ running(-), %~ /var/lib/jenkins/.local/share/swi-prolog/pack/logicmoo_utils/prolog/logicmoo_test_header.pl:59 %~ reload_of_test_header. %~ this_test_might_need( :-( expects_dialect(pfc))) %~ this_test_might_need( :-( use_module( library(logicmoo_plarkc)))) ~*/ :- pfc_test_feature(pfc_file_detect,must(\+ is_pfc_file)). %:- add_import_module(mt_01,baseKB,end). /*~ ~*/ %:- add_import_module(mt_01,baseKB,end). :- set_defaultAssertMt(myMt). /*~ ~*/ mtProlog(code1). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtProlog/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtProlog/1]]) No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ~*/ mtHybrid(kb2). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtHybrid/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtHybrid/1]]) No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ~*/ /* ;; All living people have an organ (forall ((p PersonAlive)) (exists ((o Organ)) (have p o))) ;; An organ exists in which every living Persons ever will exists (exists ((o Organ)) (forall ((p PersonAlive)) (co-temporal p o))) Maybe people dont even exist? Wait.. 'co-temporal' does this mean we have created People? Have we created people with Eternal life as well? At least until the Eternal Organ is no more? To make my question fair (forall (x t) (if (and (ist t (instance x TemporalObject)) (co-temporal x y)) (ist t (exists (y) (instance y TemporalObject)))) (forall (x y) (iff (co-temporal x y) (co-temporal y x))) */ code1: (a:- printAll('$current_source_module'(_M)),b). /*~ No source location!? ~*/ kb2: (b). /*~ No source location!? ~*/ genlMt(kb2,code1). % before test, to make sure a was not accdently defined in kb2 /*~ ~*/ % before test, to make sure a was not accdently defined in kb2 :- sanity( clause(kb2:a,_)). % before test, genlMt makes the rule available and should not corrupt the code1 module /*~ %~ ?-( mpred_test("Test_0043_Line_0000__A_in_kb2_in_myMt",myMt:clause(kb2:a,Clause_Kw))). failure=info((why_was_true(myMt:(\+clause(kb2:a,_1359892))),nop(ftrace(myMt:clause(kb2:a,_1359892))))) no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0043_Line_0000__A_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0043_Line_0000_A_in_kb2_in_myMt-junit.xml ~*/ % before test, genlMt makes the rule available and should not corrupt the code1 module :- sanity(\+ clause(code1:b,_)). % make sure genlMt didnt unassert /*~ %~ ?-( mpred_test("Test_0044_Line_0000__naf_B_in_code1_in_myMt",myMt:(\+clause(code1:b,Clause_Kw)))). passed=info(why_was_true(myMt:(\+clause(code1:b,_3949132)))) no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0044_Line_0000__naf_B_in_code1_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0044_Line_0000_naf_B_in_code1_in_myMt-junit.xml ~*/ % make sure genlMt didnt unassert :- sanity(clause(kb2:b,_)). % run the test /*~ %~ ?-( mpred_test("Test_0045_Line_0000__B_in_kb2_in_myMt",myMt:clause(kb2:b,Clause_Kw))). passed=info(why_was_true(myMt:clause(kb2:b,true))) no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0045_Line_0000__B_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0045_Line_0000_B_in_kb2_in_myMt-junit.xml ~*/ % run the test kb2: (?- a). % to make sure a does not get accdently defined in kb2 /*~ No source location!? ~*/ % to make sure a does not get accdently defined in kb2 :- mpred_must( clause(kb2:a,_)). % genlMt makes the rule available and should not corrupt the code1 module /*~ %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure+failed_mpred_test(clause(kb2:a,_2128992))]) 39m %~ failed_mpred_test( clause(kb2:a,Clause_Kw)) %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 (0)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (1)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m2m96m49m11m '$toplevel'. 0m49m0m0m0m % toplevel.pl:701: (2)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m0m33m49m15m '$runtoplevel'. 0m49m39m0m0m % toplevel.pl:713: (10)$0m0m39m49m10m[system]0m49m39m0m0m0m1m37m40m13m '$load_file'('mt_09.pl',user,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:2353: (13)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$sig_atomic'(setup_call_cleanup(with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b069600),[expand(false),expand(true)])),'$mt_do_load'((0x55fc8b069600),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),'$mt_end_load'((0x55fc8b069600)))). 0m49m39m21m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (14)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (16)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b069600),[expand(false),expand(true)])),system:'$mt_do_load'((0x55fc8b069600),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),A,system:'$mt_end_load'((0x55fc8b069600))). 0m49m39m0m0m % init.pl:646: (18)$0m0m39m49m10m[system]0m49m39m0m0m#0m2m97m40m12m '$qdo_load_file'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]). 0m49m0m0m0m % init.pl:2546: (21)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m95m49m10m '$do_load_file_2'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,compiled,[expand(false),expand(true)]). 0m49m0m21m0m % init.pl:2592: (25)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:'$start_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',1632225690.9774585),system:'$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]),B,system:'$end_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',lexstate(202,swi),user)). 0m49m39m0m0m % init.pl:646: (26)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:3007: (31)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m91m49m10m '$execute_directive_3'(clause(kb2:a,A)). 0m49m0m0m0m % init.pl:3574: (32)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m catch(myMt:clause(kb2:a,A),error(B,C),system:'$exception_in_directive'(error(B,C))). 0m49m39m0m0m % init.pl:546: (33)0m2m93m49m14m[myMt]0m49m0m0m0m#0m1m95m49m17m pfc_lib:clause(kb2:a,A). 0m49m0m21m0m % mpred_core.pl:4331: (35)0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (36)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (38)0m2m93m49m14m[myMt]0m49m0m0m0m0m0m99m49m15m pfc_lib:break_ex. 0m49m0m0m0m % mpred_core.pl:4226: (39)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (40)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (43)0m2m33m49m15m[butterfly]0m49m39m0m0m0m2m93m49m14m butterfly:in_bfly(f,myMt:zotrace(with_all_dmsg((b_setval('$dump_frame',500),dumpST1)))). 0m49m0m0m0m % butterfly_console.pl:226: %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:68 %~ DUMP_BREAK/0 %~ message_hook(unhandled_exception(abort),error,['Unhandled exception: ','~p'-[abort]]) Unhandled exception: abort ERROR: Unhandled exception: abort ~*/ /*~ ~*/ /* % % PFC is a language extension for prolog. % % It adds a new type of module inheritance % % Dec 13, 2035 % Douglas Miles */ % was_module(mt_09,[]). :- include(library(logicmoo_test_header)). /*~ running(-), %~ reload_of_test_header. %~ /var/lib/jenkins/.local/share/swi-prolog/pack/logicmoo_utils/prolog/logicmoo_test_header.pl:93 %~ this_test_might_need( :-( expects_dialect(pfc))) %~ this_test_might_need( :-( use_module( library(logicmoo_plarkc)))) ~*/ :- pfc_test_feature(pfc_file_detect,must(\+ is_pfc_file)). %:- add_import_module(mt_01,baseKB,end). /*~ ~*/ %:- add_import_module(mt_01,baseKB,end). :- set_defaultAssertMt(myMt). /*~ ~*/ mtProlog(code1). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtProlog/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtProlog/1]]) No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ~*/ mtHybrid(kb2). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtHybrid/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtHybrid/1]]) No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ~*/ /* ;; All living people have an organ (forall ((p PersonAlive)) (exists ((o Organ)) (have p o))) ;; An organ exists in which every living Persons ever will exists (exists ((o Organ)) (forall ((p PersonAlive)) (co-temporal p o))) Maybe people dont even exist? Wait.. 'co-temporal' does this mean we have created People? Have we created people with Eternal life as well? At least until the Eternal Organ is no more? To make my question fair (forall (x t) (if (and (ist t (instance x TemporalObject)) (co-temporal x y)) (ist t (exists (y) (instance y TemporalObject)))) (forall (x y) (iff (co-temporal x y) (co-temporal y x))) */ code1: (a:- printAll('$current_source_module'(_M)),b). /*~ No source location!? ~*/ kb2: (b). /*~ No source location!? ~*/ genlMt(kb2,code1). % before test, to make sure a was not accdently defined in kb2 /*~ ~*/ % before test, to make sure a was not accdently defined in kb2 :- sanity( clause(kb2:a,_)). % before test, genlMt makes the rule available and should not corrupt the code1 module /*~ %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:53 %~ ?-( mpred_test("Test_0046_Line_0000__A_in_kb2_in_myMt",myMt:clause(kb2:a,Clause_Kw))). failure=info((why_was_true(myMt:(\+clause(kb2:a,_2374654))),nop(ftrace(myMt:clause(kb2:a,_2374654))))) no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0046_Line_0000__A_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0046_Line_0000_A_in_kb2_in_myMt-junit.xml ~*/ % before test, genlMt makes the rule available and should not corrupt the code1 module :- sanity(\+ clause(code1:b,_)). % make sure genlMt didnt unassert /*~ %~ ?-( mpred_test("Test_0047_Line_0000__naf_B_in_code1_in_myMt",myMt:(\+clause(code1:b,Clause_Kw)))). passed=info(why_was_true(myMt:(\+clause(code1:b,_2209128)))) no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0047_Line_0000__naf_B_in_code1_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0047_Line_0000_naf_B_in_code1_in_myMt-junit.xml ~*/ % make sure genlMt didnt unassert :- sanity(clause(kb2:b,_)). % run the test /*~ %~ ?-( mpred_test("Test_0048_Line_0000__B_in_kb2_in_myMt",myMt:clause(kb2:b,Clause_Kw))). passed=info(why_was_true(myMt:clause(kb2:b,true))) no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0048_Line_0000__B_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0048_Line_0000_B_in_kb2_in_myMt-junit.xml ~*/ % run the test kb2: (?- a). % to make sure a does not get accdently defined in kb2 /*~ No source location!? ~*/ % to make sure a does not get accdently defined in kb2 :- mpred_must( clause(kb2:a,_)). % genlMt makes the rule available and should not corrupt the code1 module /*~ %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure+failed_mpred_test(clause(kb2:a,_2003762))]) 39m %~ failed_mpred_test( clause(kb2:a,Clause_Kw)) %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 (0)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (1)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m2m96m49m11m '$toplevel'. 0m49m0m0m0m % toplevel.pl:701: (2)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m0m33m49m15m '$runtoplevel'. 0m49m39m0m0m % toplevel.pl:713: (10)$0m0m39m49m10m[system]0m49m39m0m0m0m1m37m40m13m '$load_file'('mt_09.pl',user,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:2353: (13)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$sig_atomic'(setup_call_cleanup(with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b068c80),[expand(false),expand(true)])),'$mt_do_load'((0x55fc8b068c80),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),'$mt_end_load'((0x55fc8b068c80)))). 0m49m39m21m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (14)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (16)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b068c80),[expand(false),expand(true)])),system:'$mt_do_load'((0x55fc8b068c80),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),A,system:'$mt_end_load'((0x55fc8b068c80))). 0m49m39m0m0m % init.pl:646: (18)$0m0m39m49m10m[system]0m49m39m0m0m#0m2m97m40m12m '$qdo_load_file'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]). 0m49m0m0m0m % init.pl:2546: (21)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m95m49m10m '$do_load_file_2'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,compiled,[expand(false),expand(true)]). 0m49m0m21m0m % init.pl:2592: (25)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:'$start_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',1632225690.9774585),system:'$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]),B,system:'$end_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',lexstate(202,swi),user)). 0m49m39m0m0m % init.pl:646: (26)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:3007: (31)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m91m49m10m '$execute_directive_3'(clause(kb2:a,A)). 0m49m0m0m0m % init.pl:3574: (32)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m catch(myMt:clause(kb2:a,A),error(B,C),system:'$exception_in_directive'(error(B,C))). 0m49m39m0m0m % init.pl:546: (33)0m2m93m49m14m[myMt]0m49m0m0m0m#0m1m95m49m17m pfc_lib:clause(kb2:a,A). 0m49m0m21m0m % mpred_core.pl:4331: (35)0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (36)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (38)0m2m93m49m14m[myMt]0m49m0m0m0m0m0m99m49m15m pfc_lib:break_ex. 0m49m0m0m0m % mpred_core.pl:4226: (39)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (40)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (43)0m2m33m49m15m[butterfly]0m49m39m0m0m0m2m93m49m14m butterfly:in_bfly(f,myMt:zotrace(with_all_dmsg((b_setval('$dump_frame',500),dumpST1)))). 0m49m0m0m0m % butterfly_console.pl:226: %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:68 %~ DUMP_BREAK/0 %~ message_hook(unhandled_exception(abort),error,['Unhandled exception: ','~p'-[abort]]) Unhandled exception: abort ERROR: Unhandled exception: abort ~*/ /*~ ~*/ /* % % PFC is a language extension for prolog. % % It adds a new type of module inheritance % % Dec 13, 2035 % Douglas Miles */ % was_module(mt_09,[]). :- include(library(logicmoo_test_header)). /*~ running(-), %~ reload_of_test_header. %~ this_test_might_need( :-( expects_dialect(pfc))) %~ this_test_might_need( :-( use_module( library(logicmoo_plarkc)))) ~*/ :- pfc_test_feature(pfc_file_detect,must(\+ is_pfc_file)). %:- add_import_module(mt_01,baseKB,end). /*~ ~*/ %:- add_import_module(mt_01,baseKB,end). :- set_defaultAssertMt(myMt). /*~ ~*/ mtProlog(code1). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtProlog/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtProlog/1]]) No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ~*/ mtHybrid(kb2). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtHybrid/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtHybrid/1]]) No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ~*/ /* ;; All living people have an organ (forall ((p PersonAlive)) (exists ((o Organ)) (have p o))) ;; An organ exists in which every living Persons ever will exists (exists ((o Organ)) (forall ((p PersonAlive)) (co-temporal p o))) Maybe people dont even exist? Wait.. 'co-temporal' does this mean we have created People? Have we created people with Eternal life as well? At least until the Eternal Organ is no more? To make my question fair (forall (x t) (if (and (ist t (instance x TemporalObject)) (co-temporal x y)) (ist t (exists (y) (instance y TemporalObject)))) (forall (x y) (iff (co-temporal x y) (co-temporal y x))) */ code1: (a:- printAll('$current_source_module'(_M)),b). /*~ No source location!? ~*/ kb2: (b). /*~ No source location!? ~*/ genlMt(kb2,code1). % before test, to make sure a was not accdently defined in kb2 /*~ ~*/ % before test, to make sure a was not accdently defined in kb2 :- sanity( clause(kb2:a,_)). % before test, genlMt makes the rule available and should not corrupt the code1 module /*~ %~ ?-( mpred_test("Test_0049_Line_0000__A_in_kb2_in_myMt",myMt:clause(kb2:a,Clause_Kw))). failure=info((why_was_true(myMt:(\+clause(kb2:a,_2249782))),nop(ftrace(myMt:clause(kb2:a,_2249782))))) no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0049_Line_0000__A_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0049_Line_0000_A_in_kb2_in_myMt-junit.xml ~*/ % before test, genlMt makes the rule available and should not corrupt the code1 module :- sanity(\+ clause(code1:b,_)). % make sure genlMt didnt unassert /*~ %~ ?-( mpred_test("Test_0050_Line_0000__naf_B_in_code1_in_myMt",myMt:(\+clause(code1:b,Clause_Kw)))). passed=info(why_was_true(myMt:(\+clause(code1:b,_2418274)))) no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0050_Line_0000__naf_B_in_code1_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0050_Line_0000_naf_B_in_code1_in_myMt-junit.xml ~*/ % make sure genlMt didnt unassert :- sanity(clause(kb2:b,_)). % run the test /*~ %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:59 %~ ?-( mpred_test("Test_0051_Line_0000__B_in_kb2_in_myMt",myMt:clause(kb2:b,Clause_Kw))). passed=info(why_was_true(myMt:clause(kb2:b,true))) no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0051_Line_0000__B_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0051_Line_0000_B_in_kb2_in_myMt-junit.xml ~*/ % run the test kb2: (?- a). % to make sure a does not get accdently defined in kb2 /*~ No source location!? ~*/ % to make sure a does not get accdently defined in kb2 :- mpred_must( clause(kb2:a,_)). % genlMt makes the rule available and should not corrupt the code1 module /*~ %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure+failed_mpred_test(clause(kb2:a,_5575942))]) 39m %~ failed_mpred_test( clause(kb2:a,Clause_Kw)) %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 (0)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (1)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m2m96m49m11m '$toplevel'. 0m49m0m0m0m % toplevel.pl:701: (2)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m0m33m49m15m '$runtoplevel'. 0m49m39m0m0m % toplevel.pl:713: (10)$0m0m39m49m10m[system]0m49m39m0m0m0m1m37m40m13m '$load_file'('mt_09.pl',user,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:2353: (13)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$sig_atomic'(setup_call_cleanup(with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b069680),[expand(false),expand(true)])),'$mt_do_load'((0x55fc8b069680),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),'$mt_end_load'((0x55fc8b069680)))). 0m49m39m21m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (14)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (16)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b069680),[expand(false),expand(true)])),system:'$mt_do_load'((0x55fc8b069680),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),A,system:'$mt_end_load'((0x55fc8b069680))). 0m49m39m0m0m % init.pl:646: (18)$0m0m39m49m10m[system]0m49m39m0m0m#0m2m97m40m12m '$qdo_load_file'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]). 0m49m0m0m0m % init.pl:2546: (21)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m95m49m10m '$do_load_file_2'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,compiled,[expand(false),expand(true)]). 0m49m0m21m0m % init.pl:2592: (25)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:'$start_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',1632225690.9774585),system:'$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]),B,system:'$end_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',lexstate(202,swi),user)). 0m49m39m0m0m % init.pl:646: (26)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:3007: (31)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m91m49m10m '$execute_directive_3'(clause(kb2:a,A)). 0m49m0m0m0m % init.pl:3574: (32)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m catch(myMt:clause(kb2:a,A),error(B,C),system:'$exception_in_directive'(error(B,C))). 0m49m39m0m0m % init.pl:546: (33)0m2m93m49m14m[myMt]0m49m0m0m0m#0m1m95m49m17m pfc_lib:clause(kb2:a,A). 0m49m0m21m0m % mpred_core.pl:4331: (35)0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (36)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (38)0m2m93m49m14m[myMt]0m49m0m0m0m0m0m99m49m15m pfc_lib:break_ex. 0m49m0m0m0m % mpred_core.pl:4226: (39)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (40)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (43)0m2m33m49m15m[butterfly]0m49m39m0m0m0m2m93m49m14m butterfly:in_bfly(f,myMt:zotrace(with_all_dmsg((b_setval('$dump_frame',500),dumpST1)))). 0m49m0m0m0m % butterfly_console.pl:226: %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ DUMP_BREAK/0 %~ message_hook(unhandled_exception(abort),error,['Unhandled exception: ','~p'-[abort]]) Unhandled exception: abort ERROR: Unhandled exception: abort ~*/ /*~ ~*/ /* % % PFC is a language extension for prolog. % % It adds a new type of module inheritance % % Dec 13, 2035 % Douglas Miles */ % was_module(mt_09,[]). :- include(library(logicmoo_test_header)). /*~ running(-), %~ /var/lib/jenkins/.local/share/swi-prolog/pack/logicmoo_utils/prolog/logicmoo_test_header.pl:59 %~ reload_of_test_header. %~ /var/lib/jenkins/.local/share/swi-prolog/pack/logicmoo_utils/prolog/logicmoo_test_header.pl:93 %~ this_test_might_need( :-( expects_dialect(pfc))) %~ this_test_might_need( :-( use_module( library(logicmoo_plarkc)))) ~*/ :- pfc_test_feature(pfc_file_detect,must(\+ is_pfc_file)). %:- add_import_module(mt_01,baseKB,end). /*~ ~*/ %:- add_import_module(mt_01,baseKB,end). :- set_defaultAssertMt(myMt). /*~ ~*/ mtProlog(code1). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtProlog/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtProlog/1]]) No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ~*/ mtHybrid(kb2). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtHybrid/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtHybrid/1]]) No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ~*/ /* ;; All living people have an organ (forall ((p PersonAlive)) (exists ((o Organ)) (have p o))) ;; An organ exists in which every living Persons ever will exists (exists ((o Organ)) (forall ((p PersonAlive)) (co-temporal p o))) Maybe people dont even exist? Wait.. 'co-temporal' does this mean we have created People? Have we created people with Eternal life as well? At least until the Eternal Organ is no more? To make my question fair (forall (x t) (if (and (ist t (instance x TemporalObject)) (co-temporal x y)) (ist t (exists (y) (instance y TemporalObject)))) (forall (x y) (iff (co-temporal x y) (co-temporal y x))) */ code1: (a:- printAll('$current_source_module'(_M)),b). /*~ No source location!? ~*/ kb2: (b). /*~ No source location!? ~*/ genlMt(kb2,code1). % before test, to make sure a was not accdently defined in kb2 /*~ ~*/ % before test, to make sure a was not accdently defined in kb2 :- sanity( clause(kb2:a,_)). % before test, genlMt makes the rule available and should not corrupt the code1 module /*~ %~ ?-( mpred_test("Test_0052_Line_0000__A_in_kb2_in_myMt",myMt:clause(kb2:a,Clause_Kw))). failure=info((why_was_true(myMt:(\+clause(kb2:a,_98484))),nop(ftrace(myMt:clause(kb2:a,_98484))))) no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0052_Line_0000__A_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0052_Line_0000_A_in_kb2_in_myMt-junit.xml ~*/ % before test, genlMt makes the rule available and should not corrupt the code1 module :- sanity(\+ clause(code1:b,_)). % make sure genlMt didnt unassert /*~ %~ ?-( mpred_test("Test_0053_Line_0000__naf_B_in_code1_in_myMt",myMt:(\+clause(code1:b,Clause_Kw)))). passed=info(why_was_true(myMt:(\+clause(code1:b,_3253220)))) no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0053_Line_0000__naf_B_in_code1_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0053_Line_0000_naf_B_in_code1_in_myMt-junit.xml ~*/ % make sure genlMt didnt unassert :- sanity(clause(kb2:b,_)). % run the test /*~ %~ ?-( mpred_test("Test_0054_Line_0000__B_in_kb2_in_myMt",myMt:clause(kb2:b,Clause_Kw))). passed=info(why_was_true(myMt:clause(kb2:b,true))) no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0054_Line_0000__B_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0054_Line_0000_B_in_kb2_in_myMt-junit.xml ~*/ % run the test kb2: (?- a). % to make sure a does not get accdently defined in kb2 /*~ No source location!? ~*/ % to make sure a does not get accdently defined in kb2 :- mpred_must( clause(kb2:a,_)). % genlMt makes the rule available and should not corrupt the code1 module /*~ %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure+failed_mpred_test(clause(kb2:a,_2623652))]) 39m %~ failed_mpred_test( clause(kb2:a,Clause_Kw)) %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 (0)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (1)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m2m96m49m11m '$toplevel'. 0m49m0m0m0m % toplevel.pl:701: (2)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m0m33m49m15m '$runtoplevel'. 0m49m39m0m0m % toplevel.pl:713: (10)$0m0m39m49m10m[system]0m49m39m0m0m0m1m37m40m13m '$load_file'('mt_09.pl',user,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:2353: (13)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$sig_atomic'(setup_call_cleanup(with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b068200),[expand(false),expand(true)])),'$mt_do_load'((0x55fc8b068200),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),'$mt_end_load'((0x55fc8b068200)))). 0m49m39m21m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (14)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (16)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b068200),[expand(false),expand(true)])),system:'$mt_do_load'((0x55fc8b068200),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),A,system:'$mt_end_load'((0x55fc8b068200))). 0m49m39m0m0m % init.pl:646: (18)$0m0m39m49m10m[system]0m49m39m0m0m#0m2m97m40m12m '$qdo_load_file'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]). 0m49m0m0m0m % init.pl:2546: (21)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m95m49m10m '$do_load_file_2'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,compiled,[expand(false),expand(true)]). 0m49m0m21m0m % init.pl:2592: (25)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:'$start_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',1632225690.9774585),system:'$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]),B,system:'$end_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',lexstate(202,swi),user)). 0m49m39m0m0m % init.pl:646: (26)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:3007: (31)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m91m49m10m '$execute_directive_3'(clause(kb2:a,A)). 0m49m0m0m0m % init.pl:3574: (32)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m catch(myMt:clause(kb2:a,A),error(B,C),system:'$exception_in_directive'(error(B,C))). 0m49m39m0m0m % init.pl:546: (33)0m2m93m49m14m[myMt]0m49m0m0m0m#0m1m95m49m17m pfc_lib:clause(kb2:a,A). 0m49m0m21m0m % mpred_core.pl:4331: (35)0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (36)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (38)0m2m93m49m14m[myMt]0m49m0m0m0m0m0m99m49m15m pfc_lib:break_ex. 0m49m0m0m0m % mpred_core.pl:4226: (39)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (40)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (43)0m2m33m49m15m[butterfly]0m49m39m0m0m0m2m93m49m14m butterfly:in_bfly(f,myMt:zotrace(with_all_dmsg((b_setval('$dump_frame',500),dumpST1)))). 0m49m0m0m0m % butterfly_console.pl:226: %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ DUMP_BREAK/0 %~ message_hook(unhandled_exception(abort),error,['Unhandled exception: ','~p'-[abort]]) Unhandled exception: abort ERROR: Unhandled exception: abort ~*/ /*~ ~*/ /* % % PFC is a language extension for prolog. % % It adds a new type of module inheritance % % Dec 13, 2035 % Douglas Miles */ % was_module(mt_09,[]). :- include(library(logicmoo_test_header)). /*~ running(-), %~ reload_of_test_header. %~ this_test_might_need( :-( expects_dialect(pfc))) %~ this_test_might_need( :-( use_module( library(logicmoo_plarkc)))) ~*/ :- pfc_test_feature(pfc_file_detect,must(\+ is_pfc_file)). %:- add_import_module(mt_01,baseKB,end). /*~ ~*/ %:- add_import_module(mt_01,baseKB,end). :- set_defaultAssertMt(myMt). /*~ ~*/ mtProlog(code1). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtProlog/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtProlog/1]]) No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ~*/ mtHybrid(kb2). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtHybrid/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtHybrid/1]]) No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ~*/ /* ;; All living people have an organ (forall ((p PersonAlive)) (exists ((o Organ)) (have p o))) ;; An organ exists in which every living Persons ever will exists (exists ((o Organ)) (forall ((p PersonAlive)) (co-temporal p o))) Maybe people dont even exist? Wait.. 'co-temporal' does this mean we have created People? Have we created people with Eternal life as well? At least until the Eternal Organ is no more? To make my question fair (forall (x t) (if (and (ist t (instance x TemporalObject)) (co-temporal x y)) (ist t (exists (y) (instance y TemporalObject)))) (forall (x y) (iff (co-temporal x y) (co-temporal y x))) */ code1: (a:- printAll('$current_source_module'(_M)),b). /*~ No source location!? ~*/ kb2: (b). /*~ No source location!? ~*/ genlMt(kb2,code1). % before test, to make sure a was not accdently defined in kb2 /*~ ~*/ % before test, to make sure a was not accdently defined in kb2 :- sanity( clause(kb2:a,_)). % before test, genlMt makes the rule available and should not corrupt the code1 module /*~ %~ ?-( mpred_test("Test_0055_Line_0000__A_in_kb2_in_myMt",myMt:clause(kb2:a,Clause_Kw))). failure=info((why_was_true(myMt:(\+clause(kb2:a,_2871214))),nop(ftrace(myMt:clause(kb2:a,_2871214))))) no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0055_Line_0000__A_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0055_Line_0000_A_in_kb2_in_myMt-junit.xml ~*/ % before test, genlMt makes the rule available and should not corrupt the code1 module :- sanity(\+ clause(code1:b,_)). % make sure genlMt didnt unassert /*~ %~ ?-( mpred_test("Test_0056_Line_0000__naf_B_in_code1_in_myMt",myMt:(\+clause(code1:b,Clause_Kw)))). passed=info(why_was_true(myMt:(\+clause(code1:b,_6195324)))) no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0056_Line_0000__naf_B_in_code1_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0056_Line_0000_naf_B_in_code1_in_myMt-junit.xml ~*/ % make sure genlMt didnt unassert :- sanity(clause(kb2:b,_)). % run the test /*~ %~ ?-( mpred_test("Test_0057_Line_0000__B_in_kb2_in_myMt",myMt:clause(kb2:b,Clause_Kw))). passed=info(why_was_true(myMt:clause(kb2:b,true))) no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0057_Line_0000__B_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0057_Line_0000_B_in_kb2_in_myMt-junit.xml ~*/ % run the test kb2: (?- a). % to make sure a does not get accdently defined in kb2 /*~ No source location!? ~*/ % to make sure a does not get accdently defined in kb2 :- mpred_must( clause(kb2:a,_)). % genlMt makes the rule available and should not corrupt the code1 module /*~ %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure+failed_mpred_test(clause(kb2:a,_5975864))]) 39m %~ failed_mpred_test( clause(kb2:a,Clause_Kw)) %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 (0)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (1)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m2m96m49m11m '$toplevel'. 0m49m0m0m0m % toplevel.pl:701: (2)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m0m33m49m15m '$runtoplevel'. 0m49m39m0m0m % toplevel.pl:713: (10)$0m0m39m49m10m[system]0m49m39m0m0m0m1m37m40m13m '$load_file'('mt_09.pl',user,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:2353: (13)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$sig_atomic'(setup_call_cleanup(with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b068500),[expand(false),expand(true)])),'$mt_do_load'((0x55fc8b068500),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),'$mt_end_load'((0x55fc8b068500)))). 0m49m39m21m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (14)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (16)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b068500),[expand(false),expand(true)])),system:'$mt_do_load'((0x55fc8b068500),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),A,system:'$mt_end_load'((0x55fc8b068500))). 0m49m39m0m0m % init.pl:646: (18)$0m0m39m49m10m[system]0m49m39m0m0m#0m2m97m40m12m '$qdo_load_file'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]). 0m49m0m0m0m % init.pl:2546: (21)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m95m49m10m '$do_load_file_2'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,compiled,[expand(false),expand(true)]). 0m49m0m21m0m % init.pl:2592: (25)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:'$start_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',1632225690.9774585),system:'$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]),B,system:'$end_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',lexstate(202,swi),user)). 0m49m39m0m0m % init.pl:646: (26)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:3007: (31)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m91m49m10m '$execute_directive_3'(clause(kb2:a,A)). 0m49m0m0m0m % init.pl:3574: (32)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m catch(myMt:clause(kb2:a,A),error(B,C),system:'$exception_in_directive'(error(B,C))). 0m49m39m0m0m % init.pl:546: (33)0m2m93m49m14m[myMt]0m49m0m0m0m#0m1m95m49m17m pfc_lib:clause(kb2:a,A). 0m49m0m21m0m % mpred_core.pl:4331: (35)0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (36)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (38)0m2m93m49m14m[myMt]0m49m0m0m0m0m0m99m49m15m pfc_lib:break_ex. 0m49m0m0m0m % mpred_core.pl:4226: (39)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (40)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (43)0m2m33m49m15m[butterfly]0m49m39m0m0m0m2m93m49m14m butterfly:in_bfly(f,myMt:zotrace(with_all_dmsg((b_setval('$dump_frame',500),dumpST1)))). 0m49m0m0m0m % butterfly_console.pl:226: %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ DUMP_BREAK/0 %~ message_hook(unhandled_exception(abort),error,['Unhandled exception: ','~p'-[abort]]) Unhandled exception: abort ERROR: Unhandled exception: abort ~*/ /*~ ~*/ /* % % PFC is a language extension for prolog. % % It adds a new type of module inheritance % % Dec 13, 2035 % Douglas Miles */ % was_module(mt_09,[]). :- include(library(logicmoo_test_header)). /*~ running(-), %~ reload_of_test_header. %~ this_test_might_need( :-( expects_dialect(pfc))) %~ /var/lib/jenkins/.local/share/swi-prolog/pack/logicmoo_utils/prolog/logicmoo_test_header.pl:96 %~ this_test_might_need( :-( use_module( library(logicmoo_plarkc)))) ~*/ :- pfc_test_feature(pfc_file_detect,must(\+ is_pfc_file)). %:- add_import_module(mt_01,baseKB,end). /*~ ~*/ %:- add_import_module(mt_01,baseKB,end). :- set_defaultAssertMt(myMt). /*~ ~*/ mtProlog(code1). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtProlog/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtProlog/1]]) No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ~*/ mtHybrid(kb2). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtHybrid/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtHybrid/1]]) No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ~*/ /* ;; All living people have an organ (forall ((p PersonAlive)) (exists ((o Organ)) (have p o))) ;; An organ exists in which every living Persons ever will exists (exists ((o Organ)) (forall ((p PersonAlive)) (co-temporal p o))) Maybe people dont even exist? Wait.. 'co-temporal' does this mean we have created People? Have we created people with Eternal life as well? At least until the Eternal Organ is no more? To make my question fair (forall (x t) (if (and (ist t (instance x TemporalObject)) (co-temporal x y)) (ist t (exists (y) (instance y TemporalObject)))) (forall (x y) (iff (co-temporal x y) (co-temporal y x))) */ code1: (a:- printAll('$current_source_module'(_M)),b). /*~ No source location!? ~*/ kb2: (b). /*~ No source location!? ~*/ genlMt(kb2,code1). % before test, to make sure a was not accdently defined in kb2 /*~ ~*/ % before test, to make sure a was not accdently defined in kb2 :- sanity( clause(kb2:a,_)). % before test, genlMt makes the rule available and should not corrupt the code1 module /*~ %~ ?-( mpred_test("Test_0058_Line_0000__A_in_kb2_in_myMt",myMt:clause(kb2:a,Clause_Kw))). failure=info((why_was_true(myMt:(\+clause(kb2:a,_99570))),nop(ftrace(myMt:clause(kb2:a,_99570))))) no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0058_Line_0000__A_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0058_Line_0000_A_in_kb2_in_myMt-junit.xml ~*/ % before test, genlMt makes the rule available and should not corrupt the code1 module :- sanity(\+ clause(code1:b,_)). % make sure genlMt didnt unassert /*~ %~ ?-( mpred_test("Test_0059_Line_0000__naf_B_in_code1_in_myMt",myMt:(\+clause(code1:b,Clause_Kw)))). passed=info(why_was_true(myMt:(\+clause(code1:b,_3592682)))) no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0059_Line_0000__naf_B_in_code1_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0059_Line_0000_naf_B_in_code1_in_myMt-junit.xml ~*/ % make sure genlMt didnt unassert :- sanity(clause(kb2:b,_)). % run the test /*~ %~ ?-( mpred_test("Test_0060_Line_0000__B_in_kb2_in_myMt",myMt:clause(kb2:b,Clause_Kw))). passed=info(why_was_true(myMt:clause(kb2:b,true))) no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0060_Line_0000__B_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0060_Line_0000_B_in_kb2_in_myMt-junit.xml ~*/ % run the test kb2: (?- a). % to make sure a does not get accdently defined in kb2 /*~ No source location!? ~*/ % to make sure a does not get accdently defined in kb2 :- mpred_must( clause(kb2:a,_)). % genlMt makes the rule available and should not corrupt the code1 module /*~ %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure+failed_mpred_test(clause(kb2:a,_3132214))]) 39m %~ failed_mpred_test( clause(kb2:a,Clause_Kw)) %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 (0)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (1)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m2m96m49m11m '$toplevel'. 0m49m0m0m0m % toplevel.pl:701: (2)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m0m33m49m15m '$runtoplevel'. 0m49m39m0m0m % toplevel.pl:713: (10)$0m0m39m49m10m[system]0m49m39m0m0m0m1m37m40m13m '$load_file'('mt_09.pl',user,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:2353: (13)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$sig_atomic'(setup_call_cleanup(with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b0aed00),[expand(false),expand(true)])),'$mt_do_load'((0x55fc8b0aed00),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),'$mt_end_load'((0x55fc8b0aed00)))). 0m49m39m21m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (14)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (16)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b0aed00),[expand(false),expand(true)])),system:'$mt_do_load'((0x55fc8b0aed00),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),A,system:'$mt_end_load'((0x55fc8b0aed00))). 0m49m39m0m0m % init.pl:646: (18)$0m0m39m49m10m[system]0m49m39m0m0m#0m2m97m40m12m '$qdo_load_file'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]). 0m49m0m0m0m % init.pl:2546: (21)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m95m49m10m '$do_load_file_2'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,compiled,[expand(false),expand(true)]). 0m49m0m21m0m % init.pl:2592: (25)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:'$start_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',1632225690.9774585),system:'$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]),B,system:'$end_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',lexstate(202,swi),user)). 0m49m39m0m0m % init.pl:646: (26)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:3007: (31)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m91m49m10m '$execute_directive_3'(clause(kb2:a,A)). 0m49m0m0m0m % init.pl:3574: (32)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m catch(myMt:clause(kb2:a,A),error(B,C),system:'$exception_in_directive'(error(B,C))). 0m49m39m0m0m % init.pl:546: (33)0m2m93m49m14m[myMt]0m49m0m0m0m#0m1m95m49m17m pfc_lib:clause(kb2:a,A). 0m49m0m21m0m % mpred_core.pl:4331: (35)0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (36)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (38)0m2m93m49m14m[myMt]0m49m0m0m0m0m0m99m49m15m pfc_lib:break_ex. 0m49m0m0m0m % mpred_core.pl:4226: (39)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (40)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (43)0m2m33m49m15m[butterfly]0m49m39m0m0m0m2m93m49m14m butterfly:in_bfly(f,myMt:zotrace(with_all_dmsg((b_setval('$dump_frame',500),dumpST1)))). 0m49m0m0m0m % butterfly_console.pl:226: %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ DUMP_BREAK/0 %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:68 %~ message_hook(unhandled_exception(abort),error,['Unhandled exception: ','~p'-[abort]]) Unhandled exception: abort ERROR: Unhandled exception: abort ~*/ /*~ ~*/ /* % % PFC is a language extension for prolog. % % It adds a new type of module inheritance % % Dec 13, 2035 % Douglas Miles */ % was_module(mt_09,[]). :- include(library(logicmoo_test_header)). /*~ running(-), %~ /var/lib/jenkins/.local/share/swi-prolog/pack/logicmoo_utils/prolog/logicmoo_test_header.pl:59 %~ reload_of_test_header. %~ this_test_might_need( :-( expects_dialect(pfc))) %~ this_test_might_need( :-( use_module( library(logicmoo_plarkc)))) ~*/ :- pfc_test_feature(pfc_file_detect,must(\+ is_pfc_file)). %:- add_import_module(mt_01,baseKB,end). /*~ ~*/ %:- add_import_module(mt_01,baseKB,end). :- set_defaultAssertMt(myMt). /*~ ~*/ mtProlog(code1). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtProlog/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtProlog/1]]) No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtProlog/1)' ~*/ mtHybrid(kb2). /*~ No source location!? %~ message_hook( %~ error( %~ permission_error(redefine,imported_procedure,baseKB:mtHybrid/1), %~ context(system:'$record_clause'/3,Context_Kw)), %~ error, %~ [ 'No permission to ~w ~w `~p\'' - [ redefine, %~ imported_procedure, %~ baseKB : mtHybrid/1]]) No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ERROR: No permission to redefine imported_procedure `baseKB:(mtHybrid/1)' ~*/ /* ;; All living people have an organ (forall ((p PersonAlive)) (exists ((o Organ)) (have p o))) ;; An organ exists in which every living Persons ever will exists (exists ((o Organ)) (forall ((p PersonAlive)) (co-temporal p o))) Maybe people dont even exist? Wait.. 'co-temporal' does this mean we have created People? Have we created people with Eternal life as well? At least until the Eternal Organ is no more? To make my question fair (forall (x t) (if (and (ist t (instance x TemporalObject)) (co-temporal x y)) (ist t (exists (y) (instance y TemporalObject)))) (forall (x y) (iff (co-temporal x y) (co-temporal y x))) */ code1: (a:- printAll('$current_source_module'(_M)),b). /*~ No source location!? ~*/ kb2: (b). /*~ No source location!? ~*/ genlMt(kb2,code1). % before test, to make sure a was not accdently defined in kb2 /*~ ~*/ % before test, to make sure a was not accdently defined in kb2 :- sanity( clause(kb2:a,_)). % before test, genlMt makes the rule available and should not corrupt the code1 module /*~ %~ /var/lib/jenkins/workspace/logicmoo_workspace/packs_sys/pfc/t/sanity_base/mt_09.pl:53 %~ ?-( mpred_test("Test_0061_Line_0000__A_in_kb2_in_myMt",myMt:clause(kb2:a,Clause_Kw))). failure=info((why_was_true(myMt:(\+clause(kb2:a,_99896))),nop(ftrace(myMt:clause(kb2:a,_99896))))) no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0061_Line_0000__A_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0061_Line_0000_A_in_kb2_in_myMt-junit.xml ~*/ % before test, genlMt makes the rule available and should not corrupt the code1 module :- sanity(\+ clause(code1:b,_)). % make sure genlMt didnt unassert /*~ %~ ?-( mpred_test("Test_0062_Line_0000__naf_B_in_code1_in_myMt",myMt:(\+clause(code1:b,Clause_Kw)))). passed=info(why_was_true(myMt:(\+clause(code1:b,_3762510)))) no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). no_proof_for(\+clause(code1:b,Clause_Kw2)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0062_Line_0000__naf_B_in_code1_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0062_Line_0000_naf_B_in_code1_in_myMt-junit.xml ~*/ % make sure genlMt didnt unassert :- sanity(clause(kb2:b,_)). % run the test /*~ %~ ?-( mpred_test("Test_0063_Line_0000__B_in_kb2_in_myMt",myMt:clause(kb2:b,Clause_Kw))). passed=info(why_was_true(myMt:clause(kb2:b,true))) no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). no_proof_for(clause(kb2:b,true)). name='logicmoo.pfc.test.sanity_base.MT_09-Test_0063_Line_0000__B_in_kb2_in_myMt'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.MT_09'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'mt_09.pl\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_MT_09_Test_0063_Line_0000_B_in_kb2_in_myMt-junit.xml ~*/ % run the test kb2: (?- a). % to make sure a does not get accdently defined in kb2 /*~ No source location!? ~*/ % to make sure a does not get accdently defined in kb2 :- mpred_must( clause(kb2:a,_)). % genlMt makes the rule available and should not corrupt the code1 module /*~ %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure+failed_mpred_test(clause(kb2:a,_3282486))]) 39m %~ failed_mpred_test( clause(kb2:a,Clause_Kw)) %~ FILE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 31msmart_format("%%%%%%%%%%%%%%%%%%%%%%%%%%% (~w) ~w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n",[red,failure]) 39m %~ FIlE: * https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl#L68 (0)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (1)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m2m96m49m11m '$toplevel'. 0m49m0m0m0m % toplevel.pl:701: (2)$0m2m96m49m11m[$toplevel]0m49m0m0m0m0m0m33m49m15m '$runtoplevel'. 0m49m39m0m0m % toplevel.pl:713: (10)$0m0m39m49m10m[system]0m49m39m0m0m0m1m37m40m13m '$load_file'('mt_09.pl',user,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:2353: (13)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$sig_atomic'(setup_call_cleanup(with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b069480),[expand(false),expand(true)])),'$mt_do_load'((0x55fc8b069480),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),'$mt_end_load'((0x55fc8b069480)))). 0m49m39m21m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (14)$0m0m39m49m10m[system]0m49m39m0m0m0m0m99m49m10m '$c_call_prolog'. 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (16)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:with_mutex('$load_file','$mt_start_load'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',(0x55fc8b069480),[expand(false),expand(true)])),system:'$mt_do_load'((0x55fc8b069480),'mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]),A,system:'$mt_end_load'((0x55fc8b069480))). 0m49m39m0m0m % init.pl:646: (18)$0m0m39m49m10m[system]0m49m39m0m0m#0m2m97m40m12m '$qdo_load_file'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,[expand(false),expand(true)]). 0m49m0m0m0m % init.pl:2546: (21)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m95m49m10m '$do_load_file_2'('mt_09.pl','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',user,compiled,[expand(false),expand(true)]). 0m49m0m21m0m % init.pl:2592: (25)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m setup_call_catcher_cleanup(system:'$start_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',1632225690.9774585),system:'$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]),B,system:'$end_consult'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',lexstate(202,swi),user)). 0m49m39m0m0m % init.pl:646: (26)$0m0m39m49m10m[system]0m49m39m0m0m#0m1m37m40m13m '$load_file'('* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ','* https://logicmoo.org:2082/gitlab/logicmoo/logicmoo_workspace/-/edit/master/packs_sys/pfc/t/sanity_base/mt_09.pl ',A,[expand(false),expand(true)]). 0m49m39m21m0m % init.pl:3007: (31)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m91m49m10m '$execute_directive_3'(clause(kb2:a,A)). 0m49m0m0m0m % init.pl:3574: (32)$0m0m39m49m10m[system]0m49m39m0m0m#0m0m39m49m10m catch(myMt:clause(kb2:a,A),error(B,C),system:'$exception_in_directive'(error(B,C))). 0m49m39m0m0m % init.pl:546: (33)0m2m93m49m14m[myMt]0m49m0m0m0m#0m1m95m49m17m pfc_lib:clause(kb2:a,A). 0m49m0m21m0m % mpred_core.pl:4331: (35)0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (36)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_lines(red,failure+failed_mpred_test(clause(kb2:a,A))),maybe_mpred_break(failed_mpred_test(clause(kb2:a,A))),log_failure_red)). 0m49m0m0m0m0m0m92m49m11m no(clause) 0m49m0m0m0m (38)0m2m93m49m14m[myMt]0m49m0m0m0m0m0m99m49m15m pfc_lib:break_ex. 0m49m0m0m0m % mpred_core.pl:4226: (39)$0m0m99m49m17m[rtrace]0m49m0m0m0m0m2m93m49m14m rtrace:quietly(myMt:(log_failure_red,dumpST,log_failure_red)). 0m49m0m0m0m % rtrace.pl:217: (40)$0m2m93m49m14m[myMt]0m49m0m0m0m0m2m93m49m14m ''(myMt:(log_fai goal=myMt:clause(kb2:a,_267018). time=6.222724914550781e-5. failure=failure=info((why_was_true(myMt:(\+clause(kb2:a,_100818))),nop(ftrace(myMt:clause(kb2:a,_100818))))) no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). no_proof_for(\+clause(kb2:a,Clause_Kw2)). result=failure. ]]>