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 => 66; |
22 |
use Test::More tests => 70; |
23 |
use t::lib::Mocks; |
23 |
use t::lib::Mocks; |
24 |
use Koha::Database; |
24 |
use Koha::Database; |
25 |
use Koha::DateUtils qw(dt_from_string output_pref); |
25 |
use Koha::DateUtils qw(dt_from_string output_pref); |
Lines 173-179
my ( $biblionumber5, $biblioitemnumber5 ) = AddBiblio( MARC::Record->new, '' );
Link Here
|
173 |
|
173 |
|
174 |
|
174 |
|
175 |
|
175 |
|
176 |
# Prepare 5 orders, and make distinction beween fields to be tested with eq and with == |
176 |
# Prepare 6 orders, and make distinction beween fields to be tested with eq and with == |
177 |
# Ex : a price of 50.1 will be stored internally as 5.100000 |
177 |
# Ex : a price of 50.1 will be stored internally as 5.100000 |
178 |
|
178 |
|
179 |
my @order_content = ( |
179 |
my @order_content = ( |
Lines 183-190
my @order_content = (
Link Here
|
183 |
biblionumber => $biblionumber1, |
183 |
biblionumber => $biblionumber1, |
184 |
budget_id => $budget->{budget_id}, |
184 |
budget_id => $budget->{budget_id}, |
185 |
uncertainprice => 0, |
185 |
uncertainprice => 0, |
186 |
order_internalnote => "internal note", |
186 |
order_internalnote => "internal note foo", |
187 |
order_vendornote => "vendor note", |
187 |
order_vendornote => "vendor note bar", |
188 |
ordernumber => '', |
188 |
ordernumber => '', |
189 |
}, |
189 |
}, |
190 |
num => { |
190 |
num => { |
Lines 209-216
my @order_content = (
Link Here
|
209 |
biblionumber => $biblionumber2, |
209 |
biblionumber => $biblionumber2, |
210 |
budget_id => $budget->{budget_id}, |
210 |
budget_id => $budget->{budget_id}, |
211 |
uncertainprice => 0, |
211 |
uncertainprice => 0, |
212 |
order_internalnote => "internal note", |
212 |
order_internalnote => "internal note foo", |
213 |
order_vendornote => "vendor note" |
213 |
order_vendornote => "vendor note bar" |
214 |
}, |
214 |
}, |
215 |
num => { |
215 |
num => { |
216 |
quantity => 4, |
216 |
quantity => 4, |
Lines 246-253
my @order_content = (
Link Here
|
246 |
basketno => $basketno, |
246 |
basketno => $basketno, |
247 |
biblionumber => $biblionumber4, |
247 |
biblionumber => $biblionumber4, |
248 |
budget_id => $budget->{budget_id}, |
248 |
budget_id => $budget->{budget_id}, |
249 |
order_internalnote => "internal note", |
249 |
order_internalnote => "internal note bar", |
250 |
order_vendornote => "vendor note" |
250 |
order_vendornote => "vendor note foo" |
251 |
}, |
251 |
}, |
252 |
num => { |
252 |
num => { |
253 |
quantity => 1, |
253 |
quantity => 1, |
Lines 281-287
my @order_content = (
Link Here
|
281 |
} |
281 |
} |
282 |
); |
282 |
); |
283 |
|
283 |
|
284 |
# Create 5 orders in database |
284 |
# Create 6 orders in database |
285 |
for ( 0 .. 5 ) { |
285 |
for ( 0 .. 5 ) { |
286 |
my %ocontent; |
286 |
my %ocontent; |
287 |
@ocontent{ keys %{ $order_content[$_]->{num} } } = |
287 |
@ocontent{ keys %{ $order_content[$_]->{num} } } = |
Lines 444-450
is( $order2->{order_internalnote}, "my notes",
Link Here
|
444 |
my $order1 = GetOrder( $ordernumbers[0] ); |
444 |
my $order1 = GetOrder( $ordernumbers[0] ); |
445 |
is( |
445 |
is( |
446 |
$order1->{order_internalnote}, |
446 |
$order1->{order_internalnote}, |
447 |
"internal note", |
447 |
"internal note foo", |
448 |
"ModReceiveOrder only changes the supplied orders internal notes" |
448 |
"ModReceiveOrder only changes the supplied orders internal notes" |
449 |
); |
449 |
); |
450 |
|
450 |
|
Lines 466-471
is( scalar( @$orders ), 1, 'GetHistory with a given ordernumbers returns 1 order
Link Here
|
466 |
$orders = GetHistory( ordernumbers => \@ordernumbers ); |
466 |
$orders = GetHistory( ordernumbers => \@ordernumbers ); |
467 |
is( scalar( @$orders ), scalar( @ordernumbers ) - 1, 'GetHistory with a list of ordernumbers returns N-1 orders (was has been deleted [3])' ); |
467 |
is( scalar( @$orders ), scalar( @ordernumbers ) - 1, 'GetHistory with a list of ordernumbers returns N-1 orders (was has been deleted [3])' ); |
468 |
|
468 |
|
|
|
469 |
$orders = GetHistory( internalnote => 'internal note foo' ); |
470 |
is( scalar( @$orders ), 2, 'GetHistory returns correctly a search for internalnote' ); |
471 |
$orders = GetHistory( vendornote => 'vendor note bar' ); |
472 |
is( scalar( @$orders ), 2, 'GetHistory returns correctly a search for vendornote' ); |
473 |
$orders = GetHistory( internalnote => 'internal note bar' ); |
474 |
is( scalar( @$orders ), 1, 'GetHistory returns correctly a search for internalnote' ); |
475 |
$orders = GetHistory( vendornote => 'vendor note foo' ); |
476 |
is( scalar( @$orders ), 1, 'GetHistory returns correctly a search for vendornote' ); |
477 |
|
469 |
|
478 |
|
470 |
# Test GetHistory() with and without SearchWithISBNVariations |
479 |
# Test GetHistory() with and without SearchWithISBNVariations |
471 |
# The ISBN passed as a param is the ISBN-10 version of the 13-digit ISBN in the sample record declared in $marcxml |
480 |
# The ISBN passed as a param is the ISBN-10 version of the 13-digit ISBN in the sample record declared in $marcxml |
472 |
- |
|
|