marc4j4r 0.9.0 → 1.0.0

data/CHANGES

@@ -0,0 +1,16 @@
+1.0
+  Arbitrary decision that this is 1.0
+  Using javamarc.jar (fork of marc4j) from http://github.com/billdueber/javamarc
+  Including alephsequential reader (but not writer) and specs
+  Added code to Reader#each to deal with #errors object if provided by the
+    specific reader (right now, :permissivemarc and :alephsequential) and specs
+    to test
+  Added lots of specs
+  Fixed definition of class-level methods in Record. For some reason (I'm sure having to do with the
+  fact that they're aliased java classes), using 'def self.to_xml' doesn't work; need to use
+  'def Record.to_xml' instead
+0.9.1
+  Updated to latest marc4j; changes involve character conversion
+
+0.9.0
+  First real public release

data/README.rdoc

@@ -15,7 +15,9 @@ links for all the classes:
 
 == Getting a MARC reader
 
-marc4j4r provides three readers out of the box: :strictmarc (binary), :permissivemarc (:binary), and :marcxml (MARC-XML).
+marc4j4r provides three readers out of the box: :strictmarc (binary), :permissivemarc (:binary), :marcxml (MARC-XML), 
+or :alephsequential (Ex Libris's AlephSequential format).
+
 You can pass either a filename or an open IO object (either ruby or java.io.inputstream)
 
     require 'marc4j4r'
@@ -26,6 +28,7 @@ You can pass either a filename or an open IO object (either ruby or java.io.inpu
     permissivereader =  MARC4J4R::Reader.new('test.mrc', :permissivemarc)
 
     xmlreader = MARC4J4R::Reader.new('test.xml', :marcxml)
+    asreader = MARC4J4R::Reader.new('test.seq', :alephsequential)
   
     # Or use a file object
   

data/Rakefile

@@ -23,8 +23,8 @@ end
 
 
 # Make sure we've got the right .jar
-LOCALJAR = 'jars/marc4j.jar'
-JAVAJAR  = '../../marc4j.jar'
+LOCALJAR = 'jars/javamarc.jar'
+JAVAJAR  = '../../javamarc.jar'
 
 
 file LOCALJAR => JAVAJAR do |t|

data/VERSION

@@ -1 +1 @@
-0.9.0
+1.0.0

data/lib/marc4j4r/controlfield.rb

@@ -22,7 +22,7 @@ module MARC4J4R
     # @param [String] The pretty string
     def to_s
       return self.tag + "    " + self.value
-    end
+    end                 
 
     def == other
       self.tag == other.tag && self.value == other.value

data/lib/marc4j4r/datafield.rb

@@ -13,11 +13,7 @@ module MARC4J4R
     
     alias_method :oldinit, :initialize
     def initialize(tag = nil, ind1 = ' ', ind2 = ' ')
-      if tag
-        self.oldinit(tag, ind1[0].ord, ind2[0].ord)
-      else 
-        self.oldinit
-      end
+      self.oldinit(tag, ind1[0].ord, ind2[0].ord)
     end
 
     def controlField?
@@ -91,7 +87,7 @@ module MARC4J4R
       end
       
       # Is it a singleton?
-      if not [Set, Array].include? code.class
+      unless code.is_a? Array
         code = [code]
       end
       

data/lib/marc4j4r/reader.rb

@@ -1,10 +1,33 @@
+import 'org.marc4j.ErrorHandler'
+require 'logger'
+$LOG ||= Logger.new(STDERR)
+
 module Java::OrgMarc4j::MarcReader
   include Enumerable
   
   # Return the next record, after calling #hashify on it
   def each(hashify=true)
     while self.hasNext
-      r = self.next
+      begin
+        r = self.next
+      # rescue  Java::org.marc4j.MarcException => e
+      rescue   org.marc4j.MarcException => e
+        unless self.methods.include? 'errors'
+          puts "#{e}"
+          raise e
+        end
+        self.errors.getErrors.each do |err|
+          case err.severity
+          when ErrorHandler::ERROR_TYPO, ErrorHandler::MINOR_ERROR, ErrorHandler::MAJOR_ERROR
+            $LOG.warn err.toString
+          when ErrorHandler::INFO
+            $LOG.info err.toString
+          when ErrorHandler::FATAL
+            $LOG.error err.toString
+            next # skip to the next record
+          end
+        end
+      end
       r.hashify if hashify
       yield r
     end
@@ -13,14 +36,13 @@ end
 
 
 module MARC4J4R
- 
-  # First, add Enumerable to the interface  
-  Java::org.marc4j.MarcReader.module_eval("include Enumerable")
-  
+   
   class Reader
 
     ENCODINGS = ['UTF-8', 'ISO-8859-1', 'MARC-8']
     ENCODING_ALIASES = {:utf8 => 'UTF-8', :marc8 => 'MARC-8', :iso => 'ISO-8859-1'}
+
+    # @attr_reader [File] handle The handle of the File (or IO) object being read from    
     attr_reader :handle  
 
   # Get a marc reader of the appropriate type
@@ -57,14 +79,18 @@ module MARC4J4R
       @handle = IOConvert.byteinstream(input)
       case type
       when :strictmarc then
+        Java::org.marc4j.MarcStreamReader.module_eval("include Enumerable")
         return Java::org.marc4j.MarcStreamReader.new(@handle, encoding)
       when :permissivemarc then
         encoding ||= 'BESTGUESS'
+        Java::org.marc4j.MarcPermissiveStreamReader.module_eval("include Enumerable")
         return Java::org.marc4j.MarcPermissiveStreamReader.new(@handle, true, true, encoding)
       when :marcxml then
+        Java::org.marc4j.MarcXmlReader.module_eval("include Enumerable")
         return Java::org.marc4j.MarcXmlReader.new(@handle)
       when :alephsequential then
-        return MARC4J4R::AlephSequentialReader.new(@handle)
+        Java::org.marc4j.MarcAlephSequentialReader.module_eval("include Enumerable")        
+        return Java::org.marc4j.MarcAlephSequentialReader.new(@handle)
       else
         raise ArgumentError, "Reader type #{type} illegal:  must be :strictmarc, :permissivemarc, :marcxml, or :alephsequential"
       end

data/lib/marc4j4r/record.rb

@@ -53,11 +53,12 @@ module MARC4J4R
     end
 
     # Set the leader
+    # @throw RuntimeError if leader is illegal
     def leader= str
       begin
         self.set_leader Java::org.marc4j.marc.impl.LeaderImpl.new(str)
-      rescue java.lang.StringIndexOutOfBoundsException => e
-        throw RuntimeError.new("'#{str}' not a legal leader: #{e.message}")
+      rescue Java::java.lang.StringIndexOutOfBoundsException => e
+        raise RuntimeError.new("'#{str}' not a legal leader: #{e.message}")
       end
     end
 
@@ -197,7 +198,11 @@ module MARC4J4R
   # Give a marc record in a string, turn it into an object
   # @param String str The record as a MARC binary string
   # @return MARC4J4R::Record The first record encoded in the string
-  def self.from_string str
+  #
+  # Note that the normal way of defining this class (self.from_string)
+  # didn't work; I assume it has something to do with the fact that
+  # it's actually jrst aliased to the Java class
+  def Record.from_string str
     return MARC4J4R::Reader.new(StringIO.new(str)).first
   end
   
@@ -205,7 +210,7 @@ module MARC4J4R
   # Give a marc-xml record in a string, turn it into an object
   # @param String str The record as a MARC-XML string
   # @return MARC4J4R::Record The first record encoded in the string
-  def self.from_xml_string str
+  def Record.from_xml_string str
     return MARC4J4R::Reader.new(StringIO.new(str), :marcxml).first
   end
   

data/lib/marc4j4r.rb

@@ -2,11 +2,21 @@ unless defined? JRUBY_VERSION
   raise "Only works under JRUBY"
 end
 
+require 'logger'
+$LOG ||= Logger.new(STDERR)
+
 begin
   include_class Java::org.marc4j.marc.impl.RecordImpl
 rescue NameError  => e
   jardir = File.join(File.dirname(__FILE__), '..', 'jars')
-  require "#{jardir}/marc4j.jar"
+  require "#{jardir}/javamarc.jar"
+end
+
+begin
+  include_class Java::org.marc4j.MarcAlephSequentialReader
+rescue
+  jardir = File.join(File.dirname(__FILE__), '..', 'jars')
+  require "#{jardir}/marc4j_serializations.jar"
 end
 
 # Define a method that will take a string (filename), IO object, or StringIO object,

data/spec/alephsequentialreader_spec.rb

@@ -0,0 +1,103 @@
+require 'spec_helper'
+
+import 'org.marc4j.ErrorHandler'
+
+describe "MarcAlephSequentialReader constructor" do
+  before do
+    @seqfile = 'spec/three.seq'
+  end
+  
+  it "should open a file" do
+    reader =  MARC4J4R::Reader.new(@seqfile, :alephsequential)
+    reader.class.should.equal Java::org.marc4j.MarcAlephSequentialReader
+  end
+  
+  it "delimits records correctly" do
+    reader =  MARC4J4R::Reader.new(@seqfile, :alephsequential)
+    reader.collect.size.should.equal 3
+  end
+end
+
+describe "MarcAlephSequentialReader record construction" do
+  before do
+    seqfile = 'spec/three.seq'
+    reader =  MARC4J4R::Reader.new(seqfile, :alephsequential)
+    @recs = reader.collect
+    
+  end
+
+  it "gets the correct IDs" do
+    @recs[0]['001'].value.should.equal '000004262'
+    @recs[1]['001'].value.should.equal '000005951'
+    @recs[2]['001'].value.should.equal '000009811'
+  end        
+
+  # Note that marc4j deals with teh length as an integer,
+  # so leading non-numerics get turned into zeros.
+  it "deals with leaders" do
+    @recs[0].leader.should.equal '00000nam^a22003011^^4500'
+    @recs[1].leader.should.equal '00000nam^a22002771^^4500'
+    @recs[2].leader.should.equal '00000nam^a22003251^^4500'
+  end
+  
+  it "deals with control fields" do
+    @recs[0]['008'].value.should.equal '880715r19721939nyua^^^^^b^^^^00100^eng^^'
+  end
+  
+  it "gets correct indicators" do
+    @recs[0]['050'].ind1.should.equal '0'
+    @recs[0]['050'].ind2.should.equal ' '
+  end
+  
+  it "deals with variable field values" do
+    @recs[0]['040']['a'].should.equal 'DLC'
+    @recs[0]['040']['c'].should.equal 'DLC'
+    @recs[0]['040']['d'].should.equal 'MiU'
+  end
+  
+  it "correctly adds multiple similar tags" do
+    @recs[0].find_by_tag('035').size.should.equal 4
+  end
+  
+end
+
+describe "MarcAlephSequentialReader error handling" do
+  
+  it "should bail on a bad file" do
+    lambda{
+      reader =  MARC4J4R::Reader.new('spec/dne', :alephsequential)
+    }.should.raise Java::java.io.IOException
+  end
+    
+  
+  it "should fail to read a non-aleph-seq file" do
+    lambda {
+      reader =  MARC4J4R::Reader.new('spec/batch.xml', :alephsequential)
+    }.should.raise Java::org.marc4j.MarcException
+  end
+  
+  it "should produce a minor error for bad indicators" do
+    reader =  MARC4J4R::Reader.new('spec/errors.seq', :alephsequential)
+    r = reader.next
+    err = reader.errors.getErrors
+    e = err[0]
+    e.severity.should.equal ErrorHandler::MINOR_ERROR
+    e.to_string.should.match /first indicator/
+    e = err[1]
+    e.severity.should.equal ErrorHandler::MINOR_ERROR
+    e.to_string.should.match /second indicator/
+  end
+    
+  it "should produce a major error for poorly-formed variable field" do
+    reader =  MARC4J4R::Reader.new('spec/errors.seq', :alephsequential)
+    r = reader.next
+    r = reader.next # second record
+    err = reader.errors.getErrors
+    e = err[0]
+    e.severity.should.equal ErrorHandler::MAJOR_ERROR
+    e.to_string.should.match /malformed/i
+  end
+  
+end
+
+  

data/spec/bad.dat

@@ -0,0 +1 @@
+00734njm a2200217uu 450000100150000009007001500036008004100051010001900092040001300111245006800124260002600192300005600218651004500274700005400319700005500373700003000428852005000458852000800508afc99990058366DLC20071104155141.9sd ummunniauub071103s1939    xxufmnne||||||||| u eng||  aafc99990058366  aDLCcDLC04aThe Texas rangerh[sound recording] /cSung by Beale D. Taylor.  aMedina, Texas,c1939.  a1 sound disc :banalog, 33 1/3 rpm, mono. ;c12 in. 0aMedinazTexaszUnited States of America.1 aLomax, John Avery, 1867-1948eRecording engineer.1 aLomax, Ruby T. (Ruby Terrill)eRecording engineer.1 aTaylor, Beale D.eSinger.  aAmerican Folklife Center, Library of Congress  aDLC

data/spec/badbatch.dat

@@ -0,0 +1 @@
+00755cam  22002414a 4500001001300000003000600013005001700019008004100036010001700077020004300094040001800137042000800155050002600163082001700189100003100206245005400237260004200291300007200333500003300405650003700438630002500475630001300500fol05731351 IMchF20000613133448.0000107s2000    nyua          001 0 eng    a   00020737   a0471383147 (paper/cd-rom : alk. paper)  aDLCcDLCdDLC  apcc00aQA76.73.P22bM33 200000a005.13/32211 aMartinsson, Tobias,d1976-10aActivePerl with ASP and ADO /cTobias Martinsson.  aNew York :bJohn Wiley & Sons,c2000.  axxi, 289 p. :bill. ;c23 cm. +e1 computer  laser disc (4 3/4 in.)  a"Wiley Computer Publishing." 0aPerl (Computer program language)00aActive server pages.00aActiveX.00647pam  2200241 a 4500001001300000003000600013005001700019008004100036010001700077020001500094040001800109042000800127050002600135082001500161100002600176245006700202260003800269263000900307300001100316650003700327650002500364700001600389fol05754809 IMchF20000601115601.0000203s2000    mau           001 0 eng    a   00022023   a1565926994  aDLCcDLCdDLC  apcc00aQA76.73.P22bD47 200000a005.742211 aDescartes, Alligator.10aProgramming the Perl DBI /cAlligator Descartes and Tim Bunce.  aCmabridge, MA :bO'Reilly,c2000.  a1111  ap. cm. 0aPerl (Computer program language) 0aDatabase management.1 aBunce, Tim.00605cam  22002054a 4500001001300000003000600013005001700019008004100036010001700077040001800094042000800112050002700120082001700147100002100164245005500185260004500240300002600285504005100311650003700362fol05843555 IMchF20000525142739.0000318s1999    cau      b    001 0 eng    a   00501349   aDLCcDLCdDLC  apcc00aQA76.73.P22bB763 199900a005.13/32211 aBrown, Martin C.10aPerl :bprogrammer's reference /cMartin C. Brown.  aBerkeley :bOsborne/McGraw-Hill,cc1999.  axix, 380 p. ;c22 cm.  aIncludes bibliographical references and index. 0aPerl (Computer program language)00579cam  22002054a 4500001001300000003000600013005001700019008004100036010001700077020001500094040001800109042000800127050002700135082001700162100002100179245005500200260004500255300003600300650003700336fol05843579 IMchF20000525142716.0000318s1999    caua          001 0 eng    a   00502116   a0072120002  aDLCcDLCdDLC  apcc00aQA76.73.P22bB762 199900a005.13/32211 aBrown, Martin C.10aPerl :bthe complete reference /cMartin C. Brown.  aBerkeley :bOsborne/McGraw-Hill,cc1999.  axxxv, 1179 p. :bill. ;c24 cm. 0aPerl (Computer program language)00801nam  22002778a 4500001001300000003000600013005001700019008004100036010001700077020001500094040001300109042000800122050002600130082001800156100002000174245008800194250003200282260004100314263000900355300001100364650003700375650003600412650002600448700002500474700002400499fol05848297 IMchF20000524125727.0000518s2000    mau           001 0 eng    a   00041664   a1565924193  aDLCcDLC  apcc00aQA76.73.P22bG84 200000a005.2/7622211 aGuelich, Scott.10aCGI programming with Perl /cScott Guelich, Shishir Gundavaram & Gunther Birznieks.  a2nd ed., expanded & updated  aCambridge, Mass. :bO'Reilly,c2000.  a0006  ap. cm. 0aPerl (Computer program language) 0aCGI (Computer network protocol) 0aInternet programming.1 aGundavaram, Shishir.1 aBirznieks, Gunther.00665nam  22002298a 4500001001300000003000600013005001700019008004100036010001700077020001500094040001300109042000800122050002700130082001700157111005200174245008600226250001200312260004100324263000900365300001100374650005000385fol05865950 IMchF20000615103017.0000612s2000    mau           100 0 eng    a   00055759   a0596000138  aDLCcDLC  apcc00aQA76.73.P22bP475 200000a005.13/32212 aPerl Conference 4.0d(2000 :cMonterey, Calif.)10aProceedings of the Perl Conference 4.0 :bJuly 17-20, 2000, Monterey, California.  a1st ed.  aCambridge, Mass. :bO'Reilly,c2000.  a0006  ap. cm. 0aPerl (Computer program language)  22002178a 4500001001300000003000600013005001700019008004100036010001700077020001500094040001300109042000800122050002600130082001700156100002800173245006200201260004100263263000900304300001100313650003700324fol05865956 IMchF20000615102948.0000612s2000    mau           000 0 eng    a   00055770   a1565926099  aDLCcDLC  apcc00aQA76.73.P22bB43 200000a005.13/32211 aBlank-Edelman, David N.10aPerl for system administration /cDavid N. Blank-Edelman.  aCambridge, Mass. :bO'Reilly,c2000.  a0006  ap. cm. 0aPerl (Computer program language)00661nam  22002538a 4500001001300000003000600013005001700019008004100036010001700077020001500094040001300109042000800122050002600130082001700156100001700173245006700190250001200257260004100269263000900310300001100319650003700330700002300367700001700390fol05865967 IMchF20000615102611.0000614s2000    mau           000 0 eng    a   00055799   a0596000278  aDLCcDLC  apcc00aQA76.73.P22bW35 200000a005.13/32211 aWall, Larry.10aProgramming Perl /cLarry Wall, Tom Christiansen & Jon Orwant.  a3rd ed.  aCambridge, Mass. :bO'Reilly,c2000.  a0007  ap. cm. 0aPerl (Computer program language)1 aChristiansen, Tom.1 aOrwant, Jon.00603cam  22002054a 4500001001300000003000600013005001700019008004100036010001700077020001500094040001800109042000800127050002600135082001700161100003200178245006000210260005700270300003300327650003700360fol05872355 IMchF20000706095105.0000315s1999    njua          001 0 eng    a   00500678   a013020868X  aDLCcDLCdDLC  apcc00aQA76.73.P22bL69 199900a005.13/32211 aLowe, Vincentq(Vincent D.)10aPerl programmer's interactive workbook /cVincent Lowe.  aUpper Saddle River, NJ :bPrentice Hall PTP,cc1999.  axx, 633 p. :bill. ;c23 cm. 0aPerl (Computer program language)00696nam  22002538a 4500001001300000003000600013005001700019008004100036010001700077020002800094040001300122042000800135050002600143082001700169100002600186245004400212260005100256263000900307300001100316500002000327650003700347650001700384650004100401fol05882032 IMchF20000707091904.0000630s2000    cau           001 0 eng    a   00058174   a0764547291 (alk. paper)  aDLCcDLC  apcc00aQA76.73.P22bF64 200000a005.13/32212 aFoster-Johnson, Eric.10aCross-platform Perl /cEric F. Johnson.  aFoster City, CA :bIDG Books Worldwide,c2000.  a0009  ap. cm.  aIncludes index. 0aPerl (Computer program language) 0aWeb servers. 0aCross-platform software development.

data/spec/badbatch.xml

@@ -0,0 +1,13 @@
+<?xml version='1.0'?>
+<collection xmlns='http://www.loc.gov/MARC21/slim' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xsi:schemaLocation='http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd'>
+<record><leader>00755cam  22002414a 4500</leader><controlfield tag='001'>fol05731351 </controlfield><controlfield tag='003'>IMchF</controlfield><controlfield tag='005'>20000613133448.0</controlfield><controlfield tag='008'>000107s2000    nyua          001 0 eng  </controlfield><datafield tag='010' ind1=' ' ind2=' '><subfield code='a'>   00020737 </subfield></datafield><datafield tag='020' ind1=' ' ind2=' '><subfield code='a'>0471383147 (paper/cd-rom : alk. paper)</subfield></datafield><datafield tag='040' ind1=' ' ind2=' '><subfield code='a'>DLC</subfield><subfield code='c'>DLC</subfield><subfield code='d'>DLC</subfield></datafield><datafield tag='042' ind1=' ' ind2=' '><subfield code='a'>pcc</subfield></datafield><datafield tag='050' ind1='0' ind2='0'><subfield code='a'>QA76.73.P22</subfield><subfield code='b'>M33 2000</subfield></datafield><datafield tag='082' ind1='0' ind2='0'><subfield code='a'>005.13/3</subfield><subfield code='2'>21</subfield></datafield><datafield tag='100' ind1='1' ind2=' '><subfield code='a'>Martinsson, Tobias,</subfield><subfield code='d'>1976-</subfield></datafield><datafield tag='245' ind1='1' ind2='0'><subfield code='a'>ActivePerl with ASP and ADO /</subfield><subfield code='c'>Tobias Martinsson.</subfield></datafield><datafield tag='260' ind1=' ' ind2=' '><subfield code='a'>New York :</subfield><subfield code='b'>John Wiley &amp; Sons,</subfield><subfield code='c'>2000.</subfield></datafield><datafield tag='300' ind1=' ' ind2=' '><subfield code='a'>xxi, 289 p. :</subfield><subfield code='b'>ill. ;</subfield><subfield code='c'>23 cm. +</subfield><subfield code='e'>1 computer  laser disc (4 3/4 in.)</subfield></datafield><datafield tag='500' ind1=' ' ind2=' '><subfield code='a'>&quot;Wiley Computer Publishing.&quot;</subfield></datafield><datafield tag='650' ind1=' ' ind2='0'><subfield code='a'>Perl (Computer program language)</subfield></datafield><datafield tag='630' ind1='0' ind2='0'><subfield code='a'>Active server pages.</subfield></datafield><datafield tag='630' ind1='0' ind2='0'><subfield code='a'>ActiveX.</subfield></datafield></record>
+<record><leader>00647pam  2200241 a 4500</leader><controlfield tag='001'>fol05754809 </controlfield><controlfield tag='003'>IMchF</controlfield><controlfield tag='005'>20000601115601.0</controlfield><controlfield tag='008'>000203s2000    mau           001 0 eng  </controlfield><datafield tag='010' ind1=' ' ind2=' '><subfield code='a'>   00022023 </subfield></datafield><datafield tag='020' ind1=' ' ind2=' '><subfield code='a'>1565926994</subfield></datafield><datafield tag='040' ind1=' ' ind2=' '><subfield code='a'>DLC</subfield><subfield code='c'>DLC</subfield><subfield code='d'>DLC</subfield></datafield><datafield tag='042' ind1=' ' ind2=' '><subfield code='a'>pcc</subfield></datafield><datafield tag='050' ind1='0' ind2='0'><subfield code='a'>QA76.73.P22</subfield><subfield code='b'>D47 2000</subfield></datafield><datafield tag='082' ind1='0' ind2='0'><subfield code='a'>005.74</subfield><subfield code='2'>21</subfield></datafield><datafield tag='100' ind1='1' ind2=' '><subfield code='a'>Descartes, Alligator.</subfield></datafield><datafield tag='245' ind1='1' ind2='0'><subfield code='a'>Programming the Perl DBI /</subfield><subfield code='c'>Alligator Descartes and Tim Bunce.</subfield></datafield><datafield tag='260' ind1=' ' ind2=' '><subfield code='a'>Cmabridge, MA :</subfield><subfield code='b'>O&apos;Reilly,</subfield><subfield code='c'>2000.</subfield></datafield><datafield tag='263' ind1=' ' ind2=' '><subfield code='a'>1111</subfield></datafield><datafield tag='300' ind1=' ' ind2=' '><subfield code='a'>p. cm.</subfield></datafield><datafield tag='650' ind1=' ' ind2='0'><subfield code='a'>Perl (Computer program language)</subfield></datafield><datafield tag='650' ind1=' ' ind2='0'><subfield code='a'>Database management.</subfield></datafield><datafield tag='700' ind1='1' ind2=' '><subfield code='a'>Bunce, Tim.</subfield></datafield></record>
+<record><leader>00605cam  22002054a 4500</leader><controlfield tag='001'>fol05843555 </controlfield><controlfield tag='003'>IMchF</controlfield><controlfield tag='005'>20000525142739.0</controlfield><controlfield tag='008'>000318s1999    cau      b    001 0 eng  </controlfield><datafield tag='010' ind1=' ' ind2=' '><subfield code='a'>   00501349 </subfield></datafield><datafield tag='040' ind1=' ' ind2=' '><subfield code='a'>DLC</subfield><subfield code='c'>DLC</subfield><subfield code='d'>DLC</subfield></datafield><datafield tag='042' ind1=' ' ind2=' '><subfield code='a'>pcc</subfield></datafield><datafield tag='050' ind1='0' ind2='0'><subfield code='a'>QA76.73.P22</subfield><subfield code='b'>B763 1999</subfield></datafield><datafield tag='082' ind1='0' ind2='0'><subfield code='a'>005.13/3</subfield><subfield code='2'>21</subfield></datafield><datafield tag='100' ind1='1' ind2=' '><subfield code='a'>Brown, Martin C.</subfield></datafield><datafield tag='245' ind1='1' ind2='0'><subfield code='a'>Perl :</subfield><subfield code='b'>programmer&apos;s reference /</subfield><subfield code='c'>Martin C. Brown.</subfield></datafield><datafield tag='260' ind1=' ' ind2=' '><subfield code='a'>Berkeley :</subfield><subfield code='b'>Osborne/McGraw-Hill,</subfield><subfield code='c'>c1999.</subfield></datafield><datafield tag='300' ind1=' ' ind2=' '><subfield code='a'>xix, 380 p. ;</subfield><subfield code='c'>22 cm.</subfield></datafield><datafield tag='504' ind1=' ' ind2=' '><subfield code='a'>Includes bibliographical references and index.</subfield></datafield><datafield tag='650' ind1=' ' ind2='0'><subfield code='a'>Perl (Computer program language)</subfield></datafield></record>
+<record><leader>00579cam  22002054a 4500</leader><controlfield tag='001'>fol05843579 </controlfield><controlfield tag='003'>IMchF</controlfield><controlfield tag='005'>20000525142716.0</controlfield><controlfield tag='008'>000318s1999    caua          001 0 eng  </controlfield><datafield tag='010' ind1=' ' ind2=' '><subfield code='a'>   00502116 </subfield></datafield><datafield tag='020' ind1=' ' ind2=' '><subfield code='a'>0072120002</subfield></datafield><datafield tag='040' ind1=' ' ind2=' '><subfield code='a'>DLC</subfield><subfield code='c'>DLC</subfield><subfield code='d'>DLC</subfield></datafield><datafield tag='042' ind1=' ' ind2=' '><subfield code='a'>pcc</subfield></datafield><datafield tag='050' ind1='0' ind2='0'><subfield code='a'>QA76.73.P22</subfield><subfield code='b'>B762 1999</subfield></datafield><datafield tag='082' ind1='0' ind2='0'><subfield code='a'>005.13/3</subfield><subfield code='2'>21</subfield></datafield><datafield tag='100' ind1='1' ind2=' '><subfield code='a'>Brown, Martin C.</subfield></datafield><datafield tag='245' ind1='1' ind2='0'><subfield code='a'>Perl :</subfield><subfield code='b'>the complete reference /</subfield><subfield code='c'>Martin C. Brown.</subfield></datafield><datafield tag='260' ind1=' ' ind2=' '><subfield code='a'>Berkeley :</subfield><subfield code='b'>Osborne/McGraw-Hill,</subfield><subfield code='c'>c1999.</subfield></datafield><datafield tag='300' ind1=' ' ind2=' '><subfield code='a'>xxxv, 1179 p. :</subfield><subfield code='b'>ill. ;</subfield><subfield code='c'>24 cm.</subfield></datafield><datafield tag='650' ind1=' ' ind2='0'><subfield code='a'>Perl (Computer program language)</subfield></datafield></record>
+<record><leader>00801nam  00</leader><controlfield tag='001'>fol05848297 </controlfield><controlfield tag='003'>IMchF</controlfield><controlfield tag='005'>20000524125727.0</controlfield><controlfield tag='008'>000518s2000    mau           001 0 eng  </controlfield><datafield tag='010' ind1=' ' ind2=' '><subfield code='a'>   00041664 </subfield></datafield><datafield tag='020' ind1=' ' ind2=' '><subfield code='a'>1565924193</subfield></datafield><datafield tag='040' ind1=' ' ind2=' '><subfield code='a'>DLC</subfield><subfield code='c'>DLC</subfield></datafield><datafield tag='042' ind1=' ' ind2=' '><subfield code='a'>pcc</subfield></datafield><datafield tag='050' ind1='0' ind2='0'><subfield code='a'>QA76.73.P22</subfield><subfield code='b'>G84 2000</subfield></datafield><datafield tag='082' ind1='0' ind2='0'><subfield code='a'>005.2/762</subfield><subfield code='2'>21</subfield></datafield><datafield tag='100' ind1='1' ind2=' '><subfield code='a'>Guelich, Scott.</subfield></datafield><datafield tag='245' ind1='1' ind2='0'><subfield code='a'>CGI programming with Perl /</subfield><subfield code='c'>Scott Guelich, Shishir Gundavaram &amp; Gunther Birznieks.</subfield></datafield><datafield tag='250' ind1=' ' ind2=' '><subfield code='a'>2nd ed., expanded &amp; updated</subfield></datafield><datafield tag='260' ind1=' ' ind2=' '><subfield code='a'>Cambridge, Mass. :</subfield><subfield code='b'>O&apos;Reilly,</subfield><subfield code='c'>2000.</subfield></datafield><datafield tag='263' ind1=' ' ind2=' '><subfield code='a'>0006</subfield></datafield><datafield tag='300' ind1=' ' ind2=' '><subfield code='a'>p. cm.</subfield></datafield><datafield tag='650' ind1=' ' ind2='0'><subfield code='a'>Perl (Computer program language)</subfield></datafield><datafield tag='650' ind1=' ' ind2='0'><subfield code='a'>CGI (Computer network protocol)</subfield></datafield><datafield tag='650' ind1=' ' ind2='0'><subfield code='a'>Internet programming.</subfield></datafield><datafield tag='700' ind1='1' ind2=' '><subfield code='a'>Gundavaram, Shishir.</subfield></datafield><datafield tag='700' ind1='1' ind2=' '><subfield code='a'>Birznieks, Gunther.</subfield></datafield></record>
+<record><leader>00665nam  22002298a 4500</leader><controlfield tag='001'>fol05865950 </controlfield><controlfield tag='003'>IMchF</controlfield><controlfield tag='005'>20000615103017.0</controlfield><controlfield tag='008'>000612s2000    mau           100 0 eng  </controlfield><datafield tag='010' ind1=' ' ind2=' '><subfield code='a'>   00055759 </subfield></datafield><datafield tag='020' ind1=' ' ind2=' '><subfield code='a'>0596000138</subfield></datafield><datafield tag='040' ind1=' ' ind2=' '><subfield code='a'>DLC</subfield><subfield code='c'>DLC</subfield></datafield><datafield tag='042' ind1=' ' ind2=' '><subfield code='a'>pcc</subfield></datafield><datafield tag='050' ind1='0' ind2='0'><subfield code='a'>QA76.73.P22</subfield><subfield code='b'>P475 2000</subfield></datafield><datafield tag='082' ind1='0' ind2='0'><subfield code='a'>005.13/3</subfield><subfield code='2'>21</subfield></datafield><datafield tag='111' ind1='2' ind2=' '><subfield code='a'>Perl Conference 4.0</subfield><subfield code='d'>(2000 :</subfield><subfield code='c'>Monterey, Calif.)</subfield></datafield><datafield tag='245' ind1='1' ind2='0'><subfield code='a'>Proceedings of the Perl Conference 4.0 :</subfield><subfield code='b'>July 17-20, 2000, Monterey, California.</subfield></datafield><datafield tag='250' ind1=' ' ind2=' '><subfield code='a'>1st ed.</subfield></datafield><datafield tag='260' ind1=' ' ind2=' '><subfield code='a'>Cambridge, Mass. :</subfield><subfield code='b'>O&apos;Reilly,</subfield><subfield code='c'>2000.</subfield></datafield><datafield tag='263' ind1=' ' ind2=' '><subfield code='a'>0006</subfield></datafield><datafield tag='300' ind1=' ' ind2=' '><subfield code='a'>p. cm.</subfield></datafield><datafield tag='650' ind1=' ' ind2='0'><subfield code='a'>Perl (Computer program language)</subfield><subfield code='v'>Congresses.</subfield></datafield></record>
+<record><leader>00579nam  22002178a 4500</leader><controlfield tag='001'>fol05865956 </controlfield><controlfield tag='003'>IMchF</controlfield><controlfield tag='005'>20000615102948.0</controlfield><controlfield tag='008'>000612s2000    mau           000 0 eng  </controlfield><datafield tag='010' ind1=' ' ind2=' '><subfield code='a'>   00055770 </subfield></datafield><datafield tag='020' ind1=' ' ind2=' '><subfield code='a'>1565926099</subfield></datafield><datafield tag='040' ind1=' ' ind2=' '><subfield code='a'>DLC</subfield><subfield code='c'>DLC</subfield></datafield><datafield tag='042' ind1=' ' ind2=' '><subfield code='a'>pcc</subfield></datafield><datafield tag='050' ind1='0' ind2='0'><subfield code='a'>QA76.73.P22</subfield><subfield code='b'>B43 2000</subfield></datafield><datafield tag='082' ind1='0' ind2='0'><subfield code='a'>005.13/3</subfield><subfield code='2'>21</subfield></datafield><datafield tag='100' ind1='1' ind2=' '><subfield code='a'>Blank-Edelman, David N.</subfield></datafield><datafield tag='245' ind1='1' ind2='0'><subfield code='a'>Perl for system administration /</subfield><subfield code='c'>David N. Blank-Edelman.</subfield></datafield><datafield tag='260' ind1=' ' ind2=' '><subfield code='a'>Cambridge, Mass. :</subfield><subfield code='b'>O&apos;Reilly,</subfield><subfield code='c'>2000.</subfield></datafield><datafield tag='263' ind1=' ' ind2=' '><subfield code='a'>0006</subfield></datafield><datafield tag='300' ind1=' ' ind2=' '><subfield code='a'>p. cm.</subfield></datafield><datafield tag='650' ind1=' ' ind2='0'><subfield code='a'>Perl (Computer program language)</subfield></datafield></record>
+<record><leader>00661nam  22002538a 4500</leader><controlfield tag='001'>fol05865967 </controlfield><controlfield tag='003'>IMchF</controlfield><controlfield tag='005'>20000615102611.0</controlfield><controlfield tag='008'>000614s2000    mau           000 0 eng  </controlfield><datafield tag='010' ind1=' ' ind2=' '><subfield code='a'>   00055799 </subfield></datafield><datafield tag='020' ind1=' ' ind2=' '><subfield code='a'>0596000278</subfield></datafield><datafield tag='040' ind1=' ' ind2=' '><subfield code='a'>DLC</subfield><subfield code='c'>DLC</subfield></datafield><datafield tag='042' ind1=' ' ind2=' '><subfield code='a'>pcc</subfield></datafield><datafield tag='050' ind1='0' ind2='0'><subfield code='a'>QA76.73.P22</subfield><subfield code='b'>W35 2000</subfield></datafield><datafield tag='082' ind1='0' ind2='0'><subfield code='a'>005.13/3</subfield><subfield code='2'>21</subfield></datafield><datafield tag='100' ind1='1' ind2=' '><subfield code='a'>Wall, Larry.</subfield></datafield><datafield tag='245' ind1='1' ind2='0'><subfield code='a'>Programming Perl /</subfield><subfield code='c'>Larry Wall, Tom Christiansen &amp; Jon Orwant.</subfield></datafield><datafield tag='250' ind1=' ' ind2=' '><subfield code='a'>3rd ed.</subfield></datafield><datafield tag='260' ind1=' ' ind2=' '><subfield code='a'>Cambridge, Mass. :</subfield><subfield code='b'>O&apos;Reilly,</subfield><subfield code='c'>2000.</subfield></datafield><datafield tag='263' ind1=' ' ind2=' '><subfield code='a'>0007</subfield></datafield><datafield tag='300' ind1=' ' ind2=' '><subfield code='a'>p. cm.</subfield></datafield><datafield tag='650' ind1=' ' ind2='0'><subfield code='a'>Perl (Computer program language)</subfield></datafield><datafield tag='700' ind1='1' ind2=' '><subfield code='a'>Christiansen, Tom.</subfield></datafield><datafield tag='700' ind1='1' ind2=' '><subfield code='a'>Orwant, Jon.</subfield></datafield></record>
+<record><leader>00603cam  22002054a 4500</leader><controlfield tag='001'>fol05872355 </controlfield><controlfield tag='003'>IMchF</controlfield><controlfield tag='005'>20000706095105.0</controlfield><controlfield tag='008'>000315s1999    njua          001 0 eng  </controlfield><datafield tag='010' ind1=' ' ind2=' '><subfield code='a'>   00500678 </subfield></datafield><datafield tag='020' ind1=' ' ind2=' '><subfield code='a'>013020868X</subfield></datafield><datafield tag='040' ind1=' ' ind2=' '><subfield code='a'>DLC</subfield><subfield code='c'>DLC</subfield><subfield code='d'>DLC</subfield></datafield><datafield tag='042' ind1=' ' ind2=' '><subfield code='a'>pcc</subfield></datafield><datafield tag='050' ind1='0' ind2='0'><subfield code='a'>QA76.73.P22</subfield><subfield code='b'>L69 1999</subfield></datafield><datafield tag='082' ind1='0' ind2='0'><subfield code='a'>005.13/3</subfield><subfield code='2'>21</subfield></datafield><datafield tag='100' ind1='1' ind2=' '><subfield code='a'>Lowe, Vincent</subfield><subfield code='q'>(Vincent D.)</subfield></datafield><datafield tag='245' ind1='1' ind2='0'><subfield code='a'>Perl programmer&apos;s interactive workbook /</subfield><subfield code='c'>Vincent Lowe.</subfield></datafield><datafield tag='260' ind1=' ' ind2=' '><subfield code='a'>Upper Saddle River, NJ :</subfield><subfield code='b'>Prentice Hall PTP,</subfield><subfield code='c'>c1999.</subfield></datafield><datafield tag='300' ind1=' ' ind2=' '><subfield code='a'>xx, 633 p. :</subfield><subfield code='b'>ill. ;</subfield><subfield code='c'>23 cm.</subfield></datafield><datafield tag='650' ind1=' ' ind2='0'><subfield code='a'>Perl (Computer program language)</subfield></datafield></record>
+<record><leader>00696nam  22002538a 4500</leader><controlfield tag='001'>fol05882032 </controlfield><controlfield tag='003'>IMchF</controlfield><controlfield tag='005'>20000707091904.0</controlfield><controlfield tag='008'>000630s2000    cau           001 0 eng  </controlfield><datafield tag='010' ind1=' ' ind2=' '><subfield code='a'>   00058174 </subfield></datafield><datafield tag='020' ind1=' ' ind2=' '><subfield code='a'>0764547291 (alk. paper)</subfield></datafield><datafield tag='040' ind1=' ' ind2=' '><subfield code='a'>DLC</subfield><subfield code='c'>DLC</subfield></datafield><datafield tag='042' ind1=' ' ind2=' '><subfield code='a'>pcc</subfield></datafield><datafield tag='050' ind1='0' ind2='0'><subfield code='a'>QA76.73.P22</subfield><subfield code='b'>F64 2000</subfield></datafield><datafield tag='082' ind1='0' ind2='0'><subfield code='a'>005.13/3</subfield><subfield code='2'>21</subfield></datafield><datafield tag='100' ind1='2' ind2=' '><subfield code='a'>Foster-Johnson, Eric.</subfield></datafield><datafield tag='245' ind1='1' ind2='0'><subfield code='a'>Cross-platform Perl /</subfield><subfield code='c'>Eric F. Johnson.</subfield></datafield><datafield tag='260' ind1=' ' ind2=' '><subfield code='a'>Foster City, CA :</subfield><subfield code='b'>IDG Books Worldwide,</subfield><subfield code='c'>2000.</subfield></datafield><datafield tag='263' ind1=' ' ind2=' '><subfield code='a'>0009</subfield></datafield><datafield tag='300' ind1=' ' ind2=' '><subfield code='a'>p. cm.</subfield></datafield><datafield tag='500' ind1=' ' ind2=' '><subfield code='a'>Includes index.</subfield></datafield><datafield tag='650' ind1=' ' ind2='0'><subfield code='a'>Perl (Computer program language)</subfield></datafield><datafield tag='650' ind1=' ' ind2='0'><subfield code='a'>Web servers.</subfield></datafield><datafield tag='650' ind1=' ' ind2='0'><subfield code='a'>Cross-platform software development.</subfield></datafield></record>
+</collection>

data/spec/controlfield_spec.rb

@@ -4,6 +4,7 @@ describe "MARC4J4R::ControlField basics" do
   it "can create a controlfield via the alias" do
     cf = MARC4J4R::ControlField.new('001')
     cf.tag.should.equal '001'
+    cf.controlField?.should.equal true
   end
   
   it "allows get/set of tag and value" do
@@ -12,6 +13,7 @@ describe "MARC4J4R::ControlField basics" do
     cf.value = 'Value'
     cf.tag.should.equal '001'
     cf.value.should.equal 'Value'
+    cf.to_s.should.equal '001    Value'
   end
   
   it "can create a cf with both arguments" do

data/spec/datafield_spec.rb

@@ -45,6 +45,18 @@ describe "MARC4J4R::DataField & SubField basics" do
     df.ind1.should.equal '0'
   end
   
+  it "is not a control field" do
+    df = MARC4J4R::DataField.new('010', '1', '2')
+    df.controlField?.should.equal false
+  end
+  
+  it "can create an empty df with blank constructor" do
+    df = MARC4J4R::DataField.new
+    df.tag.should.equal nil
+    df.ind1.should.equal ' '
+    df.ind2.should.equal ' '    
+  end
+  
   
   it "should defalt to spaces in ind1/ind2" do
     df = MARC4J4R::DataField.new('010')
@@ -53,4 +65,58 @@ describe "MARC4J4R::DataField & SubField basics" do
   end
 end
 
+describe "Datafield with subfields" do
+  begin
+    @df = MARC4J4R::DataField.new('010', '1', '2')
+    @a = MARC4J4R::SubField.new('a', 'one')
+    @b = MARC4J4R::SubField.new('b', 'two')
+    @df << @a
+    @df << @b
+  end
+  
+  it "works with subs" do
+    @df.subs.size.should.equal 2
+    @df.subs('a').should.equal [@a]
+    @df.subs('b').should.equal [@b]
+    @df.subs('c').should.equal []
+    @df.subs(['a', 'b']).sort{|a,b|a.code <=> b.code}.should.equal [@a,@b].sort{|a,b| a.code <=> b.code}
+  end
+    
+  it "gets values" do
+    @df.value.should.equal "one two"
+    @df.value('|').should.equal "one|two"
+    @df.sub_values('a').should.equal ['one']
+    @df.sub_values(['a', 'b']).should.equal ['one', 'two']
+    @df << MARC4J4R::SubField.new('a', 'three')
+    @df['a'].should.equal 'one'
+    @df['b'].should.equal 'two'
+    @df['c'].should.equal nil
+    @df.sub_values('a').should.equal ['one','three']
+  end
+end
 
+describe "SubFields" do
+  before do 
+    @df = MARC4J4R::DataField.new('010', '1', '2')
+    @a = MARC4J4R::SubField.new('a', 'one')
+    @df << @a
+  end
+  
+  it "should allow creation of subfield wiht any info" do
+    lambda{
+      sf = MARC4J4R::SubField.new('a', 'value')
+      sf = MARC4J4R::SubField.new('a')
+      sf = MARC4J4R::SubField.new()      
+    }.should.not.raise Exception
+  end
+  
+  it "should get/set" do
+    @a.code.should.equal 'a'
+    @a.value.should.equal 'one'
+    @a.data.should.equal 'one'
+    @a.value = 'two'
+    @a.value.should.equal 'two'
+    @a.code = 'b'
+    @a.code.should.equal 'b'
+  end
+end

data/spec/errors.seq

@@ -0,0 +1,118 @@
+000004262 LDR   L ^^^^^nam^a22003011^^4500
+000004262 001   L 000004262
+000004262 005   L 19891107000000.0
+000004262 006   L m^^^^^^^^d^^^^^^^^
+000004262 007   L cr^bn^---auaua
+000004262 008   L 880715r19721939nyua^^^^^b^^^^00100^eng^^
+000004262 010   L $$a72001885/MN
+000004262 020   L $$a0306705133
+000004262 035   L $$a(RLIN)MIUG0297757-B
+000004262 035#  L $$a(CaOTULAS)159822964
+000004262 035   L $$a(OCoLC)ocm00297757
+000004262 035   L $$asdr-inu1221428
+000004262 040 # L $$aDLC$$cDLC$$dMiU
+000004262 043   L $$an------
+000004262 0500  L $$aML3557$$b.D3645 1972
+000004262 082   L $$a784.7/51
+000004262 1001  L $$aDensmore, Frances,$$d1867-1957.
+000004262 24510 L $$aNootka and Quileute music.
+000004262 260   L $$aNew York,$$bDa Capo Press,$$c1972.
+000004262 300   L $$axxvi, 358 p.$$billus.$$c23 cm.
+000004262 4900  L $$aDa Capo Press music reprint series
+000004262 500   L $$aReprint of the 1939 ed., which was issued as Bulletin 124 of Smithsonian Institution. Bureau of American Ethnology.
+000004262 504   L $$aBibliography: p. 349.
+000004262 538   L $$aMode of access: Internet.
+000004262 650 0 L $$aNootka Indians$$xMusic.
+000004262 650 0 L $$aQuileute Indians$$xMusic.
+000004262 8520  L $$aMiU$$bMUSIC$$hML3557 .D4255 1972
+000004262 852   L $$ainu$$bSDR$$cINU
+000004262 970   L $$aBK$$bBook
+000004262 970   L $$aCE$$bElectronic Resource
+000004262 971   L $$aMiU
+000004262 972   L $$c20040625
+000004262 973   L $$aHT$$bavail_ht
+000004262 973   L $$aAC$$bavail_circ
+000004262 974   L $$uinu.30000053901769$$ric$$d20100226
+000004262 998   L $$s9665
+000005951 LDR   L ^^^^^nam^a22002771^^4500
+000005951 001   L 000005951
+000005951 005   L 19970922000000.0
+000005951 006   L m^^^^^^^^d^^^^^^^^
+000005951 007   L cr^bn^---auaua
+000005951 008   L 880715s1968^^^^dcu^^^^^^b^^^|00010^eng^c
+000005951 010   L ahew68000006
+000005951 035   L $$a(RLIN)MIUG0425743-B
+000005951 035   L $$a(CaOTULAS)159824865
+000005951 035   L $$a(OCoLC)ocm00425743
+000005951 035   L $$asdr-ucsc.b16458175
+000005951 040   L $$a*U.S. Dept. of Health Education, and Welfare. Li$$cDLC$$dMiU
+000005951 0500  L $$aHD7123$$b.A39 no. 22
+000005951 082   L $$a301.5/5
+000005951 1001  L $$aKreps, Juanita Morris.
+000005951 24510 L $$aLifetime allocation of work and leisure,$$cby Juanita M. Kreps.
+000005951 260   L $$a[Washington,$$bFor sale by Supt. of Docs., U.S. Govt. Print. Off.,$$c1968]
+000005951 300   L $$aix, 44 p.$$c24 cm.
+000005951 4901  L $$aUnited States. Social Security Administration. Office of Research and Statistics. Research report$$vno. 22
+000005951 504   L $$aBibliographical footnotes.
+000005951 538   L $$aMode of access: Internet.
+000005951 650 0 L $$aAge and employment
+000005951 650 0 L $$aRetirement
+000005951 830 0 L $$aResearch report (United States. Social Security Administration. Office of Research and Statistics) ;$$vno. 22
+000005951 8520  L $$aMiU$$bTAUB$$hHD6279 .K925
+000005951 8520  L $$aMiU$$bTAUB$$hHD 7123 .A28 no.22
+000005951 8520  L $$aMiU$$bBUHR$$cGRAD$$hHD 7123 .A28 no.22
+000005951 852   L $$auc1$$bSDR$$cUCSC
+000005951 970   L $$aBK$$bBook
+000005951 970   L $$aCE$$bElectronic Resource
+000005951 971   L $$aMiU
+000005951 972   L $$c20040625
+000005951 972   L $$c20040625
+000005951 972   L $$c20040625
+000005951 973   L $$aHT$$bavail_ht
+000005951 973   L $$aAC$$bavail_circ
+000005951 974   L $$umdp.39015038814847$$ric
+000005951 974   L $$umdp.39015072105847$$ric$$d20091001
+000005951 974   L $$zno.22$$uuc1.32106000924198$$ric$$d20091202
+000005951 998   L $$s9665
+000009811 LDR   L ^^^^^nam^a22003251^^4500
+000009811 001   L 000009811
+000009811 005   L 19970922000000.0
+000009811 006   L m^^^^^^^^d^^^^^^^^
+000009811 007   L cr^bn^---auaua
+000009811 008   L 880715s1971^^^^dcua^^^^^bs^^^00000^eng^^
+000009811 010   L $$a72179703
+000009811 035   L $$a(RLIN)MIUG0695316-B
+000009811 035   L $$a(CaOTULAS)159829127
+000009811 035   L $$a(OCoLC)ocm00695316
+000009811 035   L $$asdr-ucsc.b13985097
+000009811 040   L $$aDLC$$cDLC$$dMiU$$dCStRLIN
+000009811 043   L $$an-us---
+000009811 0500  L $$aHD7123$$b.A39 no. 37$$aHD7102.U4
+000009811 082   L $$a368.4/00973 s$$a368.4/2/00973
+000009811 086   L $$aII0 aHE 3.49:37
+000009811 1101  L $$aUnited States.$$bSocial Security Administration.$$bOffice of Research and Statistics.
+000009811 24510 L $$aFinancing mental health care under medicare and medicaid.
+000009811 260   L $$a[Washington;$$bFor sale by the Supt. of Docs., U.S. Govt. Print. Off.,$$c1971]
+000009811 300   L $$avii, 52 p.$$billus.$$c27 cm.
+000009811 4901  L $$aIts Research report$$vno. 37
+000009811 500   L $$aSupt. of Docs. no.: HE 3.49:37
+000009811 504   L $$aIncludes bibliographical references.
+000009811 538   L $$aMode of access: Internet.
+000009811 650 0 L $$aMental health insurance$$zUnited States.
+000009811 650 0 L $$aMedicare
+000009811 650 0 L $$aMedicaid
+000009811 830 0 L $$aResearch report (United States. Social Security Administration. Office of Research and Statistics) ;$$vno. 37
+000009811 8520  L $$aMiU$$bBUHR$$cGRAD$$hHD 7123 .A28 no.37
+000009811 8520  L $$aMiU$$bTAUB$$hHD 7123 .A28 no.37
+000009811 852   L $$auc1$$bSDR$$cUCSC
+000009811 970   L $$aBK$$bBook
+000009811 970   L $$aCE$$bElectronic Resource
+000009811 970   L $$aXS$$bStatistics
+000009811 971   L $$aMiU
+000009811 972   L $$c20040625
+000009811 972   L $$c20040625
+000009811 973   L $$aHT$$bavail_ht
+000009811 973   L $$aAC$$bavail_circ
+000009811 974   L $$zno.37$$umdp.39015004063635$$ric
+000009811 974   L $$zno.37$$uuc1.32106000924313$$ric$$d20091202
+000009811 998   L $$s9665

data/spec/record_spec.rb

@@ -32,6 +32,17 @@ describe "MARC4J4R_basic_retrieval_stuff" do
     @one.leader.should.equal "00734njm a2200217uu 4500"
   end
   
+  it "can set the leader" do
+    @one.leader = "00734njm  2200217uu 4500"
+    @one.leader.should.equal "00734njm  2200217uu 4500"
+  end
+  
+  it "disallows bad leaders" do
+    lambda{
+      @one.leader = 'Hello World'
+    }.should.raise RuntimeError
+  end
+  
   it "can read a control field correctly" do
     @one['001'].value.should.equal "afc99990058366"
   end
@@ -44,7 +55,10 @@ describe "MARC4J4R_basic_retrieval_stuff" do
   it "should get the first 245 for this record" do
     @one['245'].to_s.should.equal "245 04 $a The Texas ranger $h [sound recording] / $c Sung by Beale D. Taylor."
   end
-   
+  
+  it "finds nothing when there's nothign there" do
+    @one['035'].should.equal nil
+  end
 end
 
 describe "MARC4J4R::Record #find_by_tag" do
@@ -98,4 +112,9 @@ describe "MARC4J4R::Record #find_by_tag" do
     first = @one['700']
     @one.find_by_tag('700')[0].should.equal first
   end
+  
+  it "round trips binary and xml" do
+    MARC4J4R::Record.from_string(@one.to_marc).should.equal @one
+    MARC4J4R::Record.from_xml_string(@one.to_xml).should.equal @one
+  end
 end

data/spec/three.seq

@@ -0,0 +1,118 @@
+000004262 LDR   L ^^^^^nam^a22003011^^4500
+000004262 001   L 000004262
+000004262 005   L 19891107000000.0
+000004262 006   L m^^^^^^^^d^^^^^^^^
+000004262 007   L cr^bn^---auaua
+000004262 008   L 880715r19721939nyua^^^^^b^^^^00100^eng^^
+000004262 010   L $$a72001885/MN
+000004262 020   L $$a0306705133
+000004262 035   L $$a(RLIN)MIUG0297757-B
+000004262 035   L $$a(CaOTULAS)159822964
+000004262 035   L $$a(OCoLC)ocm00297757
+000004262 035   L $$asdr-inu1221428
+000004262 040   L $$aDLC$$cDLC$$dMiU
+000004262 043   L $$an------
+000004262 0500  L $$aML3557$$b.D3645 1972
+000004262 082   L $$a784.7/51
+000004262 1001  L $$aDensmore, Frances,$$d1867-1957.
+000004262 24510 L $$aNootka and Quileute music.
+000004262 260   L $$aNew York,$$bDa Capo Press,$$c1972.
+000004262 300   L $$axxvi, 358 p.$$billus.$$c23 cm.
+000004262 4900  L $$aDa Capo Press music reprint series
+000004262 500   L $$aReprint of the 1939 ed., which was issued as Bulletin 124 of Smithsonian Institution. Bureau of American Ethnology.
+000004262 504   L $$aBibliography: p. 349.
+000004262 538   L $$aMode of access: Internet.
+000004262 650 0 L $$aNootka Indians$$xMusic.
+000004262 650 0 L $$aQuileute Indians$$xMusic.
+000004262 8520  L $$aMiU$$bMUSIC$$hML3557 .D4255 1972
+000004262 852   L $$ainu$$bSDR$$cINU
+000004262 970   L $$aBK$$bBook
+000004262 970   L $$aCE$$bElectronic Resource
+000004262 971   L $$aMiU
+000004262 972   L $$c20040625
+000004262 973   L $$aHT$$bavail_ht
+000004262 973   L $$aAC$$bavail_circ
+000004262 974   L $$uinu.30000053901769$$ric$$d20100226
+000004262 998   L $$s9665
+000005951 LDR   L ^^^^^nam^a22002771^^4500
+000005951 001   L 000005951
+000005951 005   L 19970922000000.0
+000005951 006   L m^^^^^^^^d^^^^^^^^
+000005951 007   L cr^bn^---auaua
+000005951 008   L 880715s1968^^^^dcu^^^^^^b^^^|00010^eng^c
+000005951 010   L $$ahew68000006
+000005951 035   L $$a(RLIN)MIUG0425743-B
+000005951 035   L $$a(CaOTULAS)159824865
+000005951 035   L $$a(OCoLC)ocm00425743
+000005951 035   L $$asdr-ucsc.b16458175
+000005951 040   L $$a*U.S. Dept. of Health Education, and Welfare. Li$$cDLC$$dMiU
+000005951 0500  L $$aHD7123$$b.A39 no. 22
+000005951 082   L $$a301.5/5
+000005951 1001  L $$aKreps, Juanita Morris.
+000005951 24510 L $$aLifetime allocation of work and leisure,$$cby Juanita M. Kreps.
+000005951 260   L $$a[Washington,$$bFor sale by Supt. of Docs., U.S. Govt. Print. Off.,$$c1968]
+000005951 300   L $$aix, 44 p.$$c24 cm.
+000005951 4901  L $$aUnited States. Social Security Administration. Office of Research and Statistics. Research report$$vno. 22
+000005951 504   L $$aBibliographical footnotes.
+000005951 538   L $$aMode of access: Internet.
+000005951 650 0 L $$aAge and employment
+000005951 650 0 L $$aRetirement
+000005951 830 0 L $$aResearch report (United States. Social Security Administration. Office of Research and Statistics) ;$$vno. 22
+000005951 8520  L $$aMiU$$bTAUB$$hHD6279 .K925
+000005951 8520  L $$aMiU$$bTAUB$$hHD 7123 .A28 no.22
+000005951 8520  L $$aMiU$$bBUHR$$cGRAD$$hHD 7123 .A28 no.22
+000005951 852   L $$auc1$$bSDR$$cUCSC
+000005951 970   L $$aBK$$bBook
+000005951 970   L $$aCE$$bElectronic Resource
+000005951 971   L $$aMiU
+000005951 972   L $$c20040625
+000005951 972   L $$c20040625
+000005951 972   L $$c20040625
+000005951 973   L $$aHT$$bavail_ht
+000005951 973   L $$aAC$$bavail_circ
+000005951 974   L $$umdp.39015038814847$$ric
+000005951 974   L $$umdp.39015072105847$$ric$$d20091001
+000005951 974   L $$zno.22$$uuc1.32106000924198$$ric$$d20091202
+000005951 998   L $$s9665
+000009811 LDR   L ^^^^^nam^a22003251^^4500
+000009811 001   L 000009811
+000009811 005   L 19970922000000.0
+000009811 006   L m^^^^^^^^d^^^^^^^^
+000009811 007   L cr^bn^---auaua
+000009811 008   L 880715s1971^^^^dcua^^^^^bs^^^00000^eng^^
+000009811 010   L $$a72179703
+000009811 035   L $$a(RLIN)MIUG0695316-B
+000009811 035   L $$a(CaOTULAS)159829127
+000009811 035   L $$a(OCoLC)ocm00695316
+000009811 035   L $$asdr-ucsc.b13985097
+000009811 040   L $$aDLC$$cDLC$$dMiU$$dCStRLIN
+000009811 043   L $$an-us---
+000009811 0500  L $$aHD7123$$b.A39 no. 37$$aHD7102.U4
+000009811 082   L $$a368.4/00973 s$$a368.4/2/00973
+000009811 086   L $$aII0 aHE 3.49:37
+000009811 1101  L $$aUnited States.$$bSocial Security Administration.$$bOffice of Research and Statistics.
+000009811 24510 L $$aFinancing mental health care under medicare and medicaid.
+000009811 260   L $$a[Washington;$$bFor sale by the Supt. of Docs., U.S. Govt. Print. Off.,$$c1971]
+000009811 300   L $$avii, 52 p.$$billus.$$c27 cm.
+000009811 4901  L $$aIts Research report$$vno. 37
+000009811 500   L $$aSupt. of Docs. no.: HE 3.49:37
+000009811 504   L $$aIncludes bibliographical references.
+000009811 538   L $$aMode of access: Internet.
+000009811 650 0 L $$aMental health insurance$$zUnited States.
+000009811 650 0 L $$aMedicare
+000009811 650 0 L $$aMedicaid
+000009811 830 0 L $$aResearch report (United States. Social Security Administration. Office of Research and Statistics) ;$$vno. 37
+000009811 8520  L $$aMiU$$bBUHR$$cGRAD$$hHD 7123 .A28 no.37
+000009811 8520  L $$aMiU$$bTAUB$$hHD 7123 .A28 no.37
+000009811 852   L $$auc1$$bSDR$$cUCSC
+000009811 970   L $$aBK$$bBook
+000009811 970   L $$aCE$$bElectronic Resource
+000009811 970   L $$aXS$$bStatistics
+000009811 971   L $$aMiU
+000009811 972   L $$c20040625
+000009811 972   L $$c20040625
+000009811 973   L $$aHT$$bavail_ht
+000009811 973   L $$aAC$$bavail_circ
+000009811 974   L $$zno.37$$umdp.39015004063635$$ric
+000009811 974   L $$zno.37$$uuc1.32106000924313$$ric$$d20091202
+000009811 998   L $$s9665

metadata

@@ -1,13 +1,13 @@
 --- !ruby/object:Gem::Specification 
 name: marc4j4r
 version: !ruby/object:Gem::Version 
-  hash: 59
+  hash: 23
   prerelease: false
   segments: 
+  - 1
   - 0
-  - 9
   - 0
-  version: 0.9.0
+  version: 1.0.0
 platform: ruby
 authors: 
 - BillDueber
@@ -15,7 +15,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-08-10 00:00:00 -04:00
+date: 2010-09-04 00:00:00 -04:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -55,29 +55,36 @@ extensions: []
 extra_rdoc_files: 
 - README.rdoc
 files: 
+- CHANGES
 - LICENSE
 - README.rdoc
 - Rakefile
 - VERSION
-- jars/marc4j.jar
+- jars/javamarc.jar
 - lib/marc4j4r.rb
 - lib/marc4j4r/controlfield.rb
 - lib/marc4j4r/datafield.rb
 - lib/marc4j4r/reader.rb
 - lib/marc4j4r/record.rb
 - lib/marc4j4r/writer.rb
+- spec/alephsequentialreader_spec.rb
+- spec/bad.dat
+- spec/badbatch.dat
+- spec/badbatch.xml
 - spec/batch.dat
 - spec/batch.txt
 - spec/batch.xml
 - spec/chinese_utf8.dat
 - spec/controlfield_spec.rb
 - spec/datafield_spec.rb
+- spec/errors.seq
 - spec/one.dat
 - spec/one.txt
 - spec/one.xml
 - spec/reader_spec.rb
 - spec/record_spec.rb
 - spec/spec_helper.rb
+- spec/three.seq
 has_rdoc: true
 homepage: http://github.com/billdueber/javamarc/tree/master/ruby/marc4j4r/
 licenses: []