diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

try to run sgml tests.

This commit is contained in:
Vítor Santos Costa 2010-05-04 15:24:28 +01:00
parent 2852f5d154
commit a492d969f0
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/sgml/Test/test.pl
View File

@ -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).