Commits

Anonymous committed 9150edb

Moved the XML-Grammar-Fiction t/*.t tests to t/fiction/*.t.

Comments (0)

Files changed (100)

perl/modules/XML-Grammar-Fiction/MANIFEST

 tag-release.pl
 t/app-to-html.t
 t/boilerplate.t
-t/data/docbook/sections-a-href.docbook.xml
-t/data/docbook/sections-and-paras.docbook.xml
-t/data/docbook/sections-p-b-i-comments.docbook.xml
-t/data/docbook/with-internal-description.docbook.xml
-t/data/proto-text/dialogue-with-several-paragraphs.txt
-t/data/proto-text-invalid/inner-desc-inside-char-addressing.txt
-t/data/proto-text-invalid/leading-space-at-para-start.txt
-t/data/proto-text-invalid/leading-space.txt
-t/data/proto-text-invalid/no-right-angle.txt
-t/data/proto-text-invalid/not-start-with-tag.txt
-t/data/proto-text-invalid/wrong-close-tag.txt
-t/data/proto-text-invalid/wrong-closing-inner-tag.txt
-t/data/proto-text/nested-s.txt
-t/data/proto-text/scenes-with-titles.txt
-t/data/proto-text/sections-a-href.txt
-t/data/proto-text/sections-and-paras.txt
-t/data/proto-text/sections-p-b-i-comments.txt
-t/data/proto-text/sections-p-b-i.txt
-t/data/proto-text/two-nested-s.txt
-t/data/proto-text/with-brs.txt
-t/data/proto-text/with-comments.txt
-t/data/proto-text/with-description.txt
-t/data/proto-text/with-dialogue.txt
-t/data/proto-text/with-entities.txt
-t/data/proto-text/with-internal-description.txt
-t/data/proto-text/with-multi-line-comments.txt
-t/data/proto-text/with-multi-para-desc.txt
-t/data/proto-text/with-tags-inside-paragraphs.txt
-t/data/xml/dialogue-with-several-paragraphs.xml
-t/data/xml/nested-s.xml
-t/data/xml/scenes-with-titles.xml
-t/data/xml/sections-a-href.xml
-t/data/xml/sections-and-paras.xml
-t/data/xml/sections-p-b-i-comments.xml
-t/data/xml/sections-p-b-i.xml
-t/data/xml/two-nested-s.xml
-t/data/xml/with-brs.xml
-t/data/xml/with-comments.xml
-t/data/xml/with-description.xml
-t/data/xml/with-dialogue.xml
-t/data/xml/with-entities.xml
-t/data/xml/with-multi-line-comments.xml
-t/data/xml/with-multi-para-desc.xml
-t/data/xml/with-tags-inside-paragraphs.xml
+t/fiction/data/docbook/sections-a-href.docbook.xml
+t/fiction/data/docbook/sections-and-paras.docbook.xml
+t/fiction/data/docbook/sections-p-b-i-comments.docbook.xml
+t/fiction/data/docbook/with-internal-description.docbook.xml
+t/fiction/data/proto-text/dialogue-with-several-paragraphs.txt
+t/fiction/data/proto-text-invalid/inner-desc-inside-char-addressing.txt
+t/fiction/data/proto-text-invalid/leading-space-at-para-start.txt
+t/fiction/data/proto-text-invalid/leading-space.txt
+t/fiction/data/proto-text-invalid/no-right-angle.txt
+t/fiction/data/proto-text-invalid/not-start-with-tag.txt
+t/fiction/data/proto-text-invalid/wrong-close-tag.txt
+t/fiction/data/proto-text-invalid/wrong-closing-inner-tag.txt
+t/fiction/data/proto-text/nested-s.txt
+t/fiction/data/proto-text/scenes-with-titles.txt
+t/fiction/data/proto-text/sections-a-href.txt
+t/fiction/data/proto-text/sections-and-paras.txt
+t/fiction/data/proto-text/sections-p-b-i-comments.txt
+t/fiction/data/proto-text/sections-p-b-i.txt
+t/fiction/data/proto-text/two-nested-s.txt
+t/fiction/data/proto-text/with-brs.txt
+t/fiction/data/proto-text/with-comments.txt
+t/fiction/data/proto-text/with-description.txt
+t/fiction/data/proto-text/with-dialogue.txt
+t/fiction/data/proto-text/with-entities.txt
+t/fiction/data/proto-text/with-internal-description.txt
+t/fiction/data/proto-text/with-multi-line-comments.txt
+t/fiction/data/proto-text/with-multi-para-desc.txt
+t/fiction/data/proto-text/with-tags-inside-paragraphs.txt
+t/fiction/data/xml/dialogue-with-several-paragraphs.xml
+t/fiction/data/xml/nested-s.xml
+t/fiction/data/xml/scenes-with-titles.xml
+t/fiction/data/xml/sections-a-href.xml
+t/fiction/data/xml/sections-and-paras.xml
+t/fiction/data/xml/sections-p-b-i-comments.xml
+t/fiction/data/xml/sections-p-b-i.xml
+t/fiction/data/xml/two-nested-s.xml
+t/fiction/data/xml/with-brs.xml
+t/fiction/data/xml/with-comments.xml
+t/fiction/data/xml/with-description.xml
+t/fiction/data/xml/with-dialogue.xml
+t/fiction/data/xml/with-entities.xml
+t/fiction/data/xml/with-multi-line-comments.xml
+t/fiction/data/xml/with-multi-para-desc.xml
+t/fiction/data/xml/with-tags-inside-paragraphs.xml
+t/fiction/proto-text-invalid.t
+t/fiction/proto-text-to-xml-using-custom-parser.t
+t/fiction/qnd-parser-unit.t
+t/fiction/to-docbook.t
+t/fiction/to-xhtml.t
 t/lib/run-test-1/XML/Grammar/Fiction/ConfigData.pm
 TODO
 t/pod-coverage.t
 t/pod.t
-t/proto-text-invalid.t
-t/proto-text-to-xml-using-custom-parser.t
-t/qnd-parser-unit.t
 t/screenplay/00-load.t
 t/screenplay/app-to-html.t
 t/screenplay/boilerplate.t
 t/screenplay/qnd-parser-unit.t
 t/screenplay/to-docbook.t
 t/screenplay/to-xhtml.t
-t/to-docbook.t
-t/to-xhtml.t

perl/modules/XML-Grammar-Fiction/t/app-to-html.t

             "--",
             "-o", "temp.xhtml",
             File::Spec->catdir(File::Spec->curdir(), 
-                "t", "data", "xml", "sections-and-paras.xml",
+                "t", "fiction", "data", "xml", "sections-and-paras.xml",
             )
         ),
         "Testing App::ToHTML",

perl/modules/XML-Grammar-Fiction/t/data/docbook/sections-a-href.docbook.xml

-<?xml version="1.0" encoding="UTF-8"?>
-<article xmlns="http://docbook.org/ns/docbook" xmlns:fic="http://web-cpan.berlios.de/modules/XML-Grammar-Fortune/fiction-xml-0.2/" xmlns:xlink="http://www.w3.org/1999/xlink" xml:id="index" xml:lang="">
-  <info>
-    <title>David vs. Goliath - Part I</title>
-  </info>
-  <section xml:id="top">
-    <info>
-      <title>The Top Section</title>
-    </info>
-    <para>
-        King <link xlink:href="http://en.wikipedia.org/wiki/David">David</link> and Goliath were standing by each other.    
-    </para>
-    <para>
-    David said unto Goliath: "I will shoot you. I <emphasis role="bold">swear</emphasis> I will"
-    </para>
-    <section xml:id="goliath">
-      <info>
-        <title>Goliath's Response</title>
-      </info>
-      <para>
-    Goliath was not amused.
-    </para>
-      <para>
-    He said to David: "Oh, really. <emphasis>David</emphasis>, the red-headed!".
-    </para>
-    </section>
-  </section>
-</article>

perl/modules/XML-Grammar-Fiction/t/data/docbook/sections-and-paras.docbook.xml

-<?xml version="1.0" encoding="UTF-8"?>
-<article xmlns="http://docbook.org/ns/docbook" xmlns:fic="http://web-cpan.berlios.de/modules/XML-Grammar-Fortune/fiction-xml-0.2/" xmlns:xlink="http://www.w3.org/1999/xlink" xml:id="index" xml:lang="">
-  <info>
-    <title>David vs. Goliath - Part I</title>
-  </info>
-  <section xml:id="top">
-    <info>
-      <title>The Top Section</title>
-    </info>
-    <para>
-        David and Goliath were standing by each other.    
-    </para>
-    <para>
-        David said unto Goliath: "I will shoot you."
-    </para>
-    <section xml:id="goliath">
-      <info>
-        <title>Goliath's Response</title>
-      </info>
-      <para>
-    Goliath was not amused.
-    </para>
-      <para>
-    He said to David: "Oh, really".
-    </para>
-    </section>
-  </section>
-</article>

perl/modules/XML-Grammar-Fiction/t/data/docbook/sections-p-b-i-comments.docbook.xml

-<?xml version="1.0" encoding="UTF-8"?>
-<article xmlns="http://docbook.org/ns/docbook" xmlns:fic="http://web-cpan.berlios.de/modules/XML-Grammar-Fortune/fiction-xml-0.2/" xmlns:xlink="http://www.w3.org/1999/xlink" xml:id="index" xml:lang="">
-  <info>
-    <title>David vs. Goliath - Part I</title>
-  </info>
-  <section xml:id="top">
-    <info>
-      <title>The Top Section</title>
-    </info>
-    <para>
-    David and Goliath were standing by each other.    
-    </para>
-    <para>
-    David said unto Goliath: "I will shoot you. I <emphasis role="bold">swear</emphasis> I will"
-    </para>
-    <section xml:id="goliath">
-      <info>
-        <title>Goliath's Response</title>
-      </info>
-      <para>
-    Goliath was not amused.
-    </para>
-      <para>
-    He said to David: "Oh, really. <emphasis>David</emphasis>, the red-headed!".
-    </para>
-    </section>
-  </section>
-</article>

perl/modules/XML-Grammar-Fiction/t/data/docbook/with-internal-description.docbook.xml

-<?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE article PUBLIC "-//OASIS//DTD DocBook XML V4.3//EN" "/usr/share/sgml/docbook/xml-dtd-4.3/docbookx.dtd">
-<article id="index">
-  <section id="top">
-    <title>top</title>
-    <section id="david_and_goliath">
-      <title>david_and_goliath</title>
-      <section role="description" id="id2244766"><title/>
-            <para>
-            [
-        
-                David and 
-                <ulink url="http://en.wikipedia.org/wiki/Goliath"/> 
-                are standing by each other.
-            
-            ]
-        </para>
-        </section>
-      <section role="saying" id="id2244967"><title/>
-            <para><emphasis role="bold">David: </emphasis>
-                I will kill you.
-            </para>
-        </section>
-      <section role="saying" id="id2244977"><title/>
-            <para><emphasis role="bold">Goliath: </emphasis>
-                no way, you little idiot!
-            </para>
-        </section>
-      <section role="saying" id="id2244986"><title/>
-            <para><emphasis role="bold">David: </emphasis>
-                yes way!
-            </para>
-            <para><emphasis role="bold">David: </emphasis>
-                In the name of <ulink url="http://real-allah.tld"/>, I will show you the 
-                <phrase>[sarcastically]</phrase> power 
-                of my sling.
-            </para>
-            <para><emphasis role="bold">David: </emphasis>
-                I shall sling you and bing you till infinity.
-            </para>
-        </section>
-      <section role="description" id="id2242910"><title/>
-            <para>
-            [
-        
-                David takes his sling.
-            
-            ]
-        </para>
-        </section>
-      <section role="saying" id="id2242918"><title/>
-        <para><emphasis role="bold">Goliath: </emphasis>
-            I'm still <ulink url="http://wait.tld/"/>.
-        </para>
-    </section>
-      <section role="saying" id="id2244786"><title/>
-        <para><emphasis role="bold">David: </emphasis>
-            so you are.
-        </para>
-    </section>
-      <section role="description" id="id2244795"><title/>
-        <para>
-            [
-        
-            David puts a stone in his sling and shoots Goliath. He hits.
-        
-            ]
-        </para>
-    </section>
-      <section role="saying" id="id2244802"><title/>
-        <para><emphasis role="bold">David: </emphasis>
-            as is written in the wikipedia <phrase>[See <ulink url="http://wiki.tld/"/>
-                for more information]</phrase>, you are now dead,
-            having been shot with my sling.
-        </para>
-    </section>
-    </section>
-  </section>
-</article>

perl/modules/XML-Grammar-Fiction/t/data/proto-text-invalid/inner-desc-inside-char-addressing.txt

-<start id="top">
-
-</wrong-finish-tag>

perl/modules/XML-Grammar-Fiction/t/data/proto-text-invalid/leading-space-at-para-start.txt

-<body id="index">
-
-<title>David vs. Goliath - Part I</title>
-
-<s id="top">
-
-<title>The Top Section</title>
-
-David and Goliath were standing by each other. David did not
-like Goliath.
-
-David thought to himself: "I don't like Goliath.".
-
-   David said unto Goliath: "I will shoot you. I swear I will". You shall
-feel my wrath!
-
-<s id="goliath">
-
-<title>Goliath's Response</title>
-
-Goliath was not amused.
-
-</s>
-
-</s>
-
-</body>
-

perl/modules/XML-Grammar-Fiction/t/data/proto-text-invalid/leading-space.txt

-<body id="index">
-
-<title>David vs. Goliath - Part I</title>
-
-<s id="top">
-
-<title>The Top Section</title>
-
-David and Goliath were standing by each other.    
-
-David said unto Goliath: "I will shoot you. I <b>swear</b> I will". You shall
-    feel my wrath!
-
-<s id="goliath">
-
-<title>Goliath's Response</title>
-
-Goliath was not amused.
-
-</s>
-
-</s>
-
-</body>
-

perl/modules/XML-Grammar-Fiction/t/data/proto-text-invalid/no-right-angle.txt

-<start id="top" foo="bar"
-
-</start>

perl/modules/XML-Grammar-Fiction/t/data/proto-text-invalid/not-start-with-tag.txt

-[FOOADASMCa#$#$#F#F#]

perl/modules/XML-Grammar-Fiction/t/data/proto-text-invalid/wrong-close-tag.txt

-<start id="top">
-
-</]^%^$%$5$]>

perl/modules/XML-Grammar-Fiction/t/data/proto-text-invalid/wrong-closing-inner-tag.txt

-<body id="index">
-
-<title>David vs. Goliath - Part I</title>
-
-<s id="top">
-
-<title>The Top Section</title>
-
-David and Goliath were standing by each other.    
-
-David said unto Goliath: "I will shoot you. I <b>swear</i> I will"
-
-<s id="goliath">
-
-<title>Goliath's Response</title>
-
-Goliath was not amused.
-
-</s>
-
-</s>
-
-</body>
-

perl/modules/XML-Grammar-Fiction/t/data/proto-text/dialogue-with-several-paragraphs.txt

-<s id="top">
-
-<s id="david_and_goliath">
-
-David: I will kill you.
-
-Goliath: no way, you little idiot!
-
-David: yes way!
-
-++++: In the name of Allah, the merciful, I will show you the power of my
-sling.
-
-++: I shall sling you and bing you till infinity.
-
-Goliath: I'm still waiting.
-
-David: so you are.
-
-</s>
-
-</s>

perl/modules/XML-Grammar-Fiction/t/data/proto-text/nested-s.txt

-<s id="top">
-
-<s id="a-better-scene">
-</s>
-
-</s>

perl/modules/XML-Grammar-Fiction/t/data/proto-text/scenes-with-titles.txt

-<s id="top">
-
-<s id="a-better-scene" title="A Better Scene">
-</s>
-
-<s id="another-scene">
-</s>
-
-<s id="exodus" title="The Exodus">
-
-Moses: let us get out of here!
-
-Joshua: amen!
-
-</s>
-
-</s>

perl/modules/XML-Grammar-Fiction/t/data/proto-text/sections-a-href.txt

-<body id="index">
-
-<title>David vs. Goliath - Part I</title>
-
-<s id="top">
-
-<title>The Top Section</title>
-
-<!-- David has Green hair here -->
-
-King <a href="http://en.wikipedia.org/wiki/David">David</a> and Goliath were standing by each other.
-
-David said unto Goliath: "I will shoot you. I <b>swear</b> I will"
-
-<s id="goliath">
-
-<title>Goliath's Response</title>
-
-<!-- Goliath has to reply to that. -->
-
-Goliath was not amused.
-
-He said to David: "Oh, really. <i>David</i>, the red-headed!".
-
-</s>
-
-</s>
-
-</body>
-

perl/modules/XML-Grammar-Fiction/t/data/proto-text/sections-and-paras.txt

-<body id="index">
-
-<title>David vs. Goliath - Part I</title>
-
-<s id="top">
-
-<title>The Top Section</title>
-
-David and Goliath were standing by each other.
-
-David said unto Goliath: "I will shoot you."
-
-<s id="goliath">
-
-<title>Goliath's Response</title>
-
-Goliath was not amused.
-
-He said to David: "Oh, really".
-
-</s>
-
-</s>
-
-</body>
-

perl/modules/XML-Grammar-Fiction/t/data/proto-text/sections-p-b-i-comments.txt

-<body id="index">
-
-<title>David vs. Goliath - Part I</title>
-
-<s id="top">
-
-<title>The Top Section</title>
-
-<!-- David has Green hair here -->
-
-David and Goliath were standing by each other.    
-
-David said unto Goliath: "I will shoot you. I <b>swear</b> I will"
-
-<s id="goliath">
-
-<title>Goliath's Response</title>
-
-<!-- Goliath has to reply to that. -->
-
-Goliath was not amused.
-
-He said to David: "Oh, really. <i>David</i>, the red-headed!".
-
-</s>
-
-</s>
-
-</body>
-

perl/modules/XML-Grammar-Fiction/t/data/proto-text/sections-p-b-i.txt

-<body id="index">
-
-<title>David vs. Goliath - Part I</title>
-
-<s id="top">
-
-<title>The Top Section</title>
-
-David and Goliath were standing by each other.    
-
-David said unto Goliath: "I will shoot you. I <b>swear</b> I will"
-
-<s id="goliath">
-
-<title>Goliath's Response</title>
-
-Goliath was not amused.
-
-He said to David: "Oh, really. <i>David</i>, the red-headed!".
-
-</s>
-
-</s>
-
-</body>
-

perl/modules/XML-Grammar-Fiction/t/data/proto-text/two-nested-s.txt

-<s id="top">
-
-<s id="a-better-scene">
-</s>
-
-<s id="another-scene">
-</s>
-
-</s>

perl/modules/XML-Grammar-Fiction/t/data/proto-text/with-brs.txt

-<s id="top">
-
-<s id="david_and_goliath">
-
-[David and <a href="http://en.wikipedia.org/wiki/Goliath">Goliath</a> are 
-standing by each other.]
-
-David: I will kill you.<br />
-I will kill you.<br />
-You will not survive.<br />
-I will kill you.<br />
-I will kill you.<br />
-Ask Jive.
-
-Goliath: no way, you little idiot!
-
-David: yes way!
-
-</s>
-
-</s>

perl/modules/XML-Grammar-Fiction/t/data/proto-text/with-comments.txt

-<s id="top">
-
-<s id="david_and_goliath">
-
-David: I will kill you.
-
-<!-- David and Goliath are Biblical characters -->
-
-Goliath: no way, you little idiot!
-
-David: yes way!
-
-</s>
-
-</s>

perl/modules/XML-Grammar-Fiction/t/data/proto-text/with-description.txt

-<s id="top">
-
-<s id="david_and_goliath">
-
-[David and Goliath are standing by each other.]
-
-David: I will kill you.
-
-Goliath: no way, you little idiot!
-
-David: yes way!
-
-++++: In the name of Allah, the merciful, I will show you the power of my
-sling.
-
-++++: I shall sling you and bing you till infinity.
-
-[David takes his sling.]
-
-Goliath: I'm still waiting.
-
-David: so you are.
-
-[David puts a stone in his sling and shoots Goliath. He hits.]
-
-</s>
-
-</s>

perl/modules/XML-Grammar-Fiction/t/data/proto-text/with-dialogue.txt

-<s id="top">
-
-<s id="david_and_goliath">
-
-David: I will kill you.
-
-Goliath: no way, you little idiot!
-
-David: yes way!
-
-</s>
-
-</s>

perl/modules/XML-Grammar-Fiction/t/data/proto-text/with-entities.txt

-<s id="top">
-
-<s id="david_and_goliath">
-
-[David &amp; Goliath &lt;are&gt; standing by each other.
-
-David is a red-head. &quot;Hello&quot;
-
-Goliath is very tall.]
-
-David: I will kill you.
-
-Goliath: no way, you little idiot!
-
-David: yes way!
-
-++++: In the name of Allah, the merciful, I will show you the power of my
-sling.
-
-++++: I shall sling you and bing you till infinity.
-
-[David takes his sling.]
-
-Goliath: I'm still waiting.
-
-David: so you are.
-
-[David puts a stone in his sling and shoots Goliath. He hits.]
-
-</s>
-
-</s>

perl/modules/XML-Grammar-Fiction/t/data/proto-text/with-internal-description.txt

-<s id="top">
-
-<s id="david_and_goliath">
-
-[David and <a href="http://en.wikipedia.org/wiki/Goliath">Goliath</a> are 
-standing by each other.]
-
-David: I will kill you.
-
-Goliath: no way, you little idiot!
-
-David: yes way!
-
-++++: In the name of <a href="http://real-allah.tld/">Allah, the 
-<b>merciful</b>, real merciful</a>, I will show you the [sarcastically] power 
-of my sling. 
-
-++: I shall sling you and bing you till infinity.
-
-[David takes his sling.]
-
-Goliath: I'm still <a href="http://wait.tld/">waiting</a>.
-
-David: so you are.
-
-[David puts a stone in his sling and shoots Goliath. He hits.]
-
-David: as is written in the wikipedia [See <a href="http://wiki.tld/">the
-Wiki site</a> for more information], you are now dead, having been shot with
-my sling.
-
-</s>
-
-</s>

perl/modules/XML-Grammar-Fiction/t/data/proto-text/with-multi-line-comments.txt

-<s id="top">
-
-<s id="david_and_goliath">
-
-David: I will kill you.
-
-<!-- David and Goliath are Biblical characters 
-
-They are nifty.
--->
-
-Goliath: no way, you little idiot!
-
-David: yes way!
-
-</s>
-
-</s>

perl/modules/XML-Grammar-Fiction/t/data/proto-text/with-multi-para-desc.txt

-<s id="top">
-
-<s id="david_and_goliath">
-
-[David and Goliath are standing by each other.
-
-David is a red-head.
-
-Goliath is very tall.]
-
-David: I will kill you.
-
-Goliath: no way, you little idiot!
-
-David: yes way!
-
-++++: In the name of Allah, the merciful, I will show you the power of my
-sling.
-
-++++: I shall sling you and bing you till infinity.
-
-[David takes his sling.]
-
-Goliath: I'm still waiting.
-
-David: so you are.
-
-[David puts a stone in his sling and shoots Goliath. He hits.]
-
-</s>
-
-</s>

perl/modules/XML-Grammar-Fiction/t/data/proto-text/with-tags-inside-paragraphs.txt

-<s id="top">
-
-<s id="david_and_goliath">
-
-[David and <a href="http://en.wikipedia.org/wiki/Goliath">Goliath</a> are 
-standing by each other.]
-
-David: I will kill you.
-
-Goliath: no way, you little idiot!
-
-David: yes way!
-
-++++: In the name of <a href="http://real-allah.tld/">Allah, the 
-<b>merciful</b>, real merciful</a>, I will show you the power of my sling. 
-
-++: I shall sling you and bing you till infinity.
-
-[David takes his sling.]
-
-Goliath: I'm still <a href="http://wait.tld/">waiting</a>.
-
-David: so you are.
-
-[David puts a stone in his sling and shoots Goliath. He hits.]
-
-</s>
-
-</s>

perl/modules/XML-Grammar-Fiction/t/data/xml/dialogue-with-several-paragraphs.xml

-<?xml version='1.0' encoding='utf-8'?>
-<!DOCTYPE document SYSTEM "screenplay-xml.dtd">
-<document xmlns="http://web-cpan.berlios.de/modules/XML-Grammar-Screenplay/screenplay-xml-0.2/">
-    <head>
-    </head>
-    <body id="index">
-<scene id="top">
-    <scene id="david_and_goliath">
-        <saying character="David">
-            <para>
-                I will kill you.
-            </para>
-        </saying>
-        <saying character="Goliath">
-            <para>
-                no way, you little idiot!
-            </para>
-        </saying>
-        <saying character="David">
-            <para>
-                yes way!
-            </para>
-            <para>
-                In the name of Allah, the merciful, I will show you the power 
-                of my sling.
-            </para>
-            <para>
-                I shall sling you and bing you till infinity.
-            </para>
-        </saying>
-        <saying character="Goliath">
-            <para>
-                I'm still waiting.
-            </para>
-        </saying>
-        <saying character="David">
-            <para>
-                so you are.
-            </para>
-        </saying>
-    </scene>
-</scene>
-</body>
-</document>

perl/modules/XML-Grammar-Fiction/t/data/xml/nested-s.xml

-<?xml version='1.0' encoding='utf-8'?>
-<!DOCTYPE document SYSTEM "screenplay-xml.dtd">
-<document xmlns="http://web-cpan.berlios.de/modules/XML-Grammar-Screenplay/screenplay-xml-0.2/">
-    <head>
-    </head>
-    <body id="index">
-        <scene id="top">
-            <scene id="a-better-scene">
-            </scene>
-        </scene>
-    </body>
-</document>

perl/modules/XML-Grammar-Fiction/t/data/xml/scenes-with-titles.xml

-<?xml version='1.0' encoding='utf-8'?>
-<!DOCTYPE document SYSTEM "screenplay-xml.dtd">
-<document xmlns="http://web-cpan.berlios.de/modules/XML-Grammar-Screenplay/screenplay-xml-0.2/">
-    <head>
-    </head>
-    <body id="index">
-        <scene id="top">
-            <scene id="a-better-scene" title="A Better Scene">
-            </scene>
-            <scene id="another-scene">
-            </scene>
-            <scene id="exodus" title="The Exodus">
-                <saying character="Moses">
-                    <para>
-                        let us get out of here!
-                    </para>
-                </saying>
-                <saying character="Joshua">
-                    <para>
-                        amen!
-                    </para>
-                </saying>
-            </scene>
-        </scene>
-    </body>
-</document>

perl/modules/XML-Grammar-Fiction/t/data/xml/sections-a-href.xml

-<?xml version='1.0' encoding='utf-8'?>
-<document xmlns="http://web-cpan.berlios.de/modules/XML-Grammar-Fortune/fiction-xml-0.2/" xmlns:xlink="http://www.w3.org/1999/xlink" version="0.2">
-    <head>
-    </head>
-    <body xml:id="index">
-    <title>David vs. Goliath - Part I</title>
-    <section xml:id="top">
-    <title>The Top Section</title>
-    <!-- David has Green hair here -->
-    <p>
-    King <span xlink:href="http://en.wikipedia.org/wiki/David">David</span> and Goliath were standing by each other.    
-    </p>
-    <p>
-    David said unto Goliath: "I will shoot you. I <b>swear</b> I will"
-    </p>
-    <section xml:id="goliath">
-    <title>Goliath's Response</title>
-    <!-- Goliath has to reply to that. -->
-    <p>
-    Goliath was not amused.
-    </p>
-    <p>
-    He said to David: "Oh, really. <i>David</i>, the red-headed!".
-    </p>
-    </section>
-    </section>
-</body>
-</document>

perl/modules/XML-Grammar-Fiction/t/data/xml/sections-and-paras.xml

-<?xml version='1.0' encoding='utf-8'?>
-<document xmlns="http://web-cpan.berlios.de/modules/XML-Grammar-Fortune/fiction-xml-0.2/" version="0.2">
-    <head>
-    </head>
-    <body xml:id="index">
-    <title>David vs. Goliath - Part I</title>        
-    <section xml:id="top">
-    <title>The Top Section</title>
-    <p>
-        David and Goliath were standing by each other.    
-    </p>
-    <p>
-        David said unto Goliath: "I will shoot you."
-    </p>
-    <section xml:id="goliath">
-    <title>Goliath's Response</title>
-    <p>
-    Goliath was not amused.
-    </p>
-    <p>
-    He said to David: "Oh, really".
-    </p>
-    </section>
-    </section>
-</body>
-</document>

perl/modules/XML-Grammar-Fiction/t/data/xml/sections-p-b-i-comments.xml

-<?xml version='1.0' encoding='utf-8'?>
-<document xmlns="http://web-cpan.berlios.de/modules/XML-Grammar-Fortune/fiction-xml-0.2/" version="0.2">
-    <head>
-    </head>
-    <body xml:id="index">
-    <title>David vs. Goliath - Part I</title>
-    <section xml:id="top">
-    <title>The Top Section</title>
-    <!-- David has Green hair here -->
-    <p>
-    David and Goliath were standing by each other.    
-    </p>
-    <p>
-    David said unto Goliath: "I will shoot you. I <b>swear</b> I will"
-    </p>
-    <section xml:id="goliath">
-    <title>Goliath's Response</title>
-    <!-- Goliath has to reply to that. -->
-    <p>
-    Goliath was not amused.
-    </p>
-    <p>
-    He said to David: "Oh, really. <i>David</i>, the red-headed!".
-    </p>
-    </section>
-    </section>
-</body>
-</document>

perl/modules/XML-Grammar-Fiction/t/data/xml/sections-p-b-i.xml

-<?xml version='1.0' encoding='utf-8'?>
-<document xmlns="http://web-cpan.berlios.de/modules/XML-Grammar-Fortune/fiction-xml-0.2/" version="0.2">
-    <head>
-    </head>
-    <body xml:id="index">
-    <title>David vs. Goliath - Part I</title>
-    <section xml:id="top">
-    <title>The Top Section</title>
-    <p>
-    David and Goliath were standing by each other.    
-    </p>
-    <p>
-    David said unto Goliath: "I will shoot you. I <b>swear</b> I will"
-    </p>
-    <section xml:id="goliath">
-    <title>Goliath's Response</title>
-    <p>
-    Goliath was not amused.
-    </p>
-    <p>
-    He said to David: "Oh, really. <i>David</i>, the red-headed!".
-    </p>
-    </section>
-    </section>
-</body>
-</document>

perl/modules/XML-Grammar-Fiction/t/data/xml/two-nested-s.xml

-<?xml version='1.0' encoding='utf-8'?>
-<!DOCTYPE document SYSTEM "screenplay-xml.dtd">
-<document xmlns="http://web-cpan.berlios.de/modules/XML-Grammar-Screenplay/screenplay-xml-0.2/">
-    <head>
-    </head>
-    <body id="index">
-        <scene id="top">
-            <scene id="a-better-scene">
-            </scene>
-            <scene id="another-scene">
-            </scene>
-        </scene>
-    </body>
-</document>

perl/modules/XML-Grammar-Fiction/t/data/xml/with-brs.xml

-<?xml version='1.0' encoding='utf-8'?>
-<!DOCTYPE document SYSTEM "screenplay-xml.dtd">
-<document xmlns="http://web-cpan.berlios.de/modules/XML-Grammar-Screenplay/screenplay-xml-0.2/">
-    <head>
-    </head>
-    <body id="index">
-<scene id="top">
-    <scene id="david_and_goliath">
-        <description>
-            <para>
-                David and 
-                <ulink url="http://en.wikipedia.org/wiki/Goliath">Goliath</ulink> 
-                are standing by each other.
-            </para>
-        </description>
-        <saying character="David">
-            <para>
-                I will kill you.<br />
-                I will kill you.<br />
-                You will not survive.<br />
-                I will kill you.<br />
-                I will kill you.<br />
-                Ask Jive.
-            </para>
-        </saying>
-        <saying character="Goliath">
-            <para>
-                no way, you little idiot!
-            </para>
-        </saying>
-        <saying character="David">
-            <para>
-                yes way!
-            </para>
-        </saying>
-</scene>
-</scene>
-</body>
-</document>

perl/modules/XML-Grammar-Fiction/t/data/xml/with-comments.xml

-<?xml version='1.0' encoding='utf-8'?>
-<!DOCTYPE document SYSTEM "screenplay-xml.dtd">
-<document xmlns="http://web-cpan.berlios.de/modules/XML-Grammar-Screenplay/screenplay-xml-0.2/">
-    <head>
-    </head>
-    <body id="index">
-<scene id="top">
-    <scene id="david_and_goliath">
-        <saying character="David">
-            <para>
-                I will kill you.
-            </para>
-        </saying>
-        <!-- David and Goliath are Biblical characters -->
-        <saying character="Goliath">
-            <para>
-                no way, you little idiot!
-            </para>
-        </saying>
-        <saying character="David">
-            <para>
-                yes way!
-            </para>
-        </saying>
-</scene>
-
-</scene>
-</body>
-</document>

perl/modules/XML-Grammar-Fiction/t/data/xml/with-description.xml

-<?xml version='1.0' encoding='utf-8'?>
-<!DOCTYPE document SYSTEM "screenplay-xml.dtd">
-<document xmlns="http://web-cpan.berlios.de/modules/XML-Grammar-Screenplay/screenplay-xml-0.2/">
-    <head>
-    </head>
-    <body id="index">
-<scene id="top">
-    <scene id="david_and_goliath">
-        <description>
-            <para>
-            David and Goliath are standing by each other.
-            </para>
-        </description>
-        <saying character="David">
-            <para>
-                I will kill you.
-            </para>
-        </saying>
-        <saying character="Goliath">
-            <para>
-                no way, you little idiot!
-            </para>
-        </saying>
-        <saying character="David">
-            <para>
-                yes way!
-            </para>
-            <para>
-                In the name of Allah, the merciful, I will show you the power 
-                of my sling.
-            </para>
-            <para>
-                I shall sling you and bing you till infinity.
-            </para>
-        </saying>
-        <description>
-            <para>
-                David takes his sling.
-            </para>
-        </description>
-    <saying character="Goliath">
-        <para>
-            I'm still waiting.
-        </para>
-    </saying>
-    <saying character="David">
-        <para>
-            so you are.
-        </para>
-    </saying>
-    <description>
-        <para>
-            David puts a stone in his sling and shoots Goliath. He hits.
-        </para>
-    </description>
-</scene>
-</scene>
-</body>
-</document>

perl/modules/XML-Grammar-Fiction/t/data/xml/with-dialogue.xml

-<?xml version='1.0' encoding='utf-8'?>
-<!DOCTYPE document SYSTEM "screenplay-xml.dtd">
-<document xmlns="http://web-cpan.berlios.de/modules/XML-Grammar-Screenplay/screenplay-xml-0.2/">
-    <head>
-    </head>
-    <body id="index">
-<scene id="top">
-    <scene id="david_and_goliath">
-        <saying character="David">
-            <para>
-                I will kill you.
-            </para>
-        </saying>
-        <saying character="Goliath">
-            <para>
-                no way, you little idiot!
-            </para>
-        </saying>
-        <saying character="David">
-            <para>
-                yes way!
-            </para>
-        </saying>
-</scene>
-
-</scene>
-</body>
-</document>

perl/modules/XML-Grammar-Fiction/t/data/xml/with-entities.xml

-<?xml version='1.0' encoding='utf-8'?>
-<!DOCTYPE document SYSTEM "screenplay-xml.dtd">
-<document xmlns="http://web-cpan.berlios.de/modules/XML-Grammar-Screenplay/screenplay-xml-0.2/">
-    <head>
-    </head>
-    <body id="index">
-<scene id="top">
-    <scene id="david_and_goliath">
-        <description>
-            <para>
-            David &amp; Goliath &lt;are&gt; standing by each other.
-        </para>
-        <para>
-            David is a red-head. "Hello"
-        </para>
-        <para>
-            Goliath is very tall.
-        </para>
-        </description>
-        <saying character="David">
-            <para>
-                I will kill you.
-            </para>
-        </saying>
-        <saying character="Goliath">
-            <para>
-                no way, you little idiot!
-            </para>
-        </saying>
-        <saying character="David">
-            <para>
-                yes way!
-            </para>
-            <para>
-                In the name of Allah, the merciful, I will show you the power 
-                of my sling.
-            </para>
-            <para>
-                I shall sling you and bing you till infinity.
-            </para>
-        </saying>
-        <description>
-            <para>
-                David takes his sling.
-            </para>
-        </description>
-    <saying character="Goliath">
-        <para>
-            I'm still waiting.
-        </para>
-    </saying>
-    <saying character="David">
-        <para>
-            so you are.
-        </para>
-    </saying>
-    <description>
-        <para>
-            David puts a stone in his sling and shoots Goliath. He hits.
-        </para>
-    </description>
-</scene>
-</scene>
-</body>
-</document>

perl/modules/XML-Grammar-Fiction/t/data/xml/with-multi-line-comments.xml

-<?xml version='1.0' encoding='utf-8'?>
-<!DOCTYPE document SYSTEM "screenplay-xml.dtd">
-<document xmlns="http://web-cpan.berlios.de/modules/XML-Grammar-Screenplay/screenplay-xml-0.2/">
-    <head>
-    </head>
-    <body id="index">
-<scene id="top">
-    <scene id="david_and_goliath">
-        <saying character="David">
-            <para>
-                I will kill you.
-            </para>
-        </saying>
-        <!-- David and Goliath are Biblical characters 
-
-        They are nifty.
-        -->
-        <saying character="Goliath">
-            <para>
-                no way, you little idiot!
-            </para>
-        </saying>
-        <saying character="David">
-            <para>
-                yes way!
-            </para>
-        </saying>
-</scene>
-
-</scene>
-</body>
-</document>

perl/modules/XML-Grammar-Fiction/t/data/xml/with-multi-para-desc.xml

-<?xml version='1.0' encoding='utf-8'?>
-<!DOCTYPE document SYSTEM "screenplay-xml.dtd">
-<document xmlns="http://web-cpan.berlios.de/modules/XML-Grammar-Screenplay/screenplay-xml-0.2/">
-    <head>
-    </head>
-    <body id="index">
-<scene id="top">
-    <scene id="david_and_goliath">
-        <description>
-            <para>
-            David and Goliath are standing by each other.
-        </para>
-        <para>
-            David is a red-head.
-        </para>
-        <para>
-            Goliath is very tall.
-        </para>
-        </description>
-        <saying character="David">
-            <para>
-                I will kill you.
-            </para>
-        </saying>
-        <saying character="Goliath">
-            <para>
-                no way, you little idiot!
-            </para>
-        </saying>
-        <saying character="David">
-            <para>
-                yes way!
-            </para>
-            <para>
-                In the name of Allah, the merciful, I will show you the power 
-                of my sling.
-            </para>
-            <para>
-                I shall sling you and bing you till infinity.
-            </para>
-        </saying>
-        <description>
-            <para>
-                David takes his sling.
-            </para>
-        </description>
-    <saying character="Goliath">
-        <para>
-            I'm still waiting.
-        </para>
-    </saying>
-    <saying character="David">
-        <para>
-            so you are.
-        </para>
-    </saying>
-    <description>
-        <para>
-            David puts a stone in his sling and shoots Goliath. He hits.
-        </para>
-    </description>
-</scene>
-</scene>
-</body>
-</document>

perl/modules/XML-Grammar-Fiction/t/data/xml/with-tags-inside-paragraphs.xml

-<?xml version='1.0' encoding='utf-8'?>
-<!DOCTYPE document SYSTEM "screenplay-xml.dtd">
-<document xmlns="http://web-cpan.berlios.de/modules/XML-Grammar-Screenplay/screenplay-xml-0.2/">
-    <head>
-    </head>
-    <body id="index">
-<scene id="top">
-    <scene id="david_and_goliath">
-        <description>
-            <para>
-                David and 
-                <ulink url="http://en.wikipedia.org/wiki/Goliath">Goliath</ulink> 
-                are standing by each other.
-            </para>
-        </description>
-        <saying character="David">
-            <para>
-                I will kill you.
-            </para>
-        </saying>
-        <saying character="Goliath">
-            <para>
-                no way, you little idiot!
-            </para>
-        </saying>
-        <saying character="David">
-            <para>
-                yes way!
-            </para>
-            <para>
-                In the name of <ulink url="http://real-allah.tld/">Allah, the <bold>merciful</bold>, real merciful</ulink>, I will show you the power 
-                of my sling.
-            </para>
-            <para>
-                I shall sling you and bing you till infinity.
-            </para>
-        </saying>
-        <description>
-            <para>
-                David takes his sling.
-            </para>
-        </description>
-    <saying character="Goliath">
-        <para>
-            I'm still <ulink url="http://wait.tld/">waiting</ulink>.
-        </para>
-    </saying>
-    <saying character="David">
-        <para>
-            so you are.
-        </para>
-    </saying>
-    <description>
-        <para>
-            David puts a stone in his sling and shoots Goliath. He hits.
-        </para>
-    </description>
-</scene>
-</scene>
-</body>
-</document>

perl/modules/XML-Grammar-Fiction/t/fiction/data/docbook/sections-a-href.docbook.xml

+<?xml version="1.0" encoding="UTF-8"?>
+<article xmlns="http://docbook.org/ns/docbook" xmlns:fic="http://web-cpan.berlios.de/modules/XML-Grammar-Fortune/fiction-xml-0.2/" xmlns:xlink="http://www.w3.org/1999/xlink" xml:id="index" xml:lang="">
+  <info>
+    <title>David vs. Goliath - Part I</title>
+  </info>
+  <section xml:id="top">
+    <info>
+      <title>The Top Section</title>
+    </info>
+    <para>
+        King <link xlink:href="http://en.wikipedia.org/wiki/David">David</link> and Goliath were standing by each other.    
+    </para>
+    <para>
+    David said unto Goliath: "I will shoot you. I <emphasis role="bold">swear</emphasis> I will"
+    </para>
+    <section xml:id="goliath">
+      <info>
+        <title>Goliath's Response</title>
+      </info>
+      <para>
+    Goliath was not amused.
+    </para>
+      <para>
+    He said to David: "Oh, really. <emphasis>David</emphasis>, the red-headed!".
+    </para>
+    </section>
+  </section>
+</article>

perl/modules/XML-Grammar-Fiction/t/fiction/data/docbook/sections-and-paras.docbook.xml

+<?xml version="1.0" encoding="UTF-8"?>
+<article xmlns="http://docbook.org/ns/docbook" xmlns:fic="http://web-cpan.berlios.de/modules/XML-Grammar-Fortune/fiction-xml-0.2/" xmlns:xlink="http://www.w3.org/1999/xlink" xml:id="index" xml:lang="">
+  <info>
+    <title>David vs. Goliath - Part I</title>
+  </info>
+  <section xml:id="top">
+    <info>
+      <title>The Top Section</title>
+    </info>
+    <para>
+        David and Goliath were standing by each other.    
+    </para>
+    <para>
+        David said unto Goliath: "I will shoot you."
+    </para>
+    <section xml:id="goliath">
+      <info>
+        <title>Goliath's Response</title>
+      </info>
+      <para>
+    Goliath was not amused.
+    </para>
+      <para>
+    He said to David: "Oh, really".
+    </para>
+    </section>
+  </section>
+</article>

perl/modules/XML-Grammar-Fiction/t/fiction/data/docbook/sections-p-b-i-comments.docbook.xml

+<?xml version="1.0" encoding="UTF-8"?>
+<article xmlns="http://docbook.org/ns/docbook" xmlns:fic="http://web-cpan.berlios.de/modules/XML-Grammar-Fortune/fiction-xml-0.2/" xmlns:xlink="http://www.w3.org/1999/xlink" xml:id="index" xml:lang="">
+  <info>
+    <title>David vs. Goliath - Part I</title>
+  </info>
+  <section xml:id="top">
+    <info>
+      <title>The Top Section</title>
+    </info>
+    <para>
+    David and Goliath were standing by each other.    
+    </para>
+    <para>
+    David said unto Goliath: "I will shoot you. I <emphasis role="bold">swear</emphasis> I will"
+    </para>
+    <section xml:id="goliath">
+      <info>
+        <title>Goliath's Response</title>
+      </info>
+      <para>
+    Goliath was not amused.
+    </para>
+      <para>
+    He said to David: "Oh, really. <emphasis>David</emphasis>, the red-headed!".
+    </para>
+    </section>
+  </section>
+</article>

perl/modules/XML-Grammar-Fiction/t/fiction/data/docbook/with-internal-description.docbook.xml

+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE article PUBLIC "-//OASIS//DTD DocBook XML V4.3//EN" "/usr/share/sgml/docbook/xml-dtd-4.3/docbookx.dtd">
+<article id="index">
+  <section id="top">
+    <title>top</title>
+    <section id="david_and_goliath">
+      <title>david_and_goliath</title>
+      <section role="description" id="id2244766"><title/>
+            <para>
+            [
+        
+                David and 
+                <ulink url="http://en.wikipedia.org/wiki/Goliath"/> 
+                are standing by each other.
+            
+            ]
+        </para>
+        </section>
+      <section role="saying" id="id2244967"><title/>
+            <para><emphasis role="bold">David: </emphasis>
+                I will kill you.
+            </para>
+        </section>
+      <section role="saying" id="id2244977"><title/>
+            <para><emphasis role="bold">Goliath: </emphasis>
+                no way, you little idiot!
+            </para>
+        </section>
+      <section role="saying" id="id2244986"><title/>
+            <para><emphasis role="bold">David: </emphasis>
+                yes way!
+            </para>
+            <para><emphasis role="bold">David: </emphasis>
+                In the name of <ulink url="http://real-allah.tld"/>, I will show you the 
+                <phrase>[sarcastically]</phrase> power 
+                of my sling.
+            </para>
+            <para><emphasis role="bold">David: </emphasis>
+                I shall sling you and bing you till infinity.
+            </para>
+        </section>
+      <section role="description" id="id2242910"><title/>
+            <para>
+            [
+        
+                David takes his sling.
+            
+            ]
+        </para>
+        </section>
+      <section role="saying" id="id2242918"><title/>
+        <para><emphasis role="bold">Goliath: </emphasis>
+            I'm still <ulink url="http://wait.tld/"/>.
+        </para>
+    </section>
+      <section role="saying" id="id2244786"><title/>
+        <para><emphasis role="bold">David: </emphasis>
+            so you are.
+        </para>
+    </section>
+      <section role="description" id="id2244795"><title/>
+        <para>
+            [
+        
+            David puts a stone in his sling and shoots Goliath. He hits.
+        
+            ]
+        </para>
+    </section>
+      <section role="saying" id="id2244802"><title/>
+        <para><emphasis role="bold">David: </emphasis>
+            as is written in the wikipedia <phrase>[See <ulink url="http://wiki.tld/"/>
+                for more information]</phrase>, you are now dead,
+            having been shot with my sling.
+        </para>
+    </section>
+    </section>
+  </section>
+</article>

perl/modules/XML-Grammar-Fiction/t/fiction/data/proto-text-invalid/inner-desc-insid