|
Lines 1-6
Link Here
|
| 1 |
use Modern::Perl; |
1 |
use Modern::Perl; |
| 2 |
|
2 |
|
| 3 |
use Test::More tests => 74; |
3 |
use Test::More tests => 75; |
| 4 |
|
4 |
|
| 5 |
use_ok("MARC::Field"); |
5 |
use_ok("MARC::Field"); |
| 6 |
use_ok("MARC::Record"); |
6 |
use_ok("MARC::Record"); |
|
Lines 183-195
is( AddModificationTemplateAction(
Link Here
|
| 183 |
|
183 |
|
| 184 |
my $record = new_record(); |
184 |
my $record = new_record(); |
| 185 |
|
185 |
|
| 186 |
ModifyRecordWithTemplate( $template_id, $record ); |
186 |
is( ModifyRecordWithTemplate( $template_id, $record ), undef, "The ModifyRecordWithTemplate returns undef" ); |
| 187 |
|
187 |
|
| 188 |
my $expected_record = expected_record(); |
188 |
my $expected_record = expected_record(); |
| 189 |
is_deeply( $record, $expected_record ); |
189 |
is_deeply( $record, $expected_record ); |
| 190 |
|
190 |
|
| 191 |
done_testing; |
|
|
| 192 |
|
| 193 |
sub new_record { |
191 |
sub new_record { |
| 194 |
my $record = MARC::Record->new; |
192 |
my $record = MARC::Record->new; |
| 195 |
$record->leader('03174nam a2200445 a 4500'); |
193 |
$record->leader('03174nam a2200445 a 4500'); |
| 196 |
- |
|
|