Lines 17-24
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 30; |
20 |
use Test::More tests => 39; |
21 |
use Test::Mojo; |
21 |
use Test::Mojo; |
|
|
22 |
use t::lib::TestBuilder; |
22 |
|
23 |
|
23 |
use DateTime; |
24 |
use DateTime; |
24 |
|
25 |
|
Lines 38-43
my $t = Test::Mojo->new('Koha::REST::V1');
Link Here
|
38 |
|
39 |
|
39 |
my $categorycode = Koha::Database->new()->schema()->resultset('Category')->first()->categorycode(); |
40 |
my $categorycode = Koha::Database->new()->schema()->resultset('Category')->first()->categorycode(); |
40 |
my $branchcode = Koha::Database->new()->schema()->resultset('Branch')->first()->branchcode(); |
41 |
my $branchcode = Koha::Database->new()->schema()->resultset('Branch')->first()->branchcode(); |
|
|
42 |
my $builder = t::lib::TestBuilder->new(); |
43 |
my $itemtype = $builder->build({ source => 'Itemtype' })->{ itemtype }; |
41 |
|
44 |
|
42 |
my $borrower = Koha::Patron->new; |
45 |
my $borrower = Koha::Patron->new; |
43 |
$borrower->categorycode( $categorycode ); |
46 |
$borrower->categorycode( $categorycode ); |
Lines 54-60
$borrower2->store;
Link Here
|
54 |
my $borrowernumber2 = $borrower2->borrowernumber; |
57 |
my $borrowernumber2 = $borrower2->borrowernumber; |
55 |
|
58 |
|
56 |
my $biblionumber = create_biblio('RESTful Web APIs'); |
59 |
my $biblionumber = create_biblio('RESTful Web APIs'); |
57 |
my $itemnumber = create_item($biblionumber, 'TEST000001'); |
60 |
my $itemnumber = create_item($biblionumber, { |
|
|
61 |
barcode => 'TEST000001', |
62 |
itype => $itemtype |
63 |
}); |
58 |
|
64 |
|
59 |
my $reserve_id = C4::Reserves::AddReserve($branchcode, $borrowernumber, |
65 |
my $reserve_id = C4::Reserves::AddReserve($branchcode, $borrowernumber, |
60 |
$biblionumber, undef, 1, undef, undef, undef, '', $itemnumber); |
66 |
$biblionumber, undef, 1, undef, undef, undef, '', $itemnumber); |
Lines 126-131
$t->post_ok("/api/v1/reserves" => json => $post_data)
Link Here
|
126 |
->json_like('/error', qr/tooManyReserves/); |
132 |
->json_like('/error', qr/tooManyReserves/); |
127 |
|
133 |
|
128 |
|
134 |
|
|
|
135 |
$t->delete_ok("/api/v1/reserves/$reserve_id") |
136 |
->status_is(200); |
137 |
|
138 |
$post_data = { |
139 |
borrowernumber => int($borrowernumber), |
140 |
biblionumber => int($biblionumber), |
141 |
branchcode => $branchcode, |
142 |
itemtype => $itemtype, |
143 |
}; |
144 |
|
145 |
$t->post_ok("/api/v1/reserves" => json => $post_data) |
146 |
->status_is(201) |
147 |
->json_has('/reserve_id'); |
148 |
|
149 |
$reserve_id = $t->tx->res->json->{reserve_id}; |
150 |
|
151 |
$t->get_ok("/api/v1/reserves?borrowernumber=$borrowernumber") |
152 |
->status_is(200) |
153 |
->json_is('/0/reserve_id', $reserve_id) |
154 |
->json_is('/0/itemtype', $itemtype); |
155 |
|
129 |
$dbh->rollback; |
156 |
$dbh->rollback; |
130 |
|
157 |
|
131 |
sub create_biblio { |
158 |
sub create_biblio { |
Lines 142-152
sub create_biblio {
Link Here
|
142 |
} |
169 |
} |
143 |
|
170 |
|
144 |
sub create_item { |
171 |
sub create_item { |
145 |
my ($biblionumber, $barcode) = @_; |
172 |
my ($biblionumber, $item) = @_; |
146 |
|
|
|
147 |
my $item = { |
148 |
barcode => $barcode, |
149 |
}; |
150 |
|
173 |
|
151 |
my $itemnumber = C4::Items::AddItem($item, $biblionumber); |
174 |
my $itemnumber = C4::Items::AddItem($item, $biblionumber); |
152 |
|
175 |
|
153 |
- |
|
|