|
Lines 19-25
Link Here
|
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
|
21 |
|
| 22 |
use Test::More tests => 10; |
22 |
use Test::More tests => 11; |
| 23 |
|
23 |
|
| 24 |
use C4::Context; |
24 |
use C4::Context; |
| 25 |
use Koha::Database; |
25 |
use Koha::Database; |
|
Lines 115-119
my $new_category_4 = Koha::Patron::Category->new(
Link Here
|
| 115 |
)->store; |
115 |
)->store; |
| 116 |
is( Koha::Patron::Categories->search->count, $nb_of_categories + 2, 'upperagelimit and dateofbirthrequired should have a default value if empty string is passed' ); |
116 |
is( Koha::Patron::Categories->search->count, $nb_of_categories + 2, 'upperagelimit and dateofbirthrequired should have a default value if empty string is passed' ); |
| 117 |
|
117 |
|
|
|
118 |
subtest 'can_make_suggestions' => sub { |
| 119 |
plan tests => 5; |
| 120 |
t::lib::Mocks::mock_preference('suggestion', 0); |
| 121 |
my $category = Koha::Patron::Category->new({ |
| 122 |
categorycode => 'the_cat', |
| 123 |
category_type => 'A', |
| 124 |
description => 'thecatdesc', |
| 125 |
enrolementperiod => undef |
| 126 |
})->store; |
| 127 |
is ( $category->can_make_suggestions, undef, 'With suggestion syspref disabled and suggestionPatronCategoryExceptions syspref empty then Koha::Patron::Category->can_make_suggestions() returns undef' ); |
| 128 |
|
| 129 |
t::lib::Mocks::mock_preference('suggestion', 1); |
| 130 |
is( $category->can_make_suggestions, 1, 'With suggestion syspref enabled and suggestionPatronsCategoryExceptions syspref empty then Koha::Patron::Category->can_make_suggestions() returns 1' ); |
| 131 |
|
| 132 |
t::lib::Mocks::mock_preference('suggestionPatronCategoryExceptions', 'the_cat'); |
| 133 |
is( $category->can_make_suggestions, undef, 'With suggestion syspref enabled and suggestionPatronCategoryExceptions syspref = "the_cat" then Koha::Patron::Category->can_make_suggestions() returns undef' ); |
| 134 |
|
| 135 |
t::lib::Mocks::mock_preference('suggestionPatronCategoryExceptions', 'mycatcodeW'); |
| 136 |
is( $category->can_make_suggestions, 1, 'With suggestion syspref enabled and suggestionPatronCategoryExceptions syspref = "mycatcodeW" then Koha::Patron::Category->can_make_suggestions returns 1' ); |
| 137 |
|
| 138 |
t::lib::Mocks::mock_preference('suggestion', 0); |
| 139 |
is( $category->can_make_suggestions, undef, 'With suggestion syspref disabled and suggestionPatronCategoryExceptions syspref = "mycatcodeW" then Koha::Patron::Category->can_make_suggestions returns undef' ); |
| 140 |
$category->delete; |
| 141 |
}; |
| 142 |
|
| 118 |
$schema->storage->txn_rollback; |
143 |
$schema->storage->txn_rollback; |
| 119 |
|
144 |
|
| 120 |
- |
|
|