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 389-394
is_deeply( \@branches_bra, [ 'BRA', 'BRB' ], 'Libraries in LIBCATCODE returned c
Link Here
|
389 |
$string = GetIndependentGroupModificationRights({ branch => 'BRA', stringify => 1 }); |
389 |
$string = GetIndependentGroupModificationRights({ branch => 'BRA', stringify => 1 }); |
390 |
ok( $string eq q{'BRA','BRB'}, "String returns correctly" ); |
390 |
ok( $string eq q{'BRA','BRB'}, "String returns correctly" ); |
391 |
|
391 |
|
|
|
392 |
$string = GetIndependentGroupModificationRights({ branch => 'BRC', stringify => 1 }); |
393 |
ok( $string eq q{'BRC'}, "String returns correctly" ); |
394 |
|
392 |
ok( GetIndependentGroupModificationRights({ branch => 'BRA', for => 'BRA' }), 'Boolean test for BRA rights to BRA returns true' ); |
395 |
ok( GetIndependentGroupModificationRights({ branch => 'BRA', for => 'BRA' }), 'Boolean test for BRA rights to BRA returns true' ); |
393 |
ok( GetIndependentGroupModificationRights({ branch => 'BRA', for => 'BRB'}), 'Boolean test for BRA rights to BRB returns true' ); |
396 |
ok( GetIndependentGroupModificationRights({ branch => 'BRA', for => 'BRB'}), 'Boolean test for BRA rights to BRB returns true' ); |
394 |
ok( !GetIndependentGroupModificationRights({ branch => 'BRA', for => 'BRC'}), 'Boolean test for BRA rights to BRC returns false' ); |
397 |
ok( !GetIndependentGroupModificationRights({ branch => 'BRA', for => 'BRC'}), 'Boolean test for BRA rights to BRC returns false' ); |
395 |
- |
|
|