|
Lines 1-6
Link Here
|
| 1 |
use Modern::Perl; |
1 |
use Modern::Perl; |
| 2 |
|
2 |
|
| 3 |
use Test::More tests => 77; |
3 |
use Test::More tests => 78; |
| 4 |
|
4 |
|
| 5 |
use_ok("MARC::Field"); |
5 |
use_ok("MARC::Field"); |
| 6 |
use_ok("MARC::Record"); |
6 |
use_ok("MARC::Record"); |
|
Lines 208-220
is( AddModificationTemplateAction(
Link Here
|
| 208 |
|
208 |
|
| 209 |
my $record = new_record(); |
209 |
my $record = new_record(); |
| 210 |
|
210 |
|
| 211 |
ModifyRecordWithTemplate( $template_id, $record ); |
211 |
is( ModifyRecordWithTemplate( $template_id, $record ), undef, "The ModifyRecordWithTemplate returns undef" ); |
| 212 |
|
212 |
|
| 213 |
my $expected_record = expected_record(); |
213 |
my $expected_record = expected_record(); |
| 214 |
is_deeply( $record, $expected_record, "Record modification as expected"); |
214 |
is_deeply( $record, $expected_record, "Record modification as expected"); |
| 215 |
|
215 |
|
| 216 |
done_testing; |
|
|
| 217 |
|
| 218 |
sub new_record { |
216 |
sub new_record { |
| 219 |
my $record = MARC::Record->new; |
217 |
my $record = MARC::Record->new; |
| 220 |
$record->leader('03174nam a2200445 a 4500'); |
218 |
$record->leader('03174nam a2200445 a 4500'); |
| 221 |
- |
|
|