* Adjusted tests for wide-character version

swi-to-yap · Dec 20, 2004 · 79c3dd5 · 79c3dd5
1 parent 47b34a0
commit 79c3dd5
Show file tree

Hide file tree

Showing 5 changed files with 14 additions and 3 deletions.
diff --git a/Test/ok/cent-utf8.ok b/Test/ok/cent-utf8.ok
@@ -1,2 +1,2 @@
-[element(testdoc, [id='t7-20020923', resp='MSM'], ['\n', element(names, [], ['From Española -- a ', entity(lsquo), test, entity(rsquo), ' for you.']), '\n', element(nums, [], ['From Española -- a ', entity(8216), test, entity(8217), ' for you.']), '\n', element(names, [], ['From Española -- a ', entity(lsquo), test, entity(rsquo), ' for you.']), '\n', element(nums, [], ['From Española -- a ', entity(8216), test, entity(8217), ' for you.']), '\n'])].
+[element(testdoc, [id='t7-20020923', resp='MSM'], ['\n', element(names, [], ['From Española -- a ‘test’ for you.']), '\n', element(nums, [], ['From Española -- a ‘test’ for you.']), '\n', element(names, [], ['From Española -- a ‘test’ for you.']), '\n', element(nums, [], ['From Española -- a ‘test’ for you.']), '\n'])].
 [].
diff --git a/Test/ok/utf8-cent.ok b/Test/ok/utf8-cent.ok
@@ -1,2 +1,2 @@
-[element(testdoc, [id='t7-20020923', resp='MSM'], ['\n', element(names, [], ['From Española -- a ', entity(8216), test, entity(8217), ' for you.']), '\n', element(nums, [], ['From Española -- a ', entity(8216), test, entity(8217), ' for you.']), '\n', element(names, [], ['From Española -- a ', entity(8216), test, entity(8217), ' for you.']), '\n', element(nums, [], ['From Española -- a ', entity(8216), test, entity(8217), ' for you.']), '\n'])].
+[element(testdoc, [id='t7-20020923', resp='MSM'], ['\n', element(names, [], ['From Española -- a ‘test’ for you.']), '\n', element(nums, [], ['From Española -- a ‘test’ for you.']), '\n', element(names, [], ['From Española -- a ‘test’ for you.']), '\n', element(nums, [], ['From Española -- a ‘test’ for you.']), '\n'])].
 [].
diff --git a/Test/ok/wchar.ok b/Test/ok/wchar.ok
@@ -0,0 +1,2 @@
+[element(test, [], ['\n  ', element(li, [], ['Some cyrillic chars: ий']), '\n  ', element(li, [], ['This a an sizzors symbol: ✄']), '\n  ', element(a, [att='Cirle with 1: ➀'], []), '\n'])].
+[].
diff --git a/Test/test.pl b/Test/test.pl
@@ -130,7 +130,9 @@
 	concat_atom([Dir, '/ok/', Base, '.ok'], OkFile).
 
 load_prolog_file(File, Term, Errors) :-
-	open(File, read, Fd),
+	open(File, read, Fd,
+	     [ encoding(utf8)
+	     ]),
 	read(Fd, Term),
 	(   read(Fd, Errors),
 	    Errors \== end_of_file

diff --git a/Test/wchar.xml b/Test/wchar.xml
@@ -0,0 +1,7 @@
+<?xml version="1.0"?>
+<test>
+  <li>Some cyrillic chars: &#1080;&#1081;</li>
+  <li>This a an sizzors symbol: &#9988;</li>
+  <a att="Cirle with 1: &#10112;"/>
+</test>
+
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,2 @@
		[element(test, [], ['\n ', element(li, [], ['Some cyrillic chars: ий']), '\n ', element(li, [], ['This a an sizzors symbol: ✄']), '\n ', element(a, [att='Cirle with 1: ➀'], []), '\n'])].
		[].