From a492d969f0a436ea2c28adc6d195bc0c6c15f720 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= Date: Tue, 4 May 2010 15:24:28 +0100 Subject: [PATCH] try to run sgml tests. --- packages/sgml/Test/test.pl | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/packages/sgml/Test/test.pl b/packages/sgml/Test/test.pl index 4731cc409..2ffc1147c 100644 --- a/packages/sgml/Test/test.pl +++ b/packages/sgml/Test/test.pl @@ -18,15 +18,22 @@ test/0 ]). -:- prolog_load_context(directory, CWD), - working_directory(_, CWD). -:- asserta(user:file_search_path(library, '..')). -:- asserta(user:file_search_path(foreign, '..')). +:- expects_dialect(swi). + :- use_module(library(sgml)). +:- prolog_load_context(directory, CWD), + assert(wd(CWD)). + +%:- asserta(user:file_search_path(library, '..')). +%:- asserta(user:file_search_path(foreign, '..')). +%:- use_module(library(sgml)). + test :- + wd(CWD), + working_directory(_, CWD), testdir(.). testdir(Dir) :- @@ -159,5 +166,4 @@ compare_attributes(A1, A2) :- sort(A2, L2), L1 == L2. - - +pp(X) :- writeln(X). \ No newline at end of file