Commits

Anonymous committed 2661e1f

Added more.

Comments (0)

Files changed (3)

XML-Grammar-Fortune/module/MANIFEST

 t/00-load.t
 t/data/xml/irc-conversation-1.xml
 t/data/xml/irc-conversation-2-with-slash-me.xml
+t/data/xml/irc-conversation-3-with-join-unjoin.xml
 t/pod-coverage.t
 t/pod.t
 t/xml-validate.t

XML-Grammar-Fortune/module/t/data/xml/irc-conversation-3-with-join-unjoin.xml

+<?xml version="1.0" encoding="utf-8"?>
+<collection>
+    <head />
+    <list>
+        <fortune id="I-need-to-get-a-life">
+            <irc>
+                <body>
+                    <saying who="rindolf">sussman: for the record, I think the 
+                        build system is the ultimate proof that python code 
+                        can be as bad as Perl one.</saying>
+                    <me_is who="clkao">giggles</me_is>
+                    <saying who="jackr">hehe</saying>
+                    <joins who="mofino">has joined #perlcafe</joins>
+                    <saying who="mofino">I'm not an asshole. I just play one
+                    on T.V.</saying>
+                    <leaves who="mofino">has left #perlcafe</leaves>
+                </body>
+                <info>
+                    <channel>#perlcafe</channel>
+                    <network>Freenode</network>
+                    <tagline>Discussing the Subversion Build System</tagline>
+                </info>
+            </irc>
+        </fortune>
+    </list>
+</collection>

XML-Grammar-Fortune/module/t/xml-validate.t

 use strict;
 use warnings;
 
-use Test::More tests => 2;                      # last test to print
+use Test::More tests => 3;                      # last test to print
 
 use XML::LibXML;
 
 my @inputs = (qw(
         irc-conversation-1
         irc-conversation-2-with-slash-me
+        irc-conversation-3-with-join-unjoin
     ));
 
 my $rngschema = XML::LibXML::RelaxNG->new(
     );
 
 
-# TEST:$num_tests=2
+# TEST:$num_tests=3
 
 foreach my $fn_base (@inputs)
 {