rbook 0.1

data/test/data/invalid_no_product.xml

@@ -0,0 +1,9 @@
+<?xml version='1.0'?>
+<!DOCTYPE ONIXMessage SYSTEM "http://www.editeur.org/onix/2.1/reference/onix-international.dtd">
+<ONIXMessage>
+  <Header>
+    <FromCompany>Schwartz Publishing Pty Ltd</FromCompany>
+    <FromPerson>James Healy</FromPerson>
+    <SentDate>20060522</SentDate>
+  </Header>
+</ONIXMessage>

data/test/data/not_xml.csv

@@ -0,0 +1 @@
+"this file is not XML","Remind you of 1990?"

data/test/data/single_product.xml

@@ -0,0 +1,50 @@
+<?xml version='1.0'?>
+<!DOCTYPE ONIXMessage SYSTEM "http://www.editeur.org/onix/2.1/reference/onix-international.dtd">
+<ONIXMessage>
+  <Header>
+    <FromCompany>Chalice</FromCompany>
+    <FromPerson>James Healy</FromPerson>
+    <SentDate>20060521</SentDate>
+  </Header>
+  <Product>
+    <RecordReference>0827200528</RecordReference>
+    <NotificationType>03</NotificationType>
+    <ProductIdentifier>
+      <ProductIDType>02</ProductIDType>
+      <IDValue>0827200528</IDValue>
+    </ProductIdentifier>
+    <ProductForm>BA</ProductForm>
+    <NoSeries/>
+    <Title>
+      <TitleType>01</TitleType>
+      <TitleText>And Their Eyes Are Opened</TitleText>
+      <Subtitle>Story Sermons Embracing the World</Subtitle>
+    </Title>
+    <Contributor>
+      <SequenceNumber>0</SequenceNumber>
+      <ContributorRole>A01</ContributorRole>
+      <PersonNameInverted>Healy, James</PersonNameInverted>
+    </Contributor>
+    <NoEdition/>
+    <BICMainSubject>YFH</BICMainSubject>
+    <NumberOfPages>0</NumberOfPages>
+    <Publisher>
+      <PublishingRole>01</PublishingRole>
+      <PublisherName>Chalice</PublisherName>
+    </Publisher>
+    <PublicationDate>20050303</PublicationDate>
+    <SalesRestriction>
+      <SalesRestrictionType>00</SalesRestrictionType>
+      <SalesRestrictionDetail>Unknown</SalesRestrictionDetail>
+    </SalesRestriction>
+    <SupplyDetail>
+      <SupplierName>Chalice</SupplierName>
+      <AvailabilityCode>CS</AvailabilityCode>
+      <IntermediaryAvailabilityCode>99</IntermediaryAvailabilityCode>
+      <Price>
+        <PriceTypeCode>02</PriceTypeCode>
+        <PriceAmount>29.95</PriceAmount>
+      </Price>
+    </SupplyDetail>
+  </Product>
+</ONIXMessage>

data/test/data/xml_not_onix.xml

@@ -0,0 +1,7 @@
+<?xml version='1.0'?>
+<root>
+  <tag1/>
+  <tag2>Some Data</tag2>
+  <tag3 attr1="cliche">Hello World</tag3>
+  <tag4 attr2="for completeness" />
+</root>

data/test/mocks/titlepage_driver.rb

