* New testcase

swi-to-yap · Jul 8, 2003 · 3d13035 · 3d13035
1 parent cf5de4b
commit 3d13035
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 0 deletions.
diff --git a/Test/cent-utf8.xml b/Test/cent-utf8.xml
@@ -0,0 +1,19 @@
+<!DOCTYPE testdoc [
+<!--* test swi: check to see how SWI handles non-ASCII characters
+    * in Unicode.  Named entities, numeric character references,
+    * and native UTF8 may all be different. 
+    *-->
+<!ENTITY ntilde  "&#241;" ><!-- small n, tilde -->
+<!ENTITY lsquo  "&#x2018;" ><!--=single quotation mark, left-->
+<!ENTITY rsquo  "&#8217;" ><!-- = x2019 single quotation mark, right-->
+<!ENTITY townname "Espa&ntilde;ola">
+<!ENTITY townnum "Espa&#241;ola">
+<!ENTITY scarequote1 "a &lsquo;test&rsquo; for you">
+<!ENTITY scarequote2 "a &#x2018;test&#x2019; for you">
+]>
+<testdoc id="t7-20020923" resp="MSM">
+<names>From Espa&ntilde;ola -- a &lsquo;test&rsquo; for you.</names>
+<nums>From Espa&#241;ola -- a &#x2018;test&#x2019; for you.</nums>
+<names>From &townname; -- &scarequote1;.</names>
+<nums>From &townname; -- &scarequote2;.</nums>
+</testdoc>
diff --git a/Test/ok/cent-utf8.ok b/Test/ok/cent-utf8.ok
@@ -0,0 +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'])].
+[].
Original file line number	Diff line number	Diff line change
		@@ -0,0 +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'])].
		[].