Microsoft (R) Program Maintenance Utility Version 7.00.8882 Copyright (C) Microsoft Corp 1988-2000. All rights reserved. C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -MExtUtils::Command -e cp bin/subjmap-template blib\script\subjmap-template pl2bat.bat blib\script\subjmap-template C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -MExtUtils::Command -e cp bin/subjmap blib\script\subjmap pl2bat.bat blib\script\subjmap Installing C:\cpanrun-5.8\build\5-8-0\site\lib\MARC\SubjectMap.pm Installing C:\cpanrun-5.8\build\5-8-0\site\lib\MARC\SubjectMap\Field.pm Installing C:\cpanrun-5.8\build\5-8-0\site\lib\MARC\SubjectMap\Handler.pm Installing C:\cpanrun-5.8\build\5-8-0\site\lib\MARC\SubjectMap\Rule.pm Installing C:\cpanrun-5.8\build\5-8-0\site\lib\MARC\SubjectMap\Rules.pm Installing C:\cpanrun-5.8\build\5-8-0\site\lib\MARC\SubjectMap\XML.pm Installing C:\cpanrun-5.8\build\5-8-0\bin\subjmap Installing C:\cpanrun-5.8\build\5-8-0\bin\subjmap-template Installing C:\cpanrun-5.8\build\5-8-0\bin\subjmap-template.bat Installing C:\cpanrun-5.8\build\5-8-0\bin\subjmap.bat Writing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\MARC\SubjectMap\.packlist Appending installation info to C:\cpanrun-5.8\build\5-8-0\lib/perllocal.pod ted field present afterwards 1..2 ok t\rule...........ok 1 - use MARC::SubjectMap::Rule; ok 2 - field() ok 3 - subfield() ok 4 - original() ok 5 - translation ok 6 - source ok 7 - toXML() 1..7 ok t\rules..........ok 1 - use MARC::SubjectMap::Rules; ok 2 - use MARC::SubjectMap::Rule; ok 3 - The object isa MARC::SubjectMap::Rules ok 4 - getRule() when there is no rule for field/subfield ok 5 - The object isa MARC::SubjectMap::Rule ok 6 - translation() 1 ok 7 - The object isa MARC::SubjectMap::Rule ok 8 - translation() 2 ok 9 - toXML() 1..9 ok t\shakespeare....ok 1 - use MARC::SubjectMap; ok 2 - use MARC::SubjectMap::Rules; ok 3 - use MARC::SubjectMap::Rule; ok 4 - only copies means no translate ok 5 - got new field ok 6 - got expected new field 1..6 ok t\subjectmap.....ok 1 - use MARC::SubjectMap; ok 2 - use MARC::SubjectMap::Field; ok 3 - use MARC::SubjectMap::Rule; ok 4 - The object isa MARC::SubjectMap ok 5 - fields() found 2 fields ok 6 - field 1 ok 7 - field 2 ok 8 - no rules yet ok 9 - got rules ok 10 - toXML() 1..10 ok t\translate......ok 1 - use MARC::SubjectMap; ok 2 - use MARC::SubjectMap::Field; ok 3 - use MARC::SubjectMap::Rules; ok 4 - use MARC::SubjectMap::Rule; ok 5 - The object isa MARC::Field ok 6 - indicator 2 is set properly to 7 ok 7 - expected number of subfields after translateField() ok 8 - translateField() 1 ok 9 - translateField() 2 ok 10 - translateField() 3 ok 11 - The object isa MARC::Field ok 12 - got last source ok 13 - The object isa MARC::Field ok 14 - got correct non subfield a source ok 15 - The object isa MARC::Field ok 16 - indicator 2 is set properly to 7 ok 17 - expected number of subfields after translateField() ok 18 - translateField() 1 ok 19 - translateField() 3 ok 20 - failed field translation returned undef ok 21 - lcsh field only ok 22 - The object isa MARC::Record ok 23 - found expected fields after translateRecord() ok 24 - translateRecord() 1 ok 25 - translateRecord() 2 ok 26 - translateRecord() 3 ok 27 - indicator 2 is set properly ok 28 - The object isa MARC::Record ok 29 - found expected fields after translateRecord() ok 30 - translateRecord() 1 ok 31 - translateRecord() 2 ok 32 - indicator 2 is set properly ok 33 - failed record translation returned undef 1..33 ok t\use............ok 1 - use MARC::SubjectMap; 1..1 ok t\xml............ok 1 - & ok 2 - & ok 3 - & in orignial ok 4 - ' in original ok 5 - < in original ok 6 - > in original ok 7 - >< ok 8 - element() ok 9 - element() w/ & ok 10 - attribute ok 11 - multiple attribtues 1..11 ok All tests successful. Files=10, Tests=92, 3 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU)