| 
      
            Lines 74-79
          is( $library->id, $groupA_library1->branchcode, 'Branchcode for fetched library
      
      
        Link Here
      
     | 
  
        
          | 74 | 
           | 
          74 | 
           | 
        
        
          | 75 | 
          my @libraries_not_direct_children = $groupA->libraries_not_direct_children();  | 
          75 | 
          my @libraries_not_direct_children = $groupA->libraries_not_direct_children();  | 
        
        
          | 76 | 
          $in_list = any { $_->id eq $groupA_library1->branchcode } @libraries_not_direct_children; | 
          76 | 
          $in_list = any { $_->id eq $groupA_library1->branchcode } @libraries_not_direct_children; | 
        
          
            
              | 77 | 
              ok( !$in_list, 'Method libraries_not_direct_children returns all libraries not direct decendents of group, library 1 is not in the list');  | 
              77 | 
              ok( !$in_list, 'Method libraries_not_direct_children returns all libraries not direct descendants of group, library 1 is not in the list');  | 
            
        
          | 78 | 
          $in_list = any { $_->id eq $groupA1_library2->branchcode } @libraries_not_direct_children; | 
          78 | 
          $in_list = any { $_->id eq $groupA1_library2->branchcode } @libraries_not_direct_children; | 
        
          
            
              | 79 | 
              ok( $in_list, 'Method libraries_not_direct_children returns all libraries not direct decendents of group, library 2 is in the list');  | 
              79 | 
              ok( $in_list, 'Method libraries_not_direct_children returns all libraries not direct descendants of group, library 2 is in the list');  | 
            
            
              | 80 | 
              -   | 
               | 
               |