|
Lines 19-26
Link Here
|
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
|
21 |
|
| 22 |
use Test::More tests => 4; |
22 |
use Test::More tests => 9; |
| 23 |
|
23 |
|
|
|
24 |
use C4::Context; |
| 25 |
use C4::Log; |
| 24 |
use Koha::Patron::Message; |
26 |
use Koha::Patron::Message; |
| 25 |
use Koha::Patron::Messages; |
27 |
use Koha::Patron::Messages; |
| 26 |
use Koha::Database; |
28 |
use Koha::Database; |
|
Lines 33-39
$schema->storage->txn_begin;
Link Here
|
| 33 |
my $builder = t::lib::TestBuilder->new; |
35 |
my $builder = t::lib::TestBuilder->new; |
| 34 |
my $library = $builder->build( { source => 'Branch' } ); |
36 |
my $library = $builder->build( { source => 'Branch' } ); |
| 35 |
my $patron = $builder->build( { source => 'Borrower', values => { branchcode => $library->{branchcode} } } ); |
37 |
my $patron = $builder->build( { source => 'Borrower', values => { branchcode => $library->{branchcode} } } ); |
|
|
38 |
my $nb_of_logaction = get_nb_of_logactions(); |
| 36 |
my $nb_of_messages = Koha::Patron::Messages->search->count; |
39 |
my $nb_of_messages = Koha::Patron::Messages->search->count; |
|
|
40 |
|
| 41 |
C4::Context->set_preference('BorrowersLog', 0); |
| 37 |
my $new_message_1 = Koha::Patron::Message->new( |
42 |
my $new_message_1 = Koha::Patron::Message->new( |
| 38 |
{ borrowernumber => $patron->{borrowernumber}, |
43 |
{ borrowernumber => $patron->{borrowernumber}, |
| 39 |
branchcode => $library->{branchcode}, |
44 |
branchcode => $library->{branchcode}, |
|
Lines 41-46
my $new_message_1 = Koha::Patron::Message->new(
Link Here
|
| 41 |
message => 'my message 1', |
46 |
message => 'my message 1', |
| 42 |
} |
47 |
} |
| 43 |
)->store; |
48 |
)->store; |
|
|
49 |
is( get_nb_of_logactions(), $nb_of_logaction, 'With BorrowersLog off, no new log should have been added' ); |
| 50 |
|
| 51 |
C4::Context->set_preference('BorrowersLog', 1); |
| 44 |
my $new_message_2 = Koha::Patron::Message->new( |
52 |
my $new_message_2 = Koha::Patron::Message->new( |
| 45 |
{ borrowernumber => $patron->{borrowernumber}, |
53 |
{ borrowernumber => $patron->{borrowernumber}, |
| 46 |
branchcode => $library->{branchcode}, |
54 |
branchcode => $library->{branchcode}, |
|
Lines 48-53
my $new_message_2 = Koha::Patron::Message->new(
Link Here
|
| 48 |
message => 'my message 2', |
56 |
message => 'my message 2', |
| 49 |
} |
57 |
} |
| 50 |
)->store; |
58 |
)->store; |
|
|
59 |
is( get_nb_of_logactions(), $nb_of_logaction + 1, 'With BorrowersLog on, 1 new log should have been added when adding a new message' ); |
| 51 |
|
60 |
|
| 52 |
like( $new_message_1->message_id, qr|^\d+$|, 'Adding a new message should have set the message_id'); |
61 |
like( $new_message_1->message_id, qr|^\d+$|, 'Adding a new message should have set the message_id'); |
| 53 |
is( Koha::Patron::Messages->search->count, $nb_of_messages + 2, 'The 2 messages should have been added' ); |
62 |
is( Koha::Patron::Messages->search->count, $nb_of_messages + 2, 'The 2 messages should have been added' ); |
|
Lines 55-63
is( Koha::Patron::Messages->search->count, $nb_of_messages + 2, 'The 2 messages
Link Here
|
| 55 |
my $retrieved_message_1 = Koha::Patron::Messages->find( $new_message_1->message_id ); |
64 |
my $retrieved_message_1 = Koha::Patron::Messages->find( $new_message_1->message_id ); |
| 56 |
is( $retrieved_message_1->message, $new_message_1->message, 'Find a message by id should return the correct message' ); |
65 |
is( $retrieved_message_1->message, $new_message_1->message, 'Find a message by id should return the correct message' ); |
| 57 |
|
66 |
|
|
|
67 |
C4::Context->set_preference('BorrowersLog', 0); |
| 58 |
$retrieved_message_1->delete; |
68 |
$retrieved_message_1->delete; |
| 59 |
is( Koha::Patron::Messages->search->count, $nb_of_messages + 1, 'Delete should have deleted the message' ); |
69 |
is( Koha::Patron::Messages->search->count, $nb_of_messages + 1, 'Delete should have deleted the message 1' ); |
|
|
70 |
is( get_nb_of_logactions(), $nb_of_logaction + 1, 'With BorrowersLog off, no new log should have been added when deleting a new message' ); |
| 71 |
|
| 72 |
C4::Context->set_preference('BorrowersLog', 1); |
| 73 |
$new_message_2->delete; |
| 74 |
is( Koha::Patron::Messages->search->count, $nb_of_messages, 'Delete should have deleted the message 2' ); |
| 75 |
is( get_nb_of_logactions(), $nb_of_logaction + 2, 'With BorrowersLog on, 1 new log should have been added when deleting a new message' ); |
| 60 |
|
76 |
|
| 61 |
$schema->storage->txn_rollback; |
77 |
$schema->storage->txn_rollback; |
| 62 |
|
78 |
|
|
|
79 |
sub get_nb_of_logactions { |
| 80 |
return scalar( @{ C4::Log::GetLogs( undef, undef, undef, ['MEMBERS'] ) } ); |
| 81 |
} |
| 82 |
|
| 63 |
1; |
83 |
1; |
| 64 |
- |
|
|