[MKDoc-commit] [Petal] check that   becomes chr(160) not chr(194) (William McKee)

[bruno at mkdoc.demon.co.uk]

Log Message:
-----------
[Petal] check that   becomes chr(160) not chr(194) (William McKee)

Modified Files:
--------------
    Petal/t:
        041_Entities.t
    Petal/t/data:
        entities.html

-------------- next part --------------
Index: 041_Entities.t
===================================================================
RCS file: /var/spool/cvs/Petal/t/041_Entities.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -Lt/041_Entities.t -Lt/041_Entities.t -u -r1.6 -r1.7
--- t/041_Entities.t
+++ t/041_Entities.t
@@ -21,7 +21,11 @@
     my $string = Petal->new ( 'entities.html' )->process();
     my $copy   = chr (169);
     my $reg    = chr (174);
+    my $nbsp   = chr (160);
+    my $acirc  = chr (194);
     like ($string, qr/$copy/ => 'Copyright');
     like ($string, qr/$reg/ => 'Registered');
+    like ($string, qr/$nbsp/ => 'Non-break space');
+    unlike ($string, qr/$acirc/ => 'A circumflex not present');
 }
 
Index: entities.html
===================================================================
RCS file: /var/spool/cvs/Petal/t/data/entities.html,v
retrieving revision 1.1
retrieving revision 1.2
diff -Lt/data/entities.html -Lt/data/entities.html -u -r1.1 -r1.2
--- t/data/entities.html
+++ t/data/entities.html
@@ -2,4 +2,5 @@
   <!-- this simple test checks for HTML entities expansion -->
   Copyright: &copy;
   Registered: &reg;
+  Non-break space: &nbsp;
 </body>