| 
      
            Lines 20-26
          
      
      
        Link Here
      
     | 
  
        
          | 20 | 
          use Modern::Perl;  | 
          20 | 
          use Modern::Perl;  | 
        
        
          | 21 | 
           | 
          21 | 
           | 
        
        
          | 22 | 
          use File::Temp qw/tempfile/;  | 
          22 | 
          use File::Temp qw/tempfile/;  | 
        
          
            
              | 23 | 
              use Test::More tests => 32;  | 
              23 | 
              use Test::More tests => 33;  | 
            
        
          | 24 | 
          use Test::Warn;  | 
          24 | 
          use Test::Warn;  | 
        
        
          | 25 | 
           | 
          25 | 
           | 
        
        
          | 26 | 
          use Koha::XSLT::Base;  | 
          26 | 
          use Koha::XSLT::Base;  | 
        
  
    | 
      
            Lines 70-76
          $output = $engine->transform({ xml => undef, code => $xsl_1 });
      
      
        Link Here
      
     | 
  
        
          | 70 | 
          is( $engine->err, Koha::XSLT::Base::XSLTH_ERR_7, 'Engine returns error on undefined text' );  | 
          70 | 
          is( $engine->err, Koha::XSLT::Base::XSLTH_ERR_7, 'Engine returns error on undefined text' );  | 
        
        
          | 71 | 
           | 
          71 | 
           | 
        
        
          | 72 | 
          # Empty string tests  | 
          72 | 
          # Empty string tests  | 
        
          
            
              | 73 | 
              $output = $engine->transform({ xml => '', code => $xsl_1 }); | 
              73 | 
              warning_like {$output = $engine->transform({ xml => '', code => $xsl_1 }) } | 
            
            
               | 
               | 
              74 | 
                  qr/XSLT::Base: Empty String/,  | 
            
            
              | 75 | 
                  'Empty string warning detected';  | 
            
        
          | 74 | 
          is( $engine->err, Koha::XSLT::Base::XSLTH_ERR_5, 'Engine returns error on empty string' );  | 
          76 | 
          is( $engine->err, Koha::XSLT::Base::XSLTH_ERR_5, 'Engine returns error on empty string' );  | 
        
        
          | 75 | 
           | 
          77 | 
           | 
        
        
          | 76 | 
          # Non-XML tests  | 
          78 | 
          # Non-XML tests  | 
        
            
              | 77 | 
              -   | 
               | 
               |