* Test for record-start/end handling

swi-to-yap · May 24, 2001 · a8634ca · a8634ca
1 parent 201cd41
commit a8634ca
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 0 deletions.
diff --git a/Test/ok/rsre.ok b/Test/ok/rsre.ok
@@ -0,0 +1,2 @@
+[element(text, [], [element(page, [], [element(line, [], ['SGML does NOT add record start characters at the beginning or']), element(line, [], ['record end characters at the end of entities unless they are']), element(line, [], ['already there.  In this document, there IS a record start']), element(line, [], ['character for the first line of text and there IS a record end']), element(line, [], ['character for the last line of text.  The #RS character reference']), element(line, [], ['should match at the beginning of each line except possibly the']), element(line, [], ['first one, so we expect SEVEN (LINE) elements for this file.'])])])].
+[].
diff --git a/Test/rsre.sgml b/Test/rsre.sgml
@@ -0,0 +1,18 @@
+<!DOCTYPE text [
+<!ENTITY new.page STARTTAG "page">
+<!ENTITY new.line STARTTAG "line">
+<!SHORTREF for.text
+    "&#RS;" new.line>
+<!ELEMENT text O O (page+)>
+<!ATTLIST text original CDATA #IMPLIED>
+<!USEMAP for.text text>
+<!ELEMENT page O O (line+)>
+<!ELEMENT line O O (#PCDATA)>
+]>
+SGML does NOT add record start characters at the beginning or
+record end characters at the end of entities unless they are
+already there.  In this document, there IS a record start
+character for the first line of text and there IS a record end
+character for the last line of text.  The #RS character reference
+should match at the beginning of each line except possibly the
+first one, so we expect SEVEN (LINE) elements for this file.
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,2 @@
		[element(text, [], [element(page, [], [element(line, [], ['SGML does NOT add record start characters at the beginning or']), element(line, [], ['record end characters at the end of entities unless they are']), element(line, [], ['already there. In this document, there IS a record start']), element(line, [], ['character for the first line of text and there IS a record end']), element(line, [], ['character for the last line of text. The #RS character reference']), element(line, [], ['should match at the beginning of each line except possibly the']), element(line, [], ['first one, so we expect SEVEN (LINE) elements for this file.'])])])].
		[].