|
Lines 94-100
subtest 'Add a test messaging transport' => sub {
Link Here
|
| 94 |
}; |
94 |
}; |
| 95 |
|
95 |
|
| 96 |
subtest 'Add a messaging preference to patron' => sub { |
96 |
subtest 'Add a messaging preference to patron' => sub { |
| 97 |
plan tests => 2; |
97 |
plan tests => 3; |
| 98 |
|
98 |
|
| 99 |
ok($preference = Koha::Patron::Message::Preference->new({ |
99 |
ok($preference = Koha::Patron::Message::Preference->new({ |
| 100 |
borrowernumber => $patron->{'borrowernumber'}, |
100 |
borrowernumber => $patron->{'borrowernumber'}, |
|
Lines 105-110
subtest 'Add a messaging preference to patron' => sub {
Link Here
|
| 105 |
is(Koha::Patron::Message::Preferences->find({ |
105 |
is(Koha::Patron::Message::Preferences->find({ |
| 106 |
borrowernumber => $patron->{'borrowernumber'} })->message_attribute_id, |
106 |
borrowernumber => $patron->{'borrowernumber'} })->message_attribute_id, |
| 107 |
$preference->message_attribute_id, "Found test messaging preference from database."); |
107 |
$preference->message_attribute_id, "Found test messaging preference from database."); |
|
|
108 |
subtest 'Attempt to add a messaging preference with invalid parameters' => sub { |
| 109 |
plan tests => 6; |
| 110 |
|
| 111 |
eval { Koha::Patron::Message::Preference->new->store }; |
| 112 |
is (ref $@, "Koha::Exceptions::MissingParameter", |
| 113 |
"Adding a message preference without parameters" |
| 114 |
." => Koha::Exceptions::MissingParameter"); |
| 115 |
eval { Koha::Patron::Message::Preference->new({ |
| 116 |
borrowernumber => $patron->{'borrowernumber'}, |
| 117 |
categorycode => $patron->{'categorycode'}, |
| 118 |
})->store }; |
| 119 |
is (ref $@, "Koha::Exceptions::TooManyParameters", |
| 120 |
"Adding a message preference with both borrowernumber and categorycode" |
| 121 |
." => Koha::Exceptions::TooManyParameters"); |
| 122 |
eval { Koha::Patron::Message::Preference->new({ |
| 123 |
borrowernumber => -999, |
| 124 |
})->store }; |
| 125 |
is (ref $@, "Koha::Exceptions::BadParameter", |
| 126 |
"Adding a message preference with invalid borrowernumber" |
| 127 |
." => Koha::Exceptions::BadParameter"); |
| 128 |
is ($@->parameter, "borrowernumber", "The previous exception tells us it" |
| 129 |
." was the borrowernumber."); |
| 130 |
eval { Koha::Patron::Message::Preference->new({ |
| 131 |
categorycode => "nonexistent", |
| 132 |
})->store }; |
| 133 |
is (ref $@, "Koha::Exceptions::BadParameter", |
| 134 |
"Adding a message preference with invalid categorycode" |
| 135 |
." => Koha::Exceptions::BadParameter"); |
| 136 |
is ($@->parameter, "categorycode", "The previous exception tells us it" |
| 137 |
." was the categorycode."); |
| 138 |
}; |
| 108 |
}; |
139 |
}; |
| 109 |
|
140 |
|
| 110 |
subtest 'Add a messaging transport preference to patron' => sub { |
141 |
subtest 'Add a messaging transport preference to patron' => sub { |
| 111 |
- |
|
|