jm81-qbfc 0.3.0

data/spec/integration/company_spec.rb

@@ -0,0 +1,30 @@
+require 'spec_helper'
+
+describe "QBFC::Company" do
+
+  before(:each) do 
+    @integration = QBFC::Integration::reader
+    @sess = @integration.session
+    @company = @sess.company
+  end
+  
+  after(:each) do 
+    @integration.close
+  end
+
+  it "should get name" do
+    @company.company_name.should == "Test Company"
+  end
+  
+  it "should get address" do
+    @company.address.addr1.should == "123 Address St"
+    @company.address.city.should == "Oklahoma City"
+    @company.address.state.should == "OK"
+    @company.address.postal_code.should == "73160"
+  end
+  
+  it "should get phone" do
+    @company.phone.should == "(555) 555-1212"
+  end
+
+end

data/spec/integration/conditions_spec.rb

@@ -0,0 +1,59 @@
+require 'spec_helper'
+
+# This spec describes use of the :conditions option to Element.find
+# The implementation that this tests is Request#apply_options
+
+describe "conditions: " do
+
+  before(:each) do 
+    @integration = QBFC::Integration::reader
+    @sess = @integration.session
+  end
+  
+  after(:each) do 
+    @integration.close
+  end
+  
+  describe "Check" do
+    it "should limit records returned" do
+      checks = @sess.checks.find(:all, :limit => 2)
+      checks.length.should == 2
+    end
+    
+    it "should filter on date range" do
+      @sess.checks.find(:all, :conditions => {:txn_date_range => '2008-02-23'..'2008-02-25'}).length.should == 1
+      @sess.checks.find(:all, :conditions => {:txn_date_range => '2008-02-26'}).length.should == 3
+      @sess.checks.find(:all, :conditions => {:txn_date_range => Date.parse('2008-02-26')}).length.should == 3
+    end
+    
+    it "should filter on modified time" do
+      @sess.checks.find(:all, :conditions => {:modified_date_range => '2008-02-23'..'2008-02-25'}).length.should == 1
+      @sess.checks.find(:all, :conditions => {:modified_date_range => '2008-02-26'}).length.should == 3
+      @sess.checks.find(:all, :conditions => {:modified_date_range => Date.parse('2008-02-26')}).length.should == 3
+    end
+    
+    it "should filter on ref number criteria" do
+      checks = @sess.checks.find(:all, :conditions => {:ref_number_list => %w{1000 1002}})
+      checks.length.should == 2
+      checks[0].ref_number.should == '1000'
+      checks[1].ref_number.should == '1002'
+    end
+    
+    it "should filter on ref number range" do
+      @sess.checks.find(:all, :conditions => {:ref_number_range => '1000'..'1001'}).length.should == 2
+      @sess.checks.find(:all, :conditions => {:ref_number_range => 1000..1001}).length.should == 2
+      @sess.checks.find(:all, :conditions => {:ref_number_range => '1003'}).length.should >= 1
+    end
+    
+    it "should filter on Entity" do
+      @sess.checks.find(:all, :conditions => {:entity => 'ABC Supplies'}).length.should >= 2
+      @sess.checks.find(:first, :conditions => {:entity => 'Computer Shop'}).ref_number.should == '1002'
+    end
+    
+    it "should filter on Account" do
+      @sess.checks.find(:all, :conditions => {:account => 'Checking'}).length.should >= 4
+      @sess.checks.find(:all, :conditions => {:account => 'Accounts Receivable'}).length.should == 0
+    end
+  end
+  
+end

data/spec/integration/customer_spec.rb

