|
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 |
- |
|
|