test_paths

get_prob_examples_override(Path) :- prob_examples_override(Path).

init_prob_examples_override :-
    (environ('PROB_EXAMPLES_DIR', Path) ->
    set_prob_examples_override(Path)
    ;
    % Set default path for prob_examples
    unset_prob_examples_override
).

set_prob_examples_override(Path) :-
    retractall(prob_examples_override(_)),
    assertz(prob_examples_override(Path)),
    runtime_application_path(App),
    absolute_file_name(Path, Full, [relative_to(App)]),
    set_prob_examples_path(Full).

set_prob_examples_path(Path) :-
    retractall(user:file_search_path(prob_examples, _)),
    assertz(user:file_search_path(prob_examples, Path)).

unset_prob_examples_override :-
    retractall(prob_examples_override(_)),
    runtime_application_path(App),
    absolute_file_name('../prob_examples', Full, [relative_to(App)]),
    set_prob_examples_path(Full).