rconomic 0.1.0

data/spec/economic/entity_spec.rb

@@ -0,0 +1,179 @@
+require './spec/spec_helper'
+
+class SpecEntity < Economic::Entity
+  has_properties :foo, :baz
+
+  def existing_method; end
+end
+
+describe Economic::Entity do
+  let(:session) { make_session }
+
+  describe "class methods" do
+    subject { SpecEntity }
+
+    describe "new" do
+      subject { Economic::Entity.new }
+
+      it "creates a new instance" do
+        subject.should be_instance_of(Economic::Entity)
+      end
+
+      it "sets persisted to false" do
+        subject.should_not be_persisted
+      end
+
+      it "sets partial to true" do
+        subject.should be_partial
+      end
+
+      it "initializes the entity with values from the given hash" do
+        entity = SpecEntity.new(:foo => 'bar', :baz => 'qux')
+        entity.foo.should == 'bar'
+        entity.baz.should == 'qux'
+      end
+    end
+
+    describe "properties_not_triggering_full_load" do
+      it "returns names of special id'ish properties" do
+        subject.properties_not_triggering_full_load.should == [:id, :number, :handle]
+      end
+    end
+
+    describe "has_properties" do
+      it "creates getter for all properties" do
+        subject.expects(:define_method).with('name')
+        subject.expects(:define_method).with('age')
+        subject.has_properties :name, :age
+      end
+
+      it "creates setter for all properties" do
+        subject.expects(:attr_writer).with(:name)
+        subject.expects(:attr_writer).with(:age)
+        subject.has_properties :name, :age
+      end
+
+      it "does not create setter or getter for id'ish properties" do
+        subject.expects(:define_method).with('id').never
+        subject.expects(:define_method).with('number').never
+        subject.expects(:define_method).with('handle').never
+        subject.has_properties :id, :number, :handle
+      end
+
+      it "does not clobber existing methods" do
+        subject.expects(:define_method).with('existing_method').never
+        subject.has_properties :existing_method
+      end
+
+      describe "properties created with has_properties" do
+      end
+    end
+
+    describe "soap_action" do
+      it "returns the name for the given soap action on this class" do
+        subject.soap_action(:get_data).should == :spec_entity_get_data
+
+        class Car < Economic::Entity; end
+        Car.soap_action(:start_engine).should == :car_start_engine
+        Car.soap_action('StartEngine').should == :car_start_engine
+      end
+    end
+  end
+
+  describe "get_data" do
+    subject { (e = SpecEntity.new).tap { |e| e.session = session } }
+
+    before :each do
+      savon.stubs(:spec_entity_get_data).returns(:success)
+    end
+
+    it "fetches data from API" do
+      subject.instance_variable_set('@number', 42)
+      savon.expects(:spec_entity_get_data).with('entityHandle' => {'Number' => 42}).returns(:success)
+      subject.get_data
+    end
+
+    it "updates the entity with the response" do
+      subject.expects(:update_properties).with({:foo => 'bar', :baz => 'qux'})
+      subject.get_data
+    end
+
+    it "sets partial to false" do
+      subject.get_data
+      subject.should_not be_partial
+    end
+
+    it "sets persisted to true" do
+      subject.get_data
+      subject.should be_persisted
+    end
+  end
+
+  describe "save" do
+    subject { (e = SpecEntity.new).tap { |e| e.session = session } }
+
+    context "entity has not been persisted" do
+      before :each do
+        subject.stubs(:persisted?).returns(false)
+      end
+
+      it "creates the entity" do
+        subject.expects(:create)
+        subject.save
+      end
+    end
+
+    context "entity has already been persisted" do
+      before :each do
+        subject.stubs(:persisted?).returns(true)
+      end
+
+      it "updates the entity" do
+        subject.expects(:update)
+        subject.save
+      end
+    end
+  end
+
+  describe "create" do
+    subject { (e = SpecEntity.new).tap { |e| e.persisted = false; e.session = session } }
+
+    it "sends data to the API" do
+      savon.expects(:spec_entity_create_from_data).returns(:success)
+      subject.save
+    end
+
+    it "updates handle with the number returned from API" do
+      savon.expects(:spec_entity_create_from_data).returns(:success)
+      subject.save
+      subject.number.should == '42'
+    end
+  end
+
+  describe "update" do
+    subject { (e = SpecEntity.new).tap { |e| e.persisted = true; e.session = session } }
+
+    it "sends data to the API" do
+      savon.expects(:spec_entity_update_from_data).returns(:success)
+      subject.save
+    end
+  end
+
+  describe "update_properties" do
+    subject { SpecEntity.new }
+
+    it "sets the properties to the given values" do
+      subject.class.has_properties :foo, :baz
+      subject.expects(:foo=).with('bar')
+      subject.expects(:baz=).with('qux')
+      subject.update_properties(:foo => 'bar', 'baz' => 'qux')
+    end
+
+    it "only sets known properties" do
+      subject.class.has_properties :foo, :bar
+      subject.expects(:foo=).with('bar')
+      subject.update_properties(:foo => 'bar', 'baz' => 'qux')
+    end
+  end
+end
+

