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 |
- |
|
|