@@ -0,0 +1,107 @@
+require 'digest/md5'
+require 'soap/soap'
+
+# A mock object to assist with testing the titlepage API wrapper
+class MockTitlePageDriver
+
+  def initialize
+    @username = "test"
+    @password = "apa"
+  end
+
+  def login(username, password)
+    if username.eql?(@username) && password.eql?(@password)
+      @token = Digest::MD5.hexdigest(Time.now.to_s)
+      return @token
+    else
+      raise SOAP::FaultError, SOAP::SOAPFault.new
+    end
+  end
+
+  def logout(token)
+    if token.eql?(@token)
+      @token = nil
+      return true
+    end
+  end
+
+  def SearchByEAN(token, isbn)
+    if !token.eql?(@token)
+      return nil
+    elsif isbn.eql?("9780091835132")
+      return fight_club
+    elsif isbn.eql?("9780672327568")
+      return postgresql
+    else
+      return no_match(isbn)
+    end
+  end
+
+private
+
+  def fight_club
+    result = SearchResults.new
+    result.EAN = "9780091835132" 
+    product = Product.new
+    author = Contributor.new
+    author.PersonNameInverted = "PALAHNIUK, CHUCK"
+    author.ContributorRole = "A01"
+    product.Contributors = [author]
+    title = Title.new
+    title.TitleType = "01"
+    title.TitleText = "Fight Club"
+    product.Title = title
+    supply = SupplyDetail.new
+    supply.ProductAvailability = "20"
+    supply.SupplierName = "Random House Australia"
+    stock = Stock.new
+    stock.OnHand = "In Stock"
+    stock.OnOrder = "0"
+    supply.Stock = stock
+    price = Price.new
+    price.PriceAmount = "23.95"
+    supply.Price = price
+    supply.PackQuantity = "48"
+    id = ProductIdentifier.new
+    id.ProductIDType = "03"
+    id.IDValue = "9780091835132"
+    result.Product = product
+    return result
+  end
+
+  def no_match(isbn)
+    result = SearchResults.new
+    result.EAN = isbn
+    return result
+  end
+  
+  def postgresql
+    result = SearchResults.new
+    result.EAN = "9780672327568" 
+    product = Product.new
+    author = Contributor.new
+    author.PersonNameInverted = "KORRY, DOUGLASS"
+    author.ContributorRole = "A01"
+    product.Contributors = [author]
+    title = Title.new
+    title.TitleType = "01"
+    title.TitleText = "PostgreSQL"
+    product.Title = title
+    supply = SupplyDetail.new
+    supply.ProductAvailability = "20"
+    supply.SupplierName = "United Book Distributors"
+    stock = Stock.new
+    stock.OnHand = "0"
+    stock.OnOrder = "0"
+    supply.Stock = stock
+    price = Price.new
+    price.PriceAmount = "69.95"
+    supply.Price = price
+    supply.PackQuantity = "48"
+    id = ProductIdentifier.new
+    id.ProductIDType = "03"
+    id.IDValue = "9780672327568"
+    result.Product = product
+    return result
+  end
+end

data/test/unit/bisac_test.rb

@@ -0,0 +1,57 @@
+$LOAD_PATH.unshift(File.dirname(__FILE__) + '/../../lib')
+
+require 'test/unit'
+require 'rbook/bisac'
+
+class BISACTest < Test::Unit::TestCase
+
+  def test_line_length
+  
+    bisac = RBook::Bisac.new("Rainbow","1234567","test","1")
+    bisac.add_item(valid_item_1) 
+    bisac.add_item(valid_item_2)
+
+    bisac.to_s.split("\n").each do |line|
+      assert_equal 259, line.length
+    end
+  end
+
+private
+
+  def valid_item_1
+    item = {}
+    item[:isbn] = "0743285689"
+    item[:title] = "Enemy Combatant"
+    item[:author] = "Begg, Moazzam"
+    item[:price] = "2995"
+    item[:pubdate] = "060101"
+    item[:publisher] = "Simon and Schuster"
+    item[:imprint] = "Free Press"
+    item[:volumes] = "1"
+    item[:edition] = "1"
+    item[:binding] = "PB"
+    item[:volume] = "1"
+    item[:status] = "O/O"
+    return item
+  end
+  
+  def valid_item_2
+    item = {}
+    item[:isbn] = "0975240277"
+    item[:title] = "HTML Utopia Designing Without Tables Using CSS"
+    item[:author] = "Andrew, Rachel; Shafer, Dan"
+    item[:price] = "5995"
+    item[:pubdate] = "060401"
+    item[:publisher] = "Sitepoint"
+    item[:imprint] = "Sitepoint"
+    item[:volumes] = "1"
+    item[:edition] = "2"
+    item[:binding] = "PB"
+    item[:volume] = "1"
+    item[:status] = "ACT"
+    return item
+  end
+
+end
+
+

data/test/unit/isbn_test.rb