data/spec/economic/proxies/current_invoice_line_proxy_spec.rb

@@ -0,0 +1,77 @@
+require './spec/spec_helper'
+
+describe Economic::CurrentInvoiceLineProxy do
+  let(:session) { make_session }
+  let(:invoice) { make_current_invoice(:session => session) }
+  subject { Economic::CurrentInvoiceLineProxy.new(invoice) }
+
+  describe "new" do
+    it "stores owner" do
+      subject.owner.should == invoice
+    end
+
+    it "stores session" do
+      subject.session.should == invoice.session
+    end
+  end
+
+  describe ".build" do
+    it "instantiates a new CurrentInvoiceLine" do
+      subject.build.should be_instance_of(Economic::CurrentInvoiceLine)
+    end
+
+    it "assigns the session to the CurrentInvoiceLine" do
+      subject.build.session.should == session
+    end
+
+    it "should not build a partial CurrentInvoiceLine" do
+      subject.build.should_not be_partial
+    end
+
+    context "when owner is a CurrentInvoice" do
+      subject { invoice.lines }
+
+      it "should use the Debtors session" do
+        subject.build.session.should == invoice.session
+      end
+
+      it "should initialize with values from CurrentInvoice" do
+        invoice_line = subject.build
+        invoice_line.invoice_handle.should == invoice.handle
+      end
+    end
+  end
+
+  describe ".find" do
+    before :each do
+      savon.stubs('CurrentInvoiceLine_GetData').returns(:success)
+    end
+
+    it "gets invoice_line data from API" do
+      savon.expects('CurrentInvoiceLine_GetData').with('entityHandle' => {'Number' => 42}).returns(:success)
+      subject.find(42)
+    end
+
+    it "returns CurrentInvoiceLine object" do
+      subject.find(42).should be_instance_of(Economic::CurrentInvoiceLine)
+    end
+  end
+
+  describe "enumerable" do
+    it "can be empty" do
+      subject.should be_empty
+    end
+
+    it "can be appended to" do
+      line = Economic::CurrentInvoiceLine.new
+      subject << line
+      subject.items.should == [line]
+    end
+
+    it "can be iterated over" do
+      line = Economic::CurrentInvoiceLine.new
+      subject << line
+      subject.all? { |l| l == [line] }
+    end
+  end
+end

data/spec/economic/proxies/current_invoice_proxy_spec.rb

@@ -0,0 +1,64 @@
+require './spec/spec_helper'
+
+describe Economic::CurrentInvoiceProxy do
+  let(:session) { make_session }
+  subject { Economic::CurrentInvoiceProxy.new(session) }
+
+  describe ".new" do
+    it "stores session" do
+      subject.session.should === session
+    end
+  end
+
+  describe ".build" do
+    it "instantiates a new CurrentInvoice" do
+      subject.build.should be_instance_of(Economic::CurrentInvoice)
+    end
+
+    it "assigns the session to the CurrentInvoice" do
+      subject.build.session.should === session
+    end
+
+    it "should not build a partial CurrentInvoice" do
+      subject.build.should_not be_partial
+    end
+
+    context "when owner is a Debtor" do
+      let(:debtor) { make_debtor(:session => session) }
+      subject { debtor.current_invoices }
+
+      it "should use the Debtors session" do
+        subject.build.session.should == debtor.session
+      end
+
+      it "should initialize with values from Debtor" do
+        invoice = subject.build
+
+        invoice.debtor_name.should == debtor.name
+        invoice.debtor_address.should == debtor.address
+        invoice.debtor_postal_code.should == debtor.postal_code
+        invoice.debtor_city.should == debtor.city
+
+        invoice.debtor_handle.should == debtor.handle
+        invoice.term_of_payment_handle.should == debtor.term_of_payment_handle
+        invoice.layout_handle.should == debtor.layout_handle
+        invoice.currency_handle.should == debtor.currency_handle
+      end
+    end
+  end
+
+  describe ".find" do
+    before :each do
+      savon.stubs('CurrentInvoice_GetData').returns(:success)
+    end
+
+    it "gets invoice data from API" do
+      savon.expects('CurrentInvoice_GetData').with('entityHandle' => {'Number' => 42}).returns(:success)
+      subject.find(42)
+    end
+
+    it "returns CurrentInvoice object" do
+      subject.find(42).should be_instance_of(Economic::CurrentInvoice)
+    end
+  end
+end

data/spec/economic/proxies/debtor_proxy_spec.rb

@@ -0,0 +1,74 @@
+require './spec/spec_helper'
+
+describe Economic::DebtorProxy do
+  let(:session) { make_session }
+  subject { Economic::DebtorProxy.new(session) }
+
+  describe "new" do
+    it "stores session" do
+      subject.session.should === session
+    end
+  end
+
+  describe "find" do
+    before :each do
+      savon.stubs('Debtor_GetData').returns(:success)
+    end
+
+    it "gets debtor data from API" do
+      savon.expects('Debtor_GetData').with('entityHandle' => {'Number' => 42}).returns(:success)
+      subject.find(42)
+    end
+
+    it "returns Debtor object" do
+      subject.find(42).should be_instance_of(Economic::Debtor)
+    end
+  end
+
+  describe "find_by_ci_number" do
+    it "uses FindByCINumber on API" do
+      savon.expects('Debtor_FindByCINumber').with('ciNumber' => '12345678').returns(:many)
+      subject.find_by_ci_number('12345678')
+    end
+
+    context "when many debtors exist" do
+      before :each do
+        savon.stubs('Debtor_FindByCINumber').returns(:many)
+      end
+
+      let(:results) { subject.find_by_ci_number('12345678') }
+
+      it "returns a Debtor object for each result" do
+        results.size.should == 2
+        results.all? { |result| result.should be_instance_of(Economic::Debtor) }
+      end
+
+      it "returns partial Debtor objects" do
+        results.all? { |result| result.should be_partial }
+      end
+
+      it "returns persisted Debtor objects" do
+        results.all? { |result| result.should be_persisted }
+      end
+    end
+  end
+
+  describe "next_available_number" do
+    it "gets the next available debtor number from API" do
+      savon.expects('Debtor_GetNextAvailableNumber').returns(:success)
+      subject.next_available_number.should == '105'
+    end
+  end
+
+  describe "build" do
+    subject { session.debtors.build }
+
+    it "instantiates a new Debtor" do
+      subject.should be_instance_of(Economic::Debtor)
+    end
+
+    it "assigns the session to the Debtor" do
+      subject.session.should === session
+    end
+  end
+end

data/spec/economic/session_spec.rb

@@ -0,0 +1,64 @@
+require './spec/spec_helper'
+
+describe Economic::Session do
+  subject { Economic::Session.new(123456, 'api', 'passw0rd') }
+
+  describe "new" do
+    it "should store authentication details" do
+      subject.agreement_number.should == 123456
+      subject.user_name.should == 'api'
+      subject.password.should == 'passw0rd'
+    end
+  end
+
+  describe "client" do
+    subject { Economic::Session.new(123456, 'api', 'passw0rd') }
+
+    it "returns a Savon::Client" do
+      subject.client.should be_instance_of(::Savon::Client)
+    end
+  end
+
+  describe "connect" do
+    it "connects to e-conomic with authentication details" do
+      savon.expects('Connect').with(has_entries(:agreementNumber => 123456, :userName => 'api', :password => 'passw0rd')).returns(:success)
+      subject.connect
+    end
+
+    it "stores the cookie for later connections" do
+      savon.expects('Connect').returns({:headers => {'Set-Cookie' => 'cookie'}})
+      subject.connect
+      subject.client.http.headers['Cookie'].should == 'cookie'
+    end
+  end
+
+  describe ".session" do
+    it "returns self" do
+      subject.session.should === subject
+    end
+  end
+
+  describe "current_invoices" do
+    it "returns an CurrentInvoiceProxy" do
+      subject.current_invoices.should be_instance_of(Economic::CurrentInvoiceProxy)
+    end
+
+    it "memoizes the proxy" do
+      subject.current_invoices.should === subject.current_invoices
+    end
+  end
+
+  describe "debtors" do
+    it "returns a DebtorProxy" do
+      subject.debtors.should be_instance_of(Economic::DebtorProxy)
+    end
+
+    it "memoizes the proxy" do
+      subject.debtors.should === subject.debtors
+    end
+  end
+
+  describe "request" do
+  end
+
+end

