[patch] swi-prolog-5.6.0-test.patch

swi-prolog-5.6.0-test.patch (text/plain), 1.83 KB, created by Keri Harris (RETIRED) on 2006-01-02 21:34:14 UTC

--- pl-5.6.0/src/test.pl.orig	2006-01-02 15:16:54.000000000 +1300
+++ pl-5.6.0/src/test.pl	2006-01-02 15:22:14.000000000 +1300
@@ -1902,8 +1902,8 @@
 	working_directory(CWD, CWD),
 	exists_directory(CWD),
 	same_file(CWD, '.').
-file(mkdir-1) :-			% create Cyrillic directory
-	atom_codes(Dir, [1074, 1086, 1079, 1076, 1091, 1093, 1072]),
+file(mkdir-1) :-
+	atom_codes(Dir, [116, 101, 115, 116, 100, 105, 114]),
 	catch(delete_directory(Dir), _, true),
 	make_directory(Dir),
 	exists_directory(Dir),
@@ -1912,8 +1912,8 @@
 	same_file(Old, '.'),
 	same_file(O2, Dir),
 	delete_directory(Dir).
-file(file-1) :-				% create Cyrillic file
-	atom_codes(File, [1074, 1086, 1079, 1076, 1091, 1093, 1072]),
+file(file-1) :-
+	atom_codes(File, [116, 101, 115, 116, 102, 105, 108, 101]),
 	Term = hello(world),
 	catch(delete_file(File), _, true),
 	open(File, write, Out),
@@ -1926,7 +1926,7 @@
 	Read =@= Term,
 	delete_file(File).
 file(absfile-1) :-
-	atom_codes(File, [1074, 1086, 1079, 1076, 1091, 1093, 1072]),
+	atom_codes(File, [116, 101, 115, 116, 102, 105, 108, 101]),
 	absolute_file_name(File, Path),
 	file_directory_name(Path, Dir),
 	same_file(Dir, '.'),
@@ -1950,10 +1950,10 @@
 	delete_directory(Y),
 	atom_concat(_, YF, Abs2).
 file(ext-1) :-
-	atom_codes(File, [1074, 1086, 1079, 1076, 0'., 1091, 1093, 1072]),
+	atom_codes(File, [102, 105, 108, 101, 0'., 101, 120, 116]),
 	file_name_extension(Base, Ext, File),
-	atom_codes(Base, [1074, 1086, 1079, 1076]),
-	atom_codes(Ext, [1091, 1093, 1072]).
+	atom_codes(Base, [102, 105, 108, 101]),
+	atom_codes(Ext, [101, 120, 116]).
 file(ext-2) :-
 	\+ file_name_extension(foo, _, 'bar.pl'). 	% Bug#69
 
@@ -2012,7 +2012,7 @@
 	code_type(48, digit(W)),
 	W == 0.
 ctype(code_type-6) :-
-	char_code(X, 1080), code_type(X, alnum).
+	char_code(X, 120), code_type(X, alnum).
 
 
 		 /*******************************