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
|
--- pl-5.6.17.orig/packages/clib/testsocket.pl 2004-09-22 02:28:16.000000000 +1200
+++ pl-5.6.17/packages/clib/testsocket.pl 2006-08-27 09:57:19.000000000 +1200
@@ -35,6 +35,12 @@
client/1 % +Address
]).
+:- ( current_prolog_flag(system_thread_id, _)
+ -> true
+ ; format('Disabling tcp_test on single-threaded engine~n~n', []),
+ halt
+ ).
+
:- asserta(user:file_search_path(foreign, '.')).
:- use_module(socket).
--- pl-5.6.17.orig/packages/semweb/litmap_test.pl 2006-03-07 02:17:30.000000000 +1300
+++ pl-5.6.17/packages/semweb/litmap_test.pl 2006-08-27 10:13:14.000000000 +1200
@@ -3,6 +3,13 @@
test/1,
test/2
]).
+
+:- ( current_prolog_flag(system_thread_id, _)
+ -> true
+ ; format('Disabling literal map test on single-threaded engine~n~n', []),
+ halt
+ ).
+
:- use_module(library(debug)).
:- use_module(library(debug)).
:- asserta(user:file_search_path(foreign, '../sgml')).
--- 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-08-27 10:11:29.000000000 +1200
@@ -5,6 +5,12 @@
Copyright (C) 1996 University of Amsterdam. All rights reserved.
*/
+:- ( current_prolog_flag(system_thread_id, _)
+ -> true
+ ; format('Disabling RDF_DB test suite on single-threaded engine~n~n', []),
+ halt
+ ).
+
:- asserta(file_search_path(foreign, '../sgml')).
:- asserta(file_search_path(library, '../sgml')).
:- asserta(file_search_path(library, '../sgml/RDF')).
--- pl-5.6.17.orig/packages/ssl/ssl_test.pl 2006-06-21 19:51:59.000000000 +1200
+++ pl-5.6.17/packages/ssl/ssl_test.pl 2006-08-27 10:17:41.000000000 +1200
@@ -29,6 +29,12 @@
the GNU General Public License.
*/
+:- ( current_prolog_flag(system_thread_id, _)
+ -> true
+ ; format('Disabling SSL test on single-threaded engine~n~n', []),
+ halt
+ ).
+
:- asserta(user:file_search_path(foreign, '.')).
:- use_module(ssl).
|
GitWeb
