|
Lines 19-25
use Modern::Perl;
Link Here
|
| 19 |
|
19 |
|
| 20 |
use POSIX qw(strftime); |
20 |
use POSIX qw(strftime); |
| 21 |
|
21 |
|
| 22 |
use Test::More tests => 56; |
22 |
use Test::More tests => 57; |
| 23 |
|
23 |
|
| 24 |
use t::lib::TestBuilder; |
24 |
use t::lib::TestBuilder; |
| 25 |
use t::lib::Mocks; |
25 |
use t::lib::Mocks; |
|
Lines 101-107
like( $notify_message->content, qr{Title: $article_request_title}, 'Values from
Link Here
|
| 101 |
$article_request = Koha::ArticleRequests->find( $article_request->id ); |
101 |
$article_request = Koha::ArticleRequests->find( $article_request->id ); |
| 102 |
ok( $article_request->id, 'Koha::ArticleRequest created' ); |
102 |
ok( $article_request->id, 'Koha::ArticleRequest created' ); |
| 103 |
is( $article_request->status, Koha::ArticleRequest::Status::Pending, 'New article request has status of Open' ); |
103 |
is( $article_request->status, Koha::ArticleRequest::Status::Pending, 'New article request has status of Open' ); |
| 104 |
is( $article_request->updated_on, undef, 'New article request has not an updated_on date set yet' ); |
104 |
isnt( $article_request->created_on, undef, 'New article request has created_on date set' ); |
|
|
105 |
isnt( $article_request->updated_on, undef, 'New article request has updated_on date set' ); |
| 105 |
|
106 |
|
| 106 |
# process |
107 |
# process |
| 107 |
Koha::Notice::Messages->delete; |
108 |
Koha::Notice::Messages->delete; |
| 108 |
- |
|
|