| 
      
            Lines 16-42
          
      
      
        Link Here
      
     | 
  
        
          | 16 | 
          # along with Koha; if not, see <http://www.gnu.org/licenses>.  | 
          16 | 
          # along with Koha; if not, see <http://www.gnu.org/licenses>.  | 
        
        
          | 17 | 
           | 
          17 | 
           | 
        
        
          | 18 | 
          use Modern::Perl;  | 
          18 | 
          use Modern::Perl;  | 
        
            
               | 
               | 
              19 | 
              use Test::More tests => 9;  | 
            
            
              | 20 | 
              use Net::Z3950::ZOOM;  | 
            
        
          | 19 | 
           | 
          21 | 
           | 
        
            
              | 20 | 
              use Test::More;  | 
               | 
               | 
            
        
          | 21 | 
          use t::lib::Mocks;  | 
          22 | 
          use t::lib::Mocks;  | 
        
        
          | 22 | 
           | 
          23 | 
           | 
        
          
            
              | 23 | 
              use Module::Load::Conditional qw/check_install/;  | 
              24 | 
              use C4::Search qw( buildQuery  );  | 
            
            
              | 24 | 
               | 
               | 
               | 
            
            
              | 25 | 
              BEGIN { | 
            
            
              | 26 | 
                  if ( check_install( module => 'Test::DBIx::Class' ) ) { | 
            
            
              | 27 | 
                      plan tests => 12;  | 
            
            
              | 28 | 
                  } else { | 
            
            
              | 29 | 
                      plan skip_all => "Need Test::DBIx::Class"  | 
            
            
              | 30 | 
                  }  | 
            
            
              | 31 | 
              }  | 
            
            
              | 32 | 
               | 
            
            
              | 33 | 
              # Mock the DB connection and C4::Context  | 
            
            
              | 34 | 
              use Test::DBIx::Class;  | 
            
            
              | 35 | 
               | 
            
            
              | 36 | 
              use_ok('C4::Search', qw( buildQuery )); | 
            
            
              | 37 | 
              can_ok('C4::Search', | 
            
            
              | 38 | 
                  qw/buildQuery/);  | 
            
            
              | 39 | 
              use_ok("Net::Z3950::ZOOM"); | 
            
        
          | 40 | 
           | 
          25 | 
           | 
        
        
          | 41 | 
          #FIXME: would it be better to use our real ccl.properties file?  | 
          26 | 
          #FIXME: would it be better to use our real ccl.properties file?  | 
        
        
          | 42 | 
          sub _get_ccl_properties { | 
          27 | 
          sub _get_ccl_properties { | 
        
            
              | 43 | 
              -   | 
               | 
               |