1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
diff -ur pl-5.6.17.orig/packages/semweb/rdf_db_test.pl pl-5.6.17/packages/semweb/rdf_db_test.pl
--- pl-5.6.17.orig/packages/semweb/rdf_db_test.pl 2006-03-09 03:32:48.000000000 +1300
+++ pl-5.6.17/packages/semweb/rdf_db_test.pl 2006-10-07 20:32:28.000000000 +1300
@@ -13,6 +13,8 @@
:- use_module(rdfs).
:- use_module(library(xsdp_types)).
+:- unsetenv('SGML_CATALOG_FILES').
+
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
RDF-DB test file. A test is a clause of the form:
diff -ur pl-5.6.17.orig/packages/sgml/RDF/rdf_test.pl pl-5.6.17/packages/sgml/RDF/rdf_test.pl
--- pl-5.6.17.orig/packages/sgml/RDF/rdf_test.pl 2005-07-05 02:07:43.000000000 +1200
+++ pl-5.6.17/packages/sgml/RDF/rdf_test.pl 2006-10-07 20:31:31.000000000 +1300
@@ -34,6 +34,8 @@
:- set_prolog_flag(rdf_container, true).
+:- unsetenv('SGML_CATALOG_FILES').
+
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Test file for the SWI-Prolog RDF parser. Toplevel predicates:
diff -ur pl-5.6.17.orig/packages/sgml/Test/test.pl pl-5.6.17/packages/sgml/Test/test.pl
--- pl-5.6.17.orig/packages/sgml/Test/test.pl 2005-03-01 02:49:58.000000000 +1300
+++ pl-5.6.17/packages/sgml/Test/test.pl 2006-10-07 09:14:41.000000000 +1300
@@ -25,6 +25,7 @@
:- asserta(user:file_search_path(foreign, '..')).
:- use_module(library(sgml)).
+:- unsetenv('SGML_CATALOG_FILES').
test :-
testdir(.).
@@ -52,27 +53,27 @@
-> format('ok')
; format('WRONG'),
format('~NOK:~n'),
- pp(TermOk),
+ format('~w~n',[TermOk]),
format('~NANSWER:~n'),
- pp(Term)
+ format('~w~n',[Term])
),
error_terms(Errors),
( compare_errors(Errors, ErrorsOk)
-> true
; format(' [Different errors]~nOK:~n'),
- pp(ErrorsOk),
+ format('~w~n',[ErrorsOk]),
format('~NANSWER:~n'),
- pp(Errors)
+ format('~w~n',[Errors])
),
nl
; show_errors,
format('Loaded, no validating data~n'),
- pp(Term)
+ format('~w~n',[Term])
).
show(File) :-
load_file(File, Term),
- pp(Term).
+ format('~w~n',[Term]).
pass(File) :-
load_file(File, Term),
diff -ur pl-5.6.17.orig/packages/sgml/Test/wrtest.pl pl-5.6.17/packages/sgml/Test/wrtest.pl
--- pl-5.6.17.orig/packages/sgml/Test/wrtest.pl 2005-03-01 02:49:58.000000000 +1300
+++ pl-5.6.17/packages/sgml/Test/wrtest.pl 2006-10-07 09:20:18.000000000 +1300
@@ -19,6 +19,8 @@
:- use_module(library(sgml)).
:- use_module(library(sgml_write)).
+:- unsetenv('SGML_CATALOG_FILES').
+
test :- % default test
fp('.').
@@ -114,7 +116,7 @@
open(File, write, Out, [encoding(iso_latin_1)]),
current_output(C0),
set_output(Out),
- pp(Term),
+ format('~w~n',[Term]),
set_output(C0),
close(Out).
|
GitWeb