Lines 33-39
$dbh->{AutoCommit} = 0;
Link Here
|
33 |
$dbh->{RaiseError} = 1; |
33 |
$dbh->{RaiseError} = 1; |
34 |
|
34 |
|
35 |
# Mocking variables |
35 |
# Mocking variables |
36 |
my $context = new Test::MockModule('C4::Context'); |
36 |
my $context = new Test::MockModule('C4::Context'); |
37 |
|
37 |
|
38 |
mock_marcfromkohafield(); |
38 |
mock_marcfromkohafield(); |
39 |
|
39 |
|
Lines 178-184
sub run_tests {
Link Here
|
178 |
is( $isbns->[$i], $more_isbns[$i], |
178 |
is( $isbns->[$i], $more_isbns[$i], |
179 |
"(GetMarcISBN) Corretly retrieves ISBN #". ($i + 1)); |
179 |
"(GetMarcISBN) Corretly retrieves ISBN #". ($i + 1)); |
180 |
} |
180 |
} |
181 |
|
181 |
is( GetMarcPrice( $record_for_isbn, $marcflavour ), 100, |
|
|
182 |
"GetMarcPrice returns the correct value"); |
182 |
} |
183 |
} |
183 |
|
184 |
|
184 |
sub mock_marcfromkohafield { |
185 |
sub mock_marcfromkohafield { |
Lines 230-236
sub create_isbn_field {
Link Here
|
230 |
my $field = MARC::Field->new( $isbn_field,'','','a' => $isbn); |
231 |
my $field = MARC::Field->new( $isbn_field,'','','a' => $isbn); |
231 |
# Add the price subfield |
232 |
# Add the price subfield |
232 |
my $price_subfield = ( $marcflavour eq 'UNIMARC' ) ? 'd' : 'c' ; |
233 |
my $price_subfield = ( $marcflavour eq 'UNIMARC' ) ? 'd' : 'c' ; |
233 |
$field->add_subfields( $price_subfield => '100' ); |
234 |
$field->add_subfields( $price_subfield => '$100' ); |
234 |
|
235 |
|
235 |
return $field; |
236 |
return $field; |
236 |
} |
237 |
} |
Lines 245-263
sub create_issn_field {
Link Here
|
245 |
} |
246 |
} |
246 |
|
247 |
|
247 |
subtest 'MARC21' => sub { |
248 |
subtest 'MARC21' => sub { |
248 |
plan tests => 25; |
249 |
plan tests => 26; |
249 |
run_tests('MARC21'); |
250 |
run_tests('MARC21'); |
250 |
$dbh->rollback; |
251 |
$dbh->rollback; |
251 |
}; |
252 |
}; |
252 |
|
253 |
|
253 |
subtest 'UNIMARC' => sub { |
254 |
subtest 'UNIMARC' => sub { |
254 |
plan tests => 25; |
255 |
plan tests => 26; |
255 |
run_tests('UNIMARC'); |
256 |
run_tests('UNIMARC'); |
256 |
$dbh->rollback; |
257 |
$dbh->rollback; |
257 |
}; |
258 |
}; |
258 |
|
259 |
|
259 |
subtest 'NORMARC' => sub { |
260 |
subtest 'NORMARC' => sub { |
260 |
plan tests => 25; |
261 |
plan tests => 26; |
261 |
run_tests('NORMARC'); |
262 |
run_tests('NORMARC'); |
262 |
$dbh->rollback; |
263 |
$dbh->rollback; |
263 |
}; |
264 |
}; |
264 |
- |
|
|