@@ -0,0 +1,46 @@
+require 'spec_helper'
+
+describe "QBFC::Customer" do
+
+  before(:each) do 
+    @integration = QBFC::Integration::reader
+    @sess = @integration.session
+    @bob = @sess.customers.find_by_name("Bob Customer")
+    @sue = @sess.customers.find_by_name("Sue Customer")
+  end
+  
+  after(:each) do 
+    @integration.close
+  end
+
+  it "should get name" do
+    @bob.name.should == "Bob Customer"
+    @sue.name.should == "Sue Customer"
+
+    @bob.full_name.should == "Bob Customer"
+    @sue.full_name.should == "Sue Customer"
+  end
+  
+end
+
+describe "QBFC::Customer(setters)" do
+    
+  before(:each) do 
+    @integration = QBFC::Integration.new
+    @sess = @integration.session
+    @bob = @sess.customers.find_by_name("Bob Customer")
+  end
+  
+  after(:each) do 
+    @integration.close
+  end
+  
+  it "should set name" do
+    new_name = "New Customer"
+    @bob.name = new_name
+    @bob.name.should == new_name
+    @bob.save
+    
+    @sess.customers.find(new_name).name.should == new_name
+  end
+end

data/spec/integration/element_finders_spec.rb

@@ -0,0 +1,20 @@
+require 'spec_helper'
+
+describe "QBFC::Element(finders)" do
+
+  before(:each) do 
+    @integration = QBFC::Integration::reader
+    @sess = @integration.session
+  end
+  
+  after(:each) do 
+    @integration.close
+  end
+  
+  it "should return a subclass of a base_class (e.g. Entity)" do
+    entity = QBFC::Entity.find(@sess, "Bob Customer")
+    entity.should be_kind_of(QBFC::Customer)
+    entity.name.should == "Bob Customer"
+  end
+  
+end

data/spec/integration/quick_test.rb

@@ -0,0 +1,31 @@
+require 'spec_helper'
+
+# This spec describes use of the :conditions option to Element.find
+# The implementation that this tests is Request#apply_options
+
+def run_test
+          @sess.report('ProfitAndLossStandard',
+            :conditions => {
+              :report_date_range => [Date.parse("2007-08-01"), Date.parse("2007-08-31")]},
+            :report_basis => QBFC_CONST::RbAccrual)
+end
+
+# Setup
+use_open = true
+
+if use_open
+  @sess = QBFC::Session.new
+else
+  @integration = QBFC::Integration::reader
+  @sess = @integration.session
+end
+
+begin
+  puts run_test
+ensure
+  if use_open
+    @sess.close
+  else
+    @integration.close
+  end
+end

data/spec/integration/request_options_spec.rb

@@ -0,0 +1,68 @@
+require 'spec_helper'
+
+# This spec describes use of the options to Element.find
+# (except :conditions, which is in conditions_spec.rb)
+# The implementation that this tests is Request#apply_options
+
+describe "Request options: " do
+
+  before(:each) do 
+    @integration = QBFC::Integration::reader
+    @sess = @integration.session
+  end
+  
+  after(:each) do 
+    @integration.close
+  end
+  
+  describe "Invoice" do
+    def assert_line_items(inv)
+      inv.ORInvoiceLineRetList[0].InvoiceLineRet.desc == "First Line"
+      inv.ORInvoiceLineRetList[1].InvoiceLineRet.desc == "Second Line"
+      inv.ORInvoiceLineRetList[2].InvoiceLineRet.desc == "3rd Line"
+    end
+    
+    def assert_linked_txns(inv)
+      inv.LinkedTxnList[0].ref_number.should == '1972'
+      inv.LinkedTxnList[0].amount.should == -300.00   
+    end
+  
+    it "should include line items" do
+      inv = @sess.invoices.find_by_ref('2', :include => [:line_items])
+      assert_line_items(inv)
+    end
+    
+    it "should include linked txns" do
+      inv = @sess.invoices.find_by_ref('2', :include => [:linked_txns])
+      assert_linked_txns(inv)
+    end
+    
+    it "should include include all (line items and linked txns)" do
+      inv = @sess.invoices.find_by_ref('2', :include => [:all])
+      assert_line_items(inv)
+      assert_linked_txns(inv)
+    end
+    
+    it "should include a subset of elements" do
+      inv = @sess.invoices.find_by_ref('2',
+          :include => [:txn_id, :customer_ref, :bill_address])
+      inv.txn_id.should_not be_nil
+      inv.customer_ref.full_name.should_not be_nil
+      inv.bill_address.addr1.should_not be_nil
+      
+      inv.ref_number.should be_nil
+      inv.class_ref.should be_nil
+      inv.bill_address_block.should be_nil
+    end
+    
+    it "should only txn_id" do
+      inv = @sess.invoices.find_by_ref('2',
+          :include => [:txn_id])
+      inv.txn_id.should_not be_nil
+
+      inv.customer_ref.should be_nil
+      inv.bill_address.should be_nil
+    end
+  end
+  
+end

