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

[matts]

matts       2003/09/08 00:08:04

  Modified:    t/encoding 01_utf8.t
  Log:
  Don't carp
  
  Revision  Changes    Path
  1.2       +2 -2      xml-axkit/t/encoding/01_utf8.t
  
  Index: 01_utf8.t
  ===================================================================
  RCS file: /home/cvs/xml-axkit/t/encoding/01_utf8.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- 01_utf8.t 7 Sep 2003 17:11:01 -0000       1.1
  +++ 01_utf8.t 8 Sep 2003 07:08:04 -0000       1.2
  @@ -10,8 +10,8 @@
   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()));
  +    # warn("# GOT CONTENT:" . $resp->content() . "\n");
  +    my $bytes = unpack("U0A*", $resp->content());
       return 0 unless $bytes =~ /\xC2\xA9/;
       return 1;
   }