data/spec/fixtures/connect/success.xml

@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="utf-8"?>
+<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
+  <soap:Body>
+    <ConnectResponse xmlns="http://e-conomic.com">
+      <ConnectResult>string</ConnectResult>
+    </ConnectResponse>
+  </soap:Body>
+</soap:Envelope>

data/spec/fixtures/current_invoice_create_from_data/success.xml

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
+  <soap:Body>
+    <CurrentInvoice_CreateFromDataResponse xmlns="http://e-conomic.com">
+      <CurrentInvoice_CreateFromDataResult>
+        <Id>42</Id>
+      </CurrentInvoice_CreateFromDataResult>
+    </CurrentInvoice_CreateFromDataResponse>
+  </soap:Body>
+</soap:Envelope>

data/spec/fixtures/current_invoice_get_data/success.xml

@@ -0,0 +1,73 @@
+<?xml version="1.0" encoding="utf-8"?>
+<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
+  <soap:Body>
+    <CurrentInvoice_GetDataResponse xmlns="http://e-conomic.com">
+      <CurrentInvoice_GetDataResult>
+        <Handle>
+          <Id>int</Id>
+        </Handle>
+        <Id>int</Id>
+        <DebtorHandle>
+          <Number>string</Number>
+        </DebtorHandle>
+        <ProjectHandle>
+          <Number>int</Number>
+        </ProjectHandle>
+        <DebtorName>string</DebtorName>
+        <DebtorAddress>string</DebtorAddress>
+        <DebtorPostalCode>string</DebtorPostalCode>
+        <DebtorCity>string</DebtorCity>
+        <DebtorCountry>string</DebtorCountry>
+        <DebtorEan>string</DebtorEan>
+        <PublicEntryNumber>string</PublicEntryNumber>
+        <AttentionHandle>
+          <Id>int</Id>
+        </AttentionHandle>
+        <YourReferenceHandle>
+          <Id>int</Id>
+        </YourReferenceHandle>
+        <OurReferenceHandle>
+          <Number>int</Number>
+        </OurReferenceHandle>
+        <OurReference2Handle>
+          <Number>int</Number>
+        </OurReference2Handle>
+        <Date>dateTime</Date>
+        <TermOfPaymentHandle>
+          <Id>int</Id>
+        </TermOfPaymentHandle>
+        <DueDate>dateTime</DueDate>
+        <CurrencyHandle>
+          <Code>string</Code>
+        </CurrencyHandle>
+        <ExchangeRate>decimal</ExchangeRate>
+        <IsVatIncluded>boolean</IsVatIncluded>
+        <LayoutHandle>
+          <Id>int</Id>
+        </LayoutHandle>
+        <DeliveryLocationHandle>
+          <Id>int</Id>
+        </DeliveryLocationHandle>
+        <DeliveryAddress>string</DeliveryAddress>
+        <DeliveryPostalCode>string</DeliveryPostalCode>
+        <DeliveryCity>string</DeliveryCity>
+        <DeliveryCountry>string</DeliveryCountry>
+        <TermsOfDelivery>string</TermsOfDelivery>
+        <DeliveryDate>dateTime</DeliveryDate>
+        <Heading>string</Heading>
+        <TextLine1>string</TextLine1>
+        <TextLine2>string</TextLine2>
+        <OtherReference>string</OtherReference>
+        <NetAmount>decimal</NetAmount>
+        <VatAmount>decimal</VatAmount>
+        <GrossAmount>decimal</GrossAmount>
+        <Margin>decimal</Margin>
+        <MarginAsPercent>decimal</MarginAsPercent>
+        <RoundingAmount>decimal</RoundingAmount>
+        <DebtorCounty>string</DebtorCounty>
+        <DeliveryCounty>string</DeliveryCounty>
+        <DeductionAmount>decimal</DeductionAmount>
+      </CurrentInvoice_GetDataResult>
+    </CurrentInvoice_GetDataResponse>
+  </soap:Body>
+</soap:Envelope>

data/spec/fixtures/current_invoice_line_get_data/success.xml

