From a929e26f420b8240ad5340984da8b35b3312697d Mon Sep 17 00:00:00 2001
From: erlanger <erlanger>
Date: Tue, 27 Nov 2018 22:02:43 -0500
Subject: [PATCH] Use file_search_path to locate test modules

---
 test_write.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/test_write.pl b/test_write.pl
index 350b44a..4b9f00b 100644
--- a/test_write.pl
+++ b/test_write.pl
@@ -47,13 +47,17 @@
 :- asserta(user:file_search_path(library, '../plunit')).
 :- asserta(user:file_search_path(library, '../clib')).
 
+:- prolog_load_context(directory, D),
+   asserta(user:file_search_path(library, D)),
+   atom_concat(D, '/..', DD),
+   asserta(user:file_search_path(library, DD)).
 :- use_module(library(plunit)).
 :- use_module(library(rdf_write)).
 :- use_module(library(sgml)).
 :- use_module(library(lists)).
 :- use_module(library(debug)).
 :- use_module(library(semweb/rdf_db)).
-:- use_module(rdf).
+:- use_module(library(rdf)).
 
 test_write :-
     run_tests([ rdf_write