| 
      
            Lines 6-14
          
      
      
        Link Here
      
     | 
  
        
          | 6 | 
          use strict;  | 
          6 | 
          use strict;  | 
        
        
          | 7 | 
          use warnings;  | 
          7 | 
          use warnings;  | 
        
        
          | 8 | 
           | 
          8 | 
           | 
        
          
            
              | 9 | 
              use Test::More tests => 1;  | 
              9 | 
              use Test::More tests => 8;  | 
            
        
          | 10 | 
           | 
          10 | 
           | 
        
        
          | 11 | 
          BEGIN { | 
          11 | 
          BEGIN { | 
        
        
          | 12 | 
                  use_ok('C4::Search::PazPar2'); | 
          12 | 
                  use_ok('C4::Search::PazPar2'); | 
        
        
          | 13 | 
          }  | 
          13 | 
          }  | 
        
        
          | 14 | 
           | 
          14 | 
           | 
        
          
            
              | 15 | 
              -   | 
              15 | 
              my $obj = C4::Search::PazPar2->new();  | 
            
            
               | 
               | 
              16 | 
              ok ($obj, "testing new works");  | 
            
            
              | 17 | 
              is ($obj->init(), "1", "testing init returns '1' when given no arguments");  | 
            
            
              | 18 | 
              is ($obj->search(), "1", "testing search returns '1' when given no arguments");  | 
            
            
              | 19 | 
              is ($obj->stat(), undef, "testing stat returns undef when given no arguments");  | 
            
            
              | 20 | 
              is ($obj->show(), undef, "testing show returns undef when given no arguments");  | 
            
            
              | 21 | 
              is ($obj->record(), undef, "testing record returns undef when given no arguments");  | 
            
            
              | 22 | 
              is ($obj->termlist(), undef, "testing termlist returns undef when given no arguments");  |