texinfo/Pod-Simple-Texinfo/t Pod-Simple-Texinfo.t

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        12/04/16 22:11:28

Modified files:
        Pod-Simple-Texinfo/t: Pod-Simple-Texinfo.t 

Log message:
        Add a test of protected Texinfo characters.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/Pod-Simple-Texinfo/t/Pod-Simple-Texinfo.t?cvsroot=texinfo&r1=1.13&r2=1.14

Patches:
Index: Pod-Simple-Texinfo.t
===================================================================
RCS file: /sources/texinfo/texinfo/Pod-Simple-Texinfo/t/Pod-Simple-Texinfo.t,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -b -r1.13 -r1.14
--- Pod-Simple-Texinfo.t        16 Apr 2012 22:08:15 -0000      1.13
+++ Pod-Simple-Texinfo.t        16 Apr 2012 22:11:27 -0000      1.14
@@ -6,7 +6,7 @@
 # change 'tests => 1' to 'tests => last_test_to_print';
 
 use Test::More;
-BEGIN { plan tests => 16 };
+BEGIN { plan tests => 17 };
 use Pod::Simple::Texinfo;
 ok(1); # If we made it this far, we're ok.
 
@@ -59,6 +59,23 @@
 
 ', 'index in head node', 1, 2);
 
+run_test ('=head1 NAME
+
address@hidden
+
+=head1 @{}
+',
+'@node T@@c NAME
address@hidden NAME
+
+T@@c
+
address@hidden T@@c @@@address@hidden
address@hidden @@@address@hidden
+
+', 'protected characters', 1, 2);
+
+
 run_test ('=head1 T
 
 Para X<bb>