@@ -0,0 +1,149 @@
+$LOAD_PATH.unshift(File.dirname(__FILE__) + '/../../lib')
+
+require 'test/unit'
+require 'rbook/isbn'
+
+class ISBNTest < Test::Unit::TestCase
+
+include RBook
+
+  def test_add_groups
+    assert_equal ISBN::add_groups('020161622X'), '0-20161-622-X'
+    assert_equal ISBN::add_groups('9780201616224'), '978-0-20161-622-4'
+    assert_equal ISBN::add_groups('invalId'), 'invalId'
+  end
+    
+  def test_add_groups_destructive
+    isbn = '020161622X'
+    new_isbn = ISBN::add_groups(isbn)
+    assert_equal( isbn, '020161622X')
+  
+    isbn = '978201616224'
+    new_isbn = ISBN::add_groups(isbn)
+    assert_equal( isbn, '978201616224')
+  end
+  
+  def test_add_boundaries
+    assert_equal ISBN::add_groups(''), ''
+    assert_equal ISBN::add_groups(nil), nil
+  end
+  
+  def test_valid_isbn10
+    assert_equal ISBN::valid_isbn10?('020161622X'), true
+    assert_equal ISBN::valid_isbn10?('020161622'), false
+    assert_equal ISBN::valid_isbn10?('023252565X'), true
+    assert_equal ISBN::valid_isbn10?('9780764812200'), false
+    assert_equal ISBN::valid_isbn10?('12345'), false
+    assert_equal ISBN::valid_isbn10?('12345 7890'), false
+    assert_equal ISBN::valid_isbn10?('CD-DSE'), false
+  end
+
+  def test_valid_isbn10_boundaries
+    assert_equal ISBN::valid_isbn10?(''), false
+    assert_equal ISBN::valid_isbn10?('11278217391827398217391723918723918'), false
+    assert_equal ISBN::valid_isbn10?(nil), false
+    assert_equal ISBN::valid_isbn10?(1234567890), false
+  end
+
+  def test_valid_isbn13
+    assert_equal ISBN::valid_isbn13?('9780201616224'), true
+    assert_equal ISBN::valid_isbn13?('978020161622'), false
+    assert_equal ISBN::valid_isbn13?('9780764812200'), true
+    assert_equal ISBN::valid_isbn13?('978076481220'), false
+    assert_equal ISBN::valid_isbn13?('978 NCR  4611'), false
+    assert_equal ISBN::valid_isbn13?('12345'), false
+    assert_equal ISBN::valid_isbn13?('CD-DSE'), false
+    assert_equal ISBN::valid_isbn13?('020161622X'), false
+  end
+
+  def test_valid_isbn13_boundaries
+    assert_equal ISBN::valid_isbn13?(''), false
+    assert_equal ISBN::valid_isbn13?('11278217391827398217391723918723918'), false
+    assert_equal ISBN::valid_isbn13?(nil), false
+    assert_equal ISBN::valid_isbn13?(9781234567890), false
+  end
+
+  def test_calc_isbn10_check
+    assert_equal ISBN::calc_isbn10_check('020161622'), 'X'
+    assert_equal ISBN::calc_isbn10_check('055299777'), '3'
+  end
+
+  def test_calc_isbn10_check_boundaries
+    assert_equal ISBN::calc_isbn10_check(''), nil
+    assert_equal ISBN::calc_isbn10_check(nil), nil
+    assert_equal ISBN::calc_isbn10_check(978020161622), nil
+    assert_equal ISBN::calc_isbn10_check(' - '), nil
+  end
+
+  def test_calc_isbn13_check
+    assert_equal ISBN::calc_isbn13_check('978020161622'), '4'
+    assert_equal ISBN::calc_isbn13_check('978055299777'), '5'
+  end
+  
+  def test_calc_isbn13_boundaries
+    assert_equal ISBN::calc_isbn13_check(''), nil
+    assert_equal ISBN::calc_isbn13_check(nil), nil
+    assert_equal ISBN::calc_isbn13_check(978020161622), nil
+    assert_equal ISBN::calc_isbn13_check(' - '), nil
+  end
+  
+  def test_convert_to_isbn10
+    #some random titles
+    assert_equal ISBN::convert_to_isbn10('9780764812200'), '0764812203'
+    assert_equal ISBN::convert_to_isbn10('9781856075336'), '1856075338'
+    assert_equal ISBN::convert_to_isbn10('9780232525656'), '023252565X'
+    assert_equal ISBN::convert_to_isbn10('9781863951340'), '1863951342'
+    assert_equal ISBN::convert_to_isbn10('978 NCR  4611'), nil
+    
+    # a 979 ISBN13 that can't be converted to isbn10
+    assert_equal ISBN::convert_to_isbn10('9791863951340'), nil
+    
+    # already isbn10
+    assert_equal ISBN::convert_to_isbn10('1856075338'), '1856075338'
+
+    # valid isbn without a checkdigit
+    assert_equal ISBN::convert_to_isbn10('185607533'), nil
+
+    #non valid isbns
+    assert_equal ISBN::convert_to_isbn10('AAAAAAA'), nil
+
+  end
+
+  def test_convert_to_isbn10_boundaries
+    assert_equal ISBN::convert_to_isbn13('  '), nil
+    assert_equal ISBN::convert_to_isbn13(nil), nil
+    assert_equal ISBN::convert_to_isbn13(120234203), nil
+    assert_equal ISBN::convert_to_isbn13('18273987123987129387192873912820234203'), nil
+  end
+
+  def test_convert_to_isbn13
+    #some random titles
+    assert_equal ISBN::convert_to_isbn13('0764812203'), '9780764812200'
+    assert_equal ISBN::convert_to_isbn13('1856075338'), '9781856075336'
+    assert_equal ISBN::convert_to_isbn13('023252565X'), '9780232525656'
+    assert_equal ISBN::convert_to_isbn13('1863951342'), '9781863951340'
+    assert_equal ISBN::convert_to_isbn13('186-395-134-2'), nil
+    
+    #already isbn13
+    assert_equal ISBN::convert_to_isbn13('9781856075336'), '9781856075336'
+    
+    # valid isbn without a check digit
+    assert_equal ISBN::convert_to_isbn13('978185607533'), nil
+    
+    #non valid isbns
+    assert_equal ISBN::convert_to_isbn13('651887010820'), nil
+    assert_equal ISBN::convert_to_isbn13('AAAAAAA'), nil
+    assert_equal ISBN::convert_to_isbn13('CX-188'), nil
+
+  end
+  
+  def test_convert_to_isbn13_boundaries
+    assert_equal ISBN::convert_to_isbn13('  '), nil
+    assert_equal ISBN::convert_to_isbn13(nil), nil
+    assert_equal ISBN::convert_to_isbn13(120234203), nil
+    assert_equal ISBN::convert_to_isbn13('18273987123987129387192873912820234203'), nil
+  end
+  
+end
+
+

