* Added some more tests

swi-to-yap · Dec 20, 2000 · b8a0830 · b8a0830
1 parent c5c41fd
commit b8a0830
Show file tree

Hide file tree

Showing 5 changed files with 21 additions and 2 deletions.
diff --git a/Test/amp.sgml b/Test/amp.sgml
@@ -0,0 +1,7 @@
+<!DOCTYPE test [
+  <!ELEMENT test o o (p)*>
+  <!ELEMENT p    o o (#PCDATA)>
+  <!ENTITY amp CDATA "&#38;">
+]>
+
+&amp;
diff --git a/Test/entent.sgml b/Test/entent.sgml
@@ -0,0 +1,10 @@
+<!DOCTYPE oops [
+ <!ENTITY s CDATA "attr">
+ <!ENTITY o STARTTAG "snag &#38;s;=2">
+ <!ELEMENT snag - O EMPTY>
+ <!ATTLIST snag attr NUMBER #REQUIRED>
+ <!ELEMENT oops - O RCDATA>
+]>
+
+<oops>
+&o;
diff --git a/Test/ok/amp.ok b/Test/ok/amp.ok
@@ -0,0 +1 @@
+[element(test, [], [element(p, [], [&])])].
diff --git a/Test/ok/entent.ok b/Test/ok/entent.ok
@@ -0,0 +1 @@
+[element(oops, [], ['<snag attr=2>'])].
diff --git a/Test/sr.sgml b/Test/sr.sgml
@@ -1,5 +1,5 @@
 <!DOCTYPE test [
-  <!ELEMENT test - - p*>
+  <!ELEMENT test - - (p)*>
   <!ELEMENT p    o o (#PCDATA|q)*>
   <!ELEMENT q    - - (#PCDATA)>
 
@@ -8,7 +8,7 @@
   <!ENTITY   beg..p STARTTAG "p">
 
   <!SHORTREF in..p  '"' beg..q
-		    '&#RS;B&#RE' beg..p>
+		    '&#RS;B&#RE;' beg..p>
   <!SHORTREF in..q  '"' end..q>
   <!USEMAP in..p p>
 ]>