@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="utf-8"?>
+<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
+  <soap:Body>
+    <CurrentInvoiceLine_GetDataResponse xmlns="http://e-conomic.com">
+      <CurrentInvoiceLine_GetDataResult>
+        <Handle>
+          <Id>int</Id>
+          <Number>int</Number>
+        </Handle>
+        <Id>int</Id>
+        <Number>int</Number>
+        <InvoiceHandle>
+          <Id>int</Id>
+        </InvoiceHandle>
+        <Description>string</Description>
+        <DeliveryDate>dateTime</DeliveryDate>
+        <UnitHandle>
+          <Number>int</Number>
+        </UnitHandle>
+        <ProductHandle>
+          <Number>string</Number>
+        </ProductHandle>
+        <Quantity>decimal</Quantity>
+        <UnitNetPrice>decimal</UnitNetPrice>
+        <DiscountAsPercent>decimal</DiscountAsPercent>
+        <UnitCostPrice>decimal</UnitCostPrice>
+        <TotalNetAmount>decimal</TotalNetAmount>
+        <TotalMargin>decimal</TotalMargin>
+        <MarginAsPercent>decimal</MarginAsPercent>
+        <DepartmentHandle>
+          <Number>int</Number>
+        </DepartmentHandle>
+        <DistributionKeyHandle>
+          <Number>int</Number>
+        </DistributionKeyHandle>
+      </CurrentInvoiceLine_GetDataResult>
+    </CurrentInvoiceLine_GetDataResponse>
+  </soap:Body>
+</soap:Envelope>

data/spec/fixtures/debtor_find_by_ci_number/many.xml

@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="utf-8"?>
+<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
+  <soap:Body>
+    <Debtor_FindByCINumberResponse xmlns="http://e-conomic.com">
+      <Debtor_FindByCINumberResult>
+        <DebtorHandle>
+          <Number>string</Number>
+        </DebtorHandle>
+        <DebtorHandle>
+          <Number>string</Number>
+        </DebtorHandle>
+      </Debtor_FindByCINumberResult>
+    </Debtor_FindByCINumberResponse>
+  </soap:Body>
+</soap:Envelope>

data/spec/fixtures/debtor_get_data/success.xml

@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="utf-8"?>
+<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
+  <soap:Body>
+    <Debtor_GetDataResponse xmlns="http://e-conomic.com">
+      <Debtor_GetDataResult>
+        <Handle>
+          <Number>string</Number>
+        </Handle>
+        <Number>string</Number>
+        <DebtorGroupHandle>
+          <Number>int</Number>
+        </DebtorGroupHandle>
+        <Name>string</Name>
+        <VatZone>HomeCountry or EU or Abroad</VatZone>
+        <CurrencyHandle>
+          <Code>string</Code>
+        </CurrencyHandle>
+        <PriceGroupHandle>
+          <Number>int</Number>
+        </PriceGroupHandle>
+        <IsAccessible>boolean</IsAccessible>
+        <Ean>string</Ean>
+        <PublicEntryNumber>string</PublicEntryNumber>
+        <Email>string</Email>
+        <TelephoneAndFaxNumber>string</TelephoneAndFaxNumber>
+        <Website>string</Website>
+        <Address>string</Address>
+        <PostalCode>string</PostalCode>
+        <City>string</City>
+        <Country>string</Country>
+        <CreditMaximum>decimal</CreditMaximum>
+        <VatNumber>string</VatNumber>
+        <County>string</County>
+        <CINumber>string</CINumber>
+        <TermOfPaymentHandle>
+          <Id>int</Id>
+        </TermOfPaymentHandle>
+        <LayoutHandle>
+          <Id>int</Id>
+        </LayoutHandle>
+        <AttentionHandle>
+          <Id>int</Id>
+        </AttentionHandle>
+        <YourReferenceHandle>
+          <Id>int</Id>
+        </YourReferenceHandle>
+        <OurReferenceHandle>
+          <Number>int</Number>
+        </OurReferenceHandle>
+        <Balance>decimal</Balance>
+      </Debtor_GetDataResult>
+    </Debtor_GetDataResponse>
+  </soap:Body>
+</soap:Envelope>

data/spec/fixtures/debtor_get_next_available_number/success.xml

@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="utf-8"?>
+<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
+  <soap:Body>
+    <Debtor_GetNextAvailableNumberResponse xmlns="http://e-conomic.com">
+      <Debtor_GetNextAvailableNumberResult>105</Debtor_GetNextAvailableNumberResult>
+    </Debtor_GetNextAvailableNumberResponse>
+  </soap:Body>
+</soap:Envelope>

data/spec/fixtures/spec_entity_create_from_data/success.xml

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
+  <soap:Body>
+    <SpecEntity_CreateFromDataResponse xmlns="http://e-conomic.com">
+      <SpecEntity_CreateFromDataResult>
+        <Number>42</Number>
+      </SpecEntity_CreateFromDataResult>
+    </SpecEntity_CreateFromDataResponse>
+  </soap:Body>
+</soap:Envelope>