cvs commit: xml-axkit/t/htdocs/encoding 01.xml

7 Sep 2003 17:11:08 -0000 

matts       2003/09/07 10:11:01

  Modified:    t/conf   extra.last.conf.in
  Added:       t/encoding 01_utf8.t
               t/htdocs/encoding 01.xml
  Log:
  Encoding tests
  
  Revision  Changes    Path
  1.6       +7 -0      xml-axkit/t/conf/extra.last.conf.in
  
  Index: extra.last.conf.in
  ===================================================================
  RCS file: /home/cvs/xml-axkit/t/conf/extra.last.conf.in,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- extra.last.conf.in        23 Aug 2003 21:48:57 -0000      1.5
  +++ extra.last.conf.in        7 Sep 2003 17:11:01 -0000       1.6
  @@ -116,3 +116,10 @@
           AxAddURIProcessor text/xsl 
/style/component/configreader/get_matching_processors_2.xsl 
"/component/configreader/get_matching_processors_2.xml"
           </AxStyleName>
   </AxMediaType>
  +
  +<Location "/encoding/">
  +     SetHandler axkit
  +     AxResetProcessors
  +     AxAddProcessor text/xsl /style/xslt-basic/identity.xsl
  +</Location>
  +
  
  
  
  1.1                  xml-axkit/t/encoding/01_utf8.t
  
  Index: 01_utf8.t
  ===================================================================
  #!perl
  use Apache::Test;
  use Apache::TestUtil;
  use Apache::TestRequest qw( GET ) ;
  
  BEGIN { $INC{'bytes.pm'}++ if $] < 5.006 }
  
  plan tests => 20, have_module qw(LWP);
  
  sub test_basic {
      use bytes;
      my $resp = GET '/encoding/01.xml' ;
      warn("# GOT CONTENT:" . $resp->content() . "\n");
      my $bytes = pack("C*", unpack("C0U*", $resp->content()));
      return 0 unless $bytes =~ /\xC2\xA9/;
      return 1;
  }
  
  for (1..20) {
      ok( test_basic(), 1, "Testing output created right encoding." );
  }
  
  
  
  
  1.1                  xml-axkit/t/htdocs/encoding/01.xml
  
  Index: 01.xml
  ===================================================================
  <?xml version="1.0"?>
  <html><body>&#x00a9;</body></html>

Reply via email to