Lines 1-17
Link Here
|
1 |
use Modern::Perl; |
1 |
use Modern::Perl; |
2 |
use Test::More tests => 4; |
2 |
use Test::More tests => 5; |
3 |
|
3 |
|
4 |
use C4::Context; |
4 |
use t::lib::Mocks; |
5 |
use C4::Circulation; |
|
|
6 |
|
5 |
|
7 |
my $dbh = C4::Context->dbh; |
6 |
use C4::Circulation; |
8 |
$dbh->{AutoCommit} = 0; |
|
|
9 |
$dbh->{RaiseError} = 1; |
10 |
|
7 |
|
11 |
C4::Context->set_preference( 'AgeRestrictionMarker', 'FSK|PEGI|Age|K' ); |
8 |
t::lib::Mocks::mock_preference( 'AgeRestrictionMarker', 'FSK|PEGI|Age|K' ); |
12 |
|
9 |
|
13 |
is ( C4::Circulation::GetAgeRestriction('FSK 16'), '16', 'FSK 16 returns 16' ); |
10 |
is ( C4::Circulation::GetAgeRestriction('FSK 16'), '16', 'FSK 16 returns 16' ); |
14 |
is ( C4::Circulation::GetAgeRestriction('PEGI 16'), '16', 'PEGI 16 returns 16' ); |
11 |
is ( C4::Circulation::GetAgeRestriction('PEGI 16'), '16', 'PEGI 16 returns 16' ); |
|
|
12 |
is ( C4::Circulation::GetAgeRestriction('PEGI16'), '16', 'PEGI16 returns 16' ); |
15 |
is ( C4::Circulation::GetAgeRestriction('Age 16'), '16', 'Age 16 returns 16' ); |
13 |
is ( C4::Circulation::GetAgeRestriction('Age 16'), '16', 'Age 16 returns 16' ); |
16 |
is ( C4::Circulation::GetAgeRestriction('K16'), '16', 'K16 returns 16' ); |
14 |
is ( C4::Circulation::GetAgeRestriction('K16'), '16', 'K16 returns 16' ); |
17 |
|
15 |
|
18 |
- |
|
|