|
Lines 21-27
use Modern::Perl;
Link Here
|
| 21 |
use C4::Context; |
21 |
use C4::Context; |
| 22 |
use Data::Dumper; |
22 |
use Data::Dumper; |
| 23 |
|
23 |
|
| 24 |
use Test::More tests => 69; |
24 |
use Test::More tests => 70; |
| 25 |
|
25 |
|
| 26 |
use C4::Branch; |
26 |
use C4::Branch; |
| 27 |
|
27 |
|
|
Lines 381-386
is_deeply( \@branches_bra, [ 'BRA', 'BRB' ], 'Libraries in LIBCATCODE returned c
Link Here
|
| 381 |
$string = GetIndependentGroupModificationRights({ branch => 'BRA', stringify => 1 }); |
381 |
$string = GetIndependentGroupModificationRights({ branch => 'BRA', stringify => 1 }); |
| 382 |
ok( $string eq q{'BRA','BRB'}, "String returns correctly" ); |
382 |
ok( $string eq q{'BRA','BRB'}, "String returns correctly" ); |
| 383 |
|
383 |
|
|
|
384 |
$string = GetIndependentGroupModificationRights({ branch => 'BRC', stringify => 1 }); |
| 385 |
ok( $string eq q{'BRC'}, "String returns correctly" ); |
| 386 |
|
| 384 |
ok( GetIndependentGroupModificationRights({ branch => 'BRA', for => 'BRA' }), 'Boolean test for BRA rights to BRA returns true' ); |
387 |
ok( GetIndependentGroupModificationRights({ branch => 'BRA', for => 'BRA' }), 'Boolean test for BRA rights to BRA returns true' ); |
| 385 |
ok( GetIndependentGroupModificationRights({ branch => 'BRA', for => 'BRB'}), 'Boolean test for BRA rights to BRB returns true' ); |
388 |
ok( GetIndependentGroupModificationRights({ branch => 'BRA', for => 'BRB'}), 'Boolean test for BRA rights to BRB returns true' ); |
| 386 |
ok( !GetIndependentGroupModificationRights({ branch => 'BRA', for => 'BRC'}), 'Boolean test for BRA rights to BRC returns false' ); |
389 |
ok( !GetIndependentGroupModificationRights({ branch => 'BRA', for => 'BRC'}), 'Boolean test for BRA rights to BRC returns false' ); |
| 387 |
- |
|
|