|
Lines 76-88
my $article_request = Koha::ArticleRequest->new(
Link Here
|
| 76 |
)->store(); |
76 |
)->store(); |
| 77 |
|
77 |
|
| 78 |
my $notify_message = Koha::Notice::Messages->search->next; |
78 |
my $notify_message = Koha::Notice::Messages->search->next; |
| 79 |
is( $notify_message->letter_code, "AR_".Koha::ArticleRequest::Status::Pending); |
79 |
is( $notify_message->letter_code, "AR_".Koha::ArticleRequest::Status::Requested); |
| 80 |
# Default AR_PROCESSING template content "Title: <<article_requests.title>>" |
80 |
# Default AR_PROCESSING template content "Title: <<article_requests.title>>" |
| 81 |
like( $notify_message->content, qr{Title: $article_request_title}, 'Values from article_requests table must be fetched for the notification' ); |
81 |
like( $notify_message->content, qr{Title: $article_request_title}, 'Values from article_requests table must be fetched for the notification' ); |
| 82 |
|
82 |
|
| 83 |
$article_request = Koha::ArticleRequests->find( $article_request->id ); |
83 |
$article_request = Koha::ArticleRequests->find( $article_request->id ); |
| 84 |
ok( $article_request->id, 'Koha::ArticleRequest created' ); |
84 |
ok( $article_request->id, 'Koha::ArticleRequest created' ); |
| 85 |
is( $article_request->status, Koha::ArticleRequest::Status::Pending, 'New article request has status of Open' ); |
85 |
is( $article_request->status, Koha::ArticleRequest::Status::Requested, 'New article request has status of Open' ); |
| 86 |
isnt( $article_request->created_on, undef, 'New article request has created_on date set' ); |
86 |
isnt( $article_request->created_on, undef, 'New article request has created_on date set' ); |
| 87 |
isnt( $article_request->updated_on, undef, 'New article request has updated_on date set' ); |
87 |
isnt( $article_request->updated_on, undef, 'New article request has updated_on date set' ); |
| 88 |
|
88 |
|
| 89 |
- |
|
|