View | Details | Raw Unified | Return to bug 7661
Collapse All | Expand All

(-)a/C4/tests/Record_test.pl (-2 / +2 lines)
Lines 87-95 $marcxml_utf8 =~ s/\n//g; Link Here
87
my $error; my $marc; my $marcxml; my $dcxml; # some scalars to store values
87
my $error; my $marc; my $marcxml; my $dcxml; # some scalars to store values
88
## MARC to MARCXML
88
## MARC to MARCXML
89
print "\n1. Checking conversion of simple ISO-2709 (MARC21) records to MARCXML\n";
89
print "\n1. Checking conversion of simple ISO-2709 (MARC21) records to MARCXML\n";
90
ok (($error,$marcxml) = marc2marcxml($marc21_marc8,'UTF-8','MARC21'), 'marc2marcxml - from MARC-8 to UTF-8 (MARC21)'); 
90
ok (($error,$marcxml) = marc2marcxml($marc21_marc8,'UTF-8','MARC21'), 'marc2marcxml - from MARC-8 to UTF-8 (MARC21)');
91
ok (!$error, 'no errors in conversion');
91
ok (!$error, 'no errors in conversion');
92
	$marcxml =~ s/\n//g; 
92
	$marcxml =~ s/\n//g;
93
	$marcxml =~ s/v\/ s/v\/s/g; # FIXME: bug in new_from_xml_record!!
93
	$marcxml =~ s/v\/ s/v\/s/g; # FIXME: bug in new_from_xml_record!!
94
is ($marcxml,$marcxml_utf8, 'record matches antitype');
94
is ($marcxml,$marcxml_utf8, 'record matches antitype');
95
95

Return to bug 7661