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