/opt/alt/php74/usr/share/pear/test/File_MARC/tests
Edit: /opt/alt/php74/usr/share/pear/test/File_MARC/tests/marc_field_21246.phpt (812B)
--TEST--
marc_field_21246: Delete multiple subfields
--SKIPIF--
--FILE--
getSubfields('9') as $subfield) {
echo "Deleting subfield: $subfield\n";
$field->deleteSubfield($subfield);
}
echo "\n--- After: ---\n$field\n\n";
?>
--EXPECT--
--- Before: ---
650 _9test1
_9test2
_0test3
_9test4
Deleting subfield: [9]: test1
Deleting subfield: [9]: test2
Deleting subfield: [9]: test4
--- After: ---
650 _0test3