data/test/unit/onix/contributor_test.rb

@@ -0,0 +1,50 @@
+$LOAD_PATH.unshift(File.dirname(__FILE__) + '/../../lib')
+
+require 'test/unit'
+require 'rexml/document'
+require 'rbook/onix'
+
+class ContributorTest < Test::Unit::TestCase
+
+  def test_load_from_element
+    
+    file = File.open(File.dirname(__FILE__)+"/../../data/single_product.xml", "r")
+    doc = REXML::Document.new(file)
+    contributor = RBook::Onix::Contributor.load_from_element(REXML::XPath.first(doc, '/ONIXMessage/Product/Contributor'))
+    
+    file.close
+
+    assert_equal('0', contributor.sequence_number)
+    assert_equal('A01', contributor.role)
+    assert_equal('Healy, James', contributor.name_inverted)
+  end
+
+  def test_load_from_element_not_contributor
+
+    element = REXML::Element.new('NonContributor')
+    element.add_element('SequenceNumber').text = 'blah'
+
+    assert_raise(LoadError) {
+      product = RBook::Onix::Contributor.load_from_element(element)
+    }
+
+  end
+
+  # ensure product information is output to xml correctly
+  def test_to_element
+
+    contributor = RBook::Onix::Contributor.new
+    contributor.name_inverted = 'Healy, James'
+    contributor.sequence_number = '01'
+    contributor.role = 'A01'
+
+    doc = contributor.to_element
+    
+    assert_not_equal(nil,REXML::XPath.first(doc, '/PersonNameInverted'), 'Person Name Inverted must not be nil')
+    assert_equal("Healy, James", REXML::XPath.first(doc, '/PersonNameInverted').text)
+    assert_not_equal(nil,REXML::XPath.first(doc, '/ContributorRole'), 'Contributor Role must not be nil')
+    assert_equal("A01", REXML::XPath.first(doc, '/ContributorRole').text)
+
+  end
+
+end

data/test/unit/onix/message_test.rb