data/spec/rcov.opts

@@ -0,0 +1 @@
+--exclude "spec/*,gems/*" 

data/spec/spec.opts

@@ -0,0 +1,6 @@
+--colour
+--format
+progress
+--loadby
+mtime
+--reverse

data/spec/spec_helper.rb

@@ -0,0 +1,62 @@
+require 'rubygems'
+require 'spec'
+require 'qbfc'
+
+Spec::Runner.configure do |config|
+
+end
+
+module QBFC
+  class Integration
+    FIXTURE_DIRNAME = File.dirname(__FILE__) + "\\fixtures"
+    FIXTURE_FILENAME = FIXTURE_DIRNAME + "\\test.qbw"
+    TMP_DIRNAME = File.dirname(__FILE__) + "\\tmp"
+    
+    class << self
+      def reader
+        @@reader ||= new(true)
+        @@reader.open_sess
+        @@reader
+      end
+    end
+
+    def initialize(is_reader = false)
+      FileUtils.mkdir_p(TMP_DIRNAME)
+
+      @is_reader = is_reader
+      @@i ||= 0
+      @@i += 1
+      @dirname = TMP_DIRNAME + "\\fixture_#{@@i}"
+      FileUtils.rm_rf(@dirname)
+      FileUtils.mkdir_p(@dirname)
+      
+      ['lgb', 'qbw', 'qbw.ND', 'qbw.TLG'].each do |ext|
+        FileUtils.cp FIXTURE_DIRNAME + "\\test.#{ext}", @dirname
+      end
+      
+      open_sess
+    end
+    
+    def filename
+      File.expand_path(@dirname + "\\test.qbw").gsub(/\//, "\\")
+    end
+    
+    def open_sess
+      @sess = QBFC::Session.new(:filename => filename)
+    end
+    
+    def session
+      @sess
+    end
+    
+    def close
+      @sess.close
+      sleep(1)
+      unless @is_reader
+        sleep(3)
+        FileUtils.rm_rf(@dirname) 
+      end
+    end
+  end
+
+end

data/spec/unit/base_spec.rb

@@ -0,0 +1,138 @@
+require 'spec_helper'
+
+describe QBFC::Base do
+  
+  before(:each) do 
+    @sess = mock(QBFC::Session)
+    @ole_wrapper = mock(QBFC::OLEWrapper)
+    @ole_methods = ["FullName", "ListID"]
+    @base = QBFC::Base.new(@sess, @ole_wrapper)
+  end
+  
+  it "requires a QBFC:Session argument" do
+    lambda {QBFC::Base.new()}.should raise_error
+    lambda {QBFC::Base.new(@sess)}.should_not raise_error
+  end
+  
+  it "initializes with an optional ole_object argument" do
+    lambda {QBFC::Base.new(@sess, @ole_wrapper)}.should_not raise_error
+  end
+  
+  it "should wrap (only) a WIN32OLE object in an OLEWrapper" do
+    @ole_object = mock(WIN32OLE)
+    @ole_object.should_receive(:kind_of?).with(WIN32OLE).and_return(true)
+    QBFC::OLEWrapper.should_receive(:new).with(@ole_object).and_return(@ole_wrapper)
+
+    QBFC::Base.new(@sess, @ole_object)
+  end
+  
+  it "should not wrap non-WIN32OLE objects" do   
+    @ole_wrapper.should_receive(:kind_of?).with(WIN32OLE).and_return(false)
+    QBFC::OLEWrapper.should_not_receive(:new).with(@ole_object)
+
+    QBFC::Base.new(@sess, @ole_wrapper)
+  end
+  
+  it "lists OLE methods for OLEWrapper object" do
+    @ole_wrapper.should_receive(:ole_methods).and_return(@ole_methods)
+    @base.ole_methods.should be(@ole_methods)
+  end
+  
+  it "has a respond_to_ole? method" do
+    @ole_wrapper.should_receive(:respond_to_ole?).with("FullName").and_return(true)
+    @base.respond_to_ole?("FullName").should be_true
+    
+    @ole_wrapper.should_receive(:respond_to_ole?).with("NoMethod").and_return(false)
+    @base.respond_to_ole?("NoMethod").should be_false
+  end
+  
+  it "should pass unknown method calls to OLEWrapper#qbfc_method_missing" do
+    @ole_wrapper.should_receive(:qbfc_method_missing).with(@sess, :full_name=, "arg")
+    @base.full_name = "arg"
+  end
+  
+  it "has a qb_name class method" do
+    QBFC::Base.qb_name.should == "Base"
+  end
+  
+  it "aliases qb_name class method as an instance method" do
+    @base.qb_name.should == QBFC::Base.qb_name
+  end
+  
+  it "should create_query" do
+    QBFC::Request.should_receive(:new).with(@sess, "BaseQuery")
+    QBFC::Base.__send__(:create_query, @sess)
+  end
+  
+  it "should should respond to is_base_class? with false" do
+    QBFC::Base.is_base_class?.should be_false
+  end
+  
+  describe ".parse_find_args" do
+    before(:each) do
+      @options = {:include_items => true, :owner_id => 0, :conditions => {}}
+    end
+  
+    it "should return a Request object if given one" do
+      rq, opt, base_opt = QBFC::Test::ElementFind.__send__(:parse_find_args, @request, @options)
+      rq.should be(@request)
+      
+      rq, opt, base_opt = QBFC::Test::ElementFind.__send__(:parse_find_args, @request)
+      rq.should be(@request)
+    end
+    
+    it "should return nil request if no Request given" do
+      rq, opt, base_opt = QBFC::Test::ElementFind.__send__(:parse_find_args, @options)
+      rq.should be_nil
+
+      rq, opt, base_opt = QBFC::Test::ElementFind.__send__(:parse_find_args)
+      rq.should be_nil
+    end
+    
+    it "should return dup of options if given them" do
+      rq, opt, base_opt = QBFC::Test::ElementFind.__send__(:parse_find_args, @request, @options)
+      opt.should == @options
+      
+      rq, opt, base_opt = QBFC::Test::ElementFind.__send__(:parse_find_args, @options)
+      opt.should == @options
+    end
+    
+    it "should return an empty hash for options if not given them" do
+      rq, opt, base_opt = QBFC::Test::ElementFind.__send__(:parse_find_args, @request)
+      opt.should == {}
+      
+      rq, opt, base_opt = QBFC::Test::ElementFind.__send__(:parse_find_args)
+      opt.should == {}
+    end
+    
+    it "should return base_options if is_base_class?" do
+      rq, opt, base_opt = QBFC::Test::BaseFind.__send__(:parse_find_args, {})
+      base_opt.should == {}
+    end
+    
+    it "should make base_options and options separate objects" do
+      rq, opt, base_opt = QBFC::Test::BaseFind.__send__(:parse_find_args, @options)
+      base_opt.should_not be(opt)
+    end
+    
+    it "should return nil for base_options if isn't a base class" do
+      rq, opt, base_opt = QBFC::Test::ElementFind.__send__(:parse_find_args, {})
+      base_opt.should be_nil
+    end
+    
+    it "should delete :conditions from base_options" do
+      rq, opt, base_opt = QBFC::Test::BaseFind.__send__(:parse_find_args, @options)
+      base_opt.should == {:include_items => true, :owner_id => 0}
+    end
+
+    it "should delete :owner_id from options if a base class" do
+      rq, opt, base_opt = QBFC::Test::BaseFind.__send__(:parse_find_args, @options)
+      opt.should == {:include_items => true, :conditions => {}}    
+    end
+    
+    it "should not delete :owner_id if not a base class" do
+      rq, opt, base_opt = QBFC::Test::ElementFind.__send__(:parse_find_args, @options)
+      opt.should == {:include_items => true, :owner_id => 0, :conditions => {}}
+    end
+  end
+end