View | Details | Raw Unified | Return to bug 11540
Collapse All | Expand All

(-)a/t/Charset.t (-2 / +6 lines)
Lines 3-9 Link Here
3 
use strict;
 3 
use strict;
4 
use warnings;
 4 
use warnings;
5 

          5
          

        

          
            

              6
              
use Test::More tests => 6;


              6
              
use Test::More tests => 7;

            

        

          7
          
BEGIN {

          7
          
BEGIN {

        

        

          8
          
    use_ok('C4::Charset');

          8
          
    use_ok('C4::Charset');

        

        

          9
          
}

          9
          
}

        

  

    
      
            Lines 18-20
          ok(!utf8::is_utf8($octets), "verify that IsStringUTF8ish does not magically turn
      
      
        Link Here
      
    
  

        

          18
          

          18
          

        

        

          19
          
$octets = "a\xc2" . "c";

          19
          
$octets = "a\xc2" . "c";

        

        

          20
          
ok(!IsStringUTF8ish($octets), "verify octets are not valid UTF-8");

          20
          
ok(!IsStringUTF8ish($octets), "verify octets are not valid UTF-8");

        

          
            

              21
              
- 


              21
              

            

            

              
              

              22
              
ok(!SetUTF8Flag(), 'Testing SetUTF8Flag' );

            

            


              23
              

            

            


              24
              

            

            


              25
              

            






  

  Return to bug 11540