@@ -0,0 +1,119 @@
+$LOAD_PATH.unshift(File.dirname(__FILE__) + '/../../lib')
+
+require 'test/unit'
+require 'rexml/document'
+require 'date'
+require 'rbook/onix'
+
+class MessageTest < Test::Unit::TestCase
+
+  # test loading a valid onix file. Make sure the correct number of products
+  # exist, but don't worry about the content. The product unit tests can check them
+  def test_load_from_xmldoc
+    
+    file = File.open(File.dirname(__FILE__)+"/../../data/single_product.xml", "r")
+    doc = REXML::Document.new(file) 
+    msg = RBook::Onix::Message.load_from_xmldoc(doc)
+    
+    file.close
+    
+    #check header elements
+    assert_equal('Chalice', msg.from_company)
+    assert_equal('James Healy', msg.from_person)
+    assert Date.civil(2006, 5, 21) === msg.sent_date
+    
+    #check product count
+    assert_equal(1, msg.products.size)
+  
+  end
+
+  # try loading an onix file with no products
+  def test_load_from_xmldoc_invalid_no_product
+    file = File.open(File.dirname(__FILE__)+"/../../data/invalid_no_product.xml", "r")
+    doc = REXML::Document.new(file)
+    
+    assert_raise(LoadError) {
+      msg = RBook::Onix::Message.load_from_xmldoc(doc)
+    }
+  end
+
+  # test loading an xml file that's not an onix file
+  def test_load_from_xmldoc_invalid_not_onix
+    file = File.open(File.dirname(__FILE__)+"/../../data/xml_not_onix.xml", "r")
+    doc = REXML::Document.new(file)
+    
+    assert_raise(LoadError) {
+      msg = RBook::Onix::Message.load_from_xmldoc(doc)
+    }
+  
+  end
+
+  # test loading a non XML file
+  def test_load_from_xmldoc_invalid_not_xml
+    file = File.open(File.dirname(__FILE__)+"/../../data/not_xml.csv", "r")
+    doc = REXML::Document.new(file)
+    
+    assert_raise(LoadError) {
+      msg = RBook::Onix::Message.load_from_xmldoc(doc)
+    }
+
+  end
+
+  # ensure header information is output to xml correctly and that a 
+  # product is created
+  def test_to_xml
+    msg = RBook::Onix::Message.new
+    msg.from_person = "James Healy"
+    msg.from_company = "Healy Inc."
+    msg.to_person = "Test::Unit"
+
+    product = RBook::Onix::Product.new
+    product.product_identifier = '0977616606'
+    msg.add_product(product)
+
+    doc = msg.to_xml
+
+    assert_not_equal(nil,REXML::XPath.first(doc, '/ONIXMessage/Header/FromPerson'))
+    assert_equal("James Healy", REXML::XPath.first(doc, '/ONIXMessage/Header/FromPerson').text)
+    assert_not_equal(nil,REXML::XPath.first(doc, '/ONIXMessage/Header/FromCompany'))
+    assert_equal("Healy Inc.", REXML::XPath.first(doc, '/ONIXMessage/Header/FromCompany').text)
+    assert_not_equal(nil,REXML::XPath.first(doc, '/ONIXMessage/Header/ToPerson'))
+    assert_equal("Test::Unit", REXML::XPath.first(doc, '/ONIXMessage/Header/ToPerson').text)
+    assert_not_equal(nil,REXML::XPath.first(doc, '/ONIXMessage/Product'))
+  end
+
+  # test for an exception when a onixmessage with no products is converted to an xml document
+  def test_to_xml_no_product
+    msg = RBook::Onix::Message.new
+    msg.from_person = "James Healy"
+    msg.from_company = "Healy Inc."
+    msg.to_person = "Test::Unit"
+
+    assert_raise(RuntimeError) {
+      doc = msg.to_xml
+    }
+  end
+
+  def test_to_s_valid_utf8_charset
+    msg = RBook::Onix::Message.new
+    msg.from_person = "James Healy\x11"
+    msg.from_company = "Healy Inc.\x11"
+    msg.from_email = "someone@example.com\x11"
+    msg.to_person = "Test::Unit\x11"
+    msg.to_company = "Sample Company\x11"
+    msg.message_note = "This is a sample ONIX message\x11"
+
+    product = RBook::Onix::Product.new
+    product.product_identifier = '0977616606'
+    product.title = 'Test Title'
+    msg.add_product(product)
+
+    doc = msg.to_s
+
+    doc.each_byte do |c|
+      n = XChar::CP1252[c] || c
+      n = nil unless XChar::VALID.find {|range| range.include? n}
+      assert_not_equal nil, n, "Non valid UTF8 char detected (code: #{n.to_s})"
+    end
+  end
+end