[MKDoc-commit] [MKDoc-XML] a couple more supplementary tests

[bruno at mkdoc.demon.co.uk]

Log Message:
-----------
[MKDoc-XML] a couple more supplementary tests

Modified Files:
--------------
    MKDoc-XML/t:
        304_MKDoc_XML_Tagger_Numbers.t

-------------- next part --------------
Index: 304_MKDoc_XML_Tagger_Numbers.t
===================================================================
RCS file: /var/spool/cvs/MKDoc-XML/t/304_MKDoc_XML_Tagger_Numbers.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -Lt/304_MKDoc_XML_Tagger_Numbers.t -Lt/304_MKDoc_XML_Tagger_Numbers.t -u -r1.1 -r1.2
--- t/304_MKDoc_XML_Tagger_Numbers.t
+++ t/304_MKDoc_XML_Tagger_Numbers.t
@@ -9,6 +9,15 @@
 {
     my $text = MKDoc::XML::Tagger->process_data (
         "<p>stuff 1</p>",
+        { _expr => '&(1)', _tag => 'a', href => '/' }
+    );
+
+    like ($text, qr|<p>stuff 1</p>|);
+}
+
+{
+    my $text = MKDoc::XML::Tagger->process_data (
+        "<p>stuff 1</p>",
         { _expr => '1', _tag => 'a', href => '/' }
     );
 
@@ -19,6 +28,15 @@
     like ($text, qr|<p>stuff <a href=\"/\">1</a></p>|);
 }
 
+{
+    my $text = MKDoc::XML::Tagger->process_data (
+        "<p>stuff &amp(1)</p>",
+        { _expr => '&(1)', _tag => 'a', href => '/' }
+    );
+
+    like ($text, qr|<p>stuff <a href=\"/\">&amp\(1\)</a></p>|);
+}
+
 1;
 
 __END__