| 
      
            Lines 24-39
          use File::Slurp;
      
      
        Link Here
      
     | 
  
        
          | 24 | 
          use Test::More tests => 35;  | 
          24 | 
          use Test::More tests => 35;  | 
        
        
          | 25 | 
          use Test::Warn;  | 
          25 | 
          use Test::Warn;  | 
        
        
          | 26 | 
           | 
          26 | 
           | 
        
          
            
              | 27 | 
              use Koha::XSLT_Handler;  | 
              27 | 
              use Koha::XSLT::Base;  | 
            
        
          | 28 | 
           | 
          28 | 
           | 
        
          
            
              | 29 | 
              my $engine=Koha::XSLT_Handler->new;  | 
              29 | 
              my $engine=Koha::XSLT::Base->new;  | 
            
            
              | 30 | 
              is( ref $engine, 'Koha::XSLT_Handler', 'Testing creation of handler object' );  | 
              30 | 
              is( ref $engine, 'Koha::XSLT::Base', 'Testing creation of handler object' );  | 
            
        
          | 31 | 
           | 
          31 | 
           | 
        
        
          | 32 | 
          $engine->transform(''); | 
          32 | 
          $engine->transform(''); | 
        
          
            
              | 33 | 
              is( $engine->err, Koha::XSLT_Handler::XSLTH_ERR_1, 'Engine returns error on no file' );  | 
              33 | 
              is( $engine->err, Koha::XSLT::Base::XSLTH_ERR_1, 'Engine returns error on no file' );  | 
            
        
          | 34 | 
           | 
          34 | 
           | 
        
        
          | 35 | 
          $engine->transform( '', 'thisfileshouldnotexist.%$#@' );  | 
          35 | 
          $engine->transform( '', 'thisfileshouldnotexist.%$#@' );  | 
        
          
            
              | 36 | 
              is( $engine->err, Koha::XSLT_Handler::XSLTH_ERR_2, 'Engine returns error on bad file' );  | 
              36 | 
              is( $engine->err, Koha::XSLT::Base::XSLTH_ERR_2, 'Engine returns error on bad file' );  | 
            
        
          | 37 | 
          is( $engine->refresh( 'asdjhaskjh'), 0, 'Test on invalid refresh' );  | 
          37 | 
          is( $engine->refresh( 'asdjhaskjh'), 0, 'Test on invalid refresh' );  | 
        
        
          | 38 | 
           | 
          38 | 
           | 
        
        
          | 39 | 
          #check first test xsl  | 
          39 | 
          #check first test xsl  | 
        
  
    | 
      
            Lines 48-75
          my $output;
      
      
        Link Here
      
     | 
  
        
          | 48 | 
           | 
          48 | 
           | 
        
        
          | 49 | 
          # Undefined text tests  | 
          49 | 
          # Undefined text tests  | 
        
        
          | 50 | 
          $output = $engine->transform( undef, $xsltfile_1 );  | 
          50 | 
          $output = $engine->transform( undef, $xsltfile_1 );  | 
        
          
            
              | 51 | 
              is( $engine->err, Koha::XSLT_Handler::XSLTH_ERR_7, 'Engine returns error on undefined text' );  | 
              51 | 
              is( $engine->err, Koha::XSLT::Base::XSLTH_ERR_7, 'Engine returns error on undefined text' );  | 
            
        
          | 52 | 
           | 
          52 | 
           | 
        
        
          | 53 | 
          # Empty string tests  | 
          53 | 
          # Empty string tests  | 
        
        
          | 54 | 
          $output = $engine->transform( '', $xsltfile_1 );  | 
          54 | 
          $output = $engine->transform( '', $xsltfile_1 );  | 
        
          
            
              | 55 | 
              is( $engine->err, Koha::XSLT_Handler::XSLTH_ERR_5, 'Engine returns error on empty string' );  | 
              55 | 
              is( $engine->err, Koha::XSLT::Base::XSLTH_ERR_5, 'Engine returns error on empty string' );  | 
            
        
          | 56 | 
           | 
          56 | 
           | 
        
        
          | 57 | 
          # Non-XML tests  | 
          57 | 
          # Non-XML tests  | 
        
        
          | 58 | 
          $engine->print_warns(1);  | 
          58 | 
          $engine->print_warns(1);  | 
        
        
          | 59 | 
          warning_like { $output = $engine->transform( 'abcdef', $xsltfile_1 ) } | 
          59 | 
          warning_like { $output = $engine->transform( 'abcdef', $xsltfile_1 ) } | 
        
        
          | 60 | 
              qr{parser error : Start tag expected, '<' not found}, | 
          60 | 
              qr{parser error : Start tag expected, '<' not found}, | 
        
        
          | 61 | 
              "Non-XML warning correctly displayed";  | 
          61 | 
              "Non-XML warning correctly displayed";  | 
        
          
            
              | 62 | 
              is( $engine->err, Koha::XSLT_Handler::XSLTH_ERR_5, 'Engine returns error on non-xml' );  | 
              62 | 
              is( $engine->err, Koha::XSLT::Base::XSLTH_ERR_5, 'Engine returns error on non-xml' );  | 
            
        
          | 63 | 
           | 
          63 | 
           | 
        
        
          | 64 | 
          # Malformed XML tests  | 
          64 | 
          # Malformed XML tests  | 
        
        
          | 65 | 
          warning_like { $output = $engine->transform( '<a></b>', $xsltfile_1 ) } | 
          65 | 
          warning_like { $output = $engine->transform( '<a></b>', $xsltfile_1 ) } | 
        
        
          | 66 | 
              qr{parser error : Opening and ending tag mismatch: a line 1 and b}, | 
          66 | 
              qr{parser error : Opening and ending tag mismatch: a line 1 and b}, | 
        
        
          | 67 | 
              "Malformed XML warning correctly displayed";  | 
          67 | 
              "Malformed XML warning correctly displayed";  | 
        
          
            
              | 68 | 
              is( $engine->err, Koha::XSLT_Handler::XSLTH_ERR_5, 'Engine returns error on malformed xml' );  | 
              68 | 
              is( $engine->err, Koha::XSLT::Base::XSLTH_ERR_5, 'Engine returns error on malformed xml' );  | 
            
        
          | 69 | 
           | 
          69 | 
           | 
        
        
          | 70 | 
          #Test not returning source on failure when asked for  | 
          70 | 
          #Test not returning source on failure when asked for  | 
        
        
          | 71 | 
          #Include passing do_not_return via constructor on second engine  | 
          71 | 
          #Include passing do_not_return via constructor on second engine  | 
        
          
            
              | 72 | 
              my $secondengine=Koha::XSLT_Handler->new( { | 
              72 | 
              my $secondengine=Koha::XSLT::Base->new( { | 
            
        
          | 73 | 
              do_not_return_source => 'very_true',  | 
          73 | 
              do_not_return_source => 'very_true',  | 
        
        
          | 74 | 
              some_unknown_attrib  => 'just_for_fun',  | 
          74 | 
              some_unknown_attrib  => 'just_for_fun',  | 
        
        
          | 75 | 
          });  | 
          75 | 
          });  | 
        
  
    | 
      
            Lines 142-148
          $xsltfile_2= $path.$xsltfile_2;
      
      
        Link Here
      
     | 
  
        
          | 142 | 
           | 
          142 | 
           | 
        
        
          | 143 | 
          $engine->print_warns(0);  | 
          143 | 
          $engine->print_warns(0);  | 
        
        
          | 144 | 
          $output = $engine->transform( $xml_2, $xsltfile_2 );  | 
          144 | 
          $output = $engine->transform( $xml_2, $xsltfile_2 );  | 
        
          
            
              | 145 | 
              is( $engine->err, Koha::XSLT_Handler::XSLTH_ERR_4, 'Engine returned error for parsing bad xsl' );  | 
              145 | 
              is( $engine->err, Koha::XSLT::Base::XSLTH_ERR_4, 'Engine returned error for parsing bad xsl' );  | 
            
        
          | 146 | 
           | 
          146 | 
           | 
        
        
          | 147 | 
          #The third test xsl is okay again; main use is clearing two items from cache  | 
          147 | 
          #The third test xsl is okay again; main use is clearing two items from cache  | 
        
        
          | 148 | 
          my $xsltfile_3 = 'test03.xsl';  | 
          148 | 
          my $xsltfile_3 = 'test03.xsl';  | 
        
            
              | 149 | 
              -   | 
               | 
               |