jm81-qbfc 0.3.0

data/spec/unit/element_finder_spec.rb

@@ -0,0 +1,185 @@
+require 'spec_helper'
+
+module QBFC::Test
+  class BaseFind < QBFC::Element
+    is_base_class
+    
+    ID_NAME = "ListID"
+    
+    def self.qb_name
+      "Entity"
+    end
+  end
+  
+  class ElementFind < QBFC::Element
+    def self.qb_name
+      "Check"
+    end
+  end
+end
+
+# An Element is a Transaction or a List; that is any QuickBooks objects that can
+# be created, edited (possibly), deleted and read. Contrast to a Report or Info
+# which are read-only.
+describe QBFC::Element do
+
+  before(:each) do 
+    @sess = mock(QBFC::Session)
+    @ole_wrapper = mock(QBFC::OLEWrapper)
+    @element = mock(QBFC::Test::ElementFind)
+    
+    # Request related mocks
+    @request = mock("QBFC::Request")
+    @request.stub!(:kind_of?).with(QBFC::Request).and_return(true)
+    @request.stub!(:kind_of?).with(Hash).and_return(false)
+    @request.stub!(:dup).and_return(@request)
+    @response = mock("QBFC::Request#response")
+    
+    # Filter mock
+    @filter = mock("QBFC::OLEWrapper#Filter")
+    @request.stub!(:filter).and_return(@filter)
+    @request.stub!(:add_limit)
+    @request.stub!(:filter_available?).and_return(true)
+    @request.stub!(:apply_options)
+  end
+  
+  def setup_request
+    QBFC::Request.stub!(:new).and_return(@request)
+    @request.stub!(:response).and_return(@response)
+    @response.stub!(:GetAt).and_return(@ole_wrapper)
+    @response.stub!(:ole_methods).and_return(["GetAt"])
+    @response.stub!(:Count).and_return(2)
+
+    QBFC::Test::ElementFind.should_receive(:new).with(@sess, @ole_wrapper).at_least(:once).and_return(@element)
+  end
+
+  describe ".find" do
+  
+    it "should find_by_unique_id if the 'what' argument is neither :all nor :first" do
+      QBFC::Test::ElementFind::should_receive(:find_by_unique_id).with(@sess, "123-456", {})
+      QBFC::Test::ElementFind::find(@sess, "123-456", {})
+    end
+    
+    it "should return only first entry if 'what' argument is :first" do  
+      setup_request
+      QBFC::Test::ElementFind::find(@sess, :first).should be(@element)
+    end
+    
+    it "should set request#max_returned to 1 if :first" do
+      setup_request
+      @request.should_receive(:add_limit).with(1)
+      @request.stub!(:filter_available?).and_return(true)
+      QBFC::Test::ElementFind::find(@sess, :first)
+    end
+
+    it "should not set request#max_returned if not request.filter_available?" do
+      setup_request
+      @request.stub!(:filter_available?).and_return(false)
+      @request.should_not_receive(:add_limit)
+      QBFC::Test::ElementFind::find(@sess, :first)
+    end
+
+    it "should return an array if 'what' argument is :all" do
+      setup_request
+      @filter.should_not_receive(:max_returned=)
+      QBFC::Test::ElementFind::find(@sess, :all).should == [@element, @element]
+    end
+    
+    it "should return nil if no elements are found unless finding :first" do
+      QBFC::Request.should_receive(:new).with(@sess, 'CheckQuery').and_return(@request)
+      @request.should_receive(:response).and_return(nil)
+      QBFC::Test::ElementFind::find(@sess, :first).should be_nil
+    end
+    
+    it "should return an empty array if no elements are found when finding :all" do
+      QBFC::Request.should_receive(:new).with(@sess, 'CheckQuery').and_return(@request)
+      @request.should_receive(:response).and_return(nil)
+      QBFC::Test::ElementFind::find(@sess, :first).should be_nil
+    end
+    
+    it "should call Base.parse_find_args" do
+      setup_request
+      QBFC::Test::ElementFind::should_receive(:parse_find_args).with({:option => true})
+      QBFC::Test::ElementFind::find(@sess, :all, {:option => true})
+    end
+    
+    it "applies options to request" do
+      setup_request
+      @request.should_receive(:apply_options).with({:owner_id => 0})
+      QBFC::Test::ElementFind::find(@sess, :first, :owner_id => 0)
+    end
+    
+    it "should get request#response" do
+      setup_request
+      @request.should_receive(:response).and_return(@response)    
+      QBFC::Test::ElementFind::find(@sess, :first)
+    end
+    
+    it "should call base_class_find for base classes" do
+      QBFC::Request.stub!(:new).and_return(@request)
+      QBFC::Test::BaseFind.should_receive(:base_class_find).with(@sess, :first, @request, {}).and_return(@element)
+      QBFC::Test::BaseFind::find(@sess, :first, {}).should be(@element)
+    end
+    
+    it "should not call base_class_find for non-base classes" do
+      setup_request
+      QBFC::Test::ElementFind.should_not_receive(:base_class_find)
+      QBFC::Test::ElementFind::find(@sess, :first, {})      
+    end
+  end
+
+  describe ".base_class_find" do
+    before(:each) do
+      @include_list = mock("IncludeRetElementList")
+      @request.stub!(:IncludeRetElementList).and_return(@include_list)
+      @include_list.stub!(:Add).with("ListID")
+      @request.stub!(:response).and_return(@response)
+      QBFC::Request.stub!(:new).and_return(@request)
+      
+      @element = mock(QBFC::Test::ElementFind)
+      @base_element = mock(QBFC::Test::BaseFind)
+      @customer_ret = mock("CustomerRet")
+      @list_id = mock("ListID")
+      @base_element.stub!(:ole_methods).and_return(["VendorRet", "CustomerRet"])
+      @base_element.stub!(:VendorRet).and_return(nil)
+      @base_element.stub!(:CustomerRet).and_return(@customer_ret)
+      @customer_ret.stub!(:ListID).and_return(@list_id)
+      @list_id.stub!(:GetValue).and_return("123-456")
+      QBFC::Customer.stub!(:find_by_id).and_return(@element)
+
+      @response.stub!(:GetAt).and_return(@base_element)
+      @response.stub!(:Count).and_return(2)
+    end
+
+    it "should request only ListID" do
+      @include_list.should_receive(:Add).with("ListID")
+      QBFC::Test::BaseFind.find(@sess, :first, @request, {})
+    end
+    
+    it "should send class ChildList::find_by_id with ListID and find options for each" do
+      @base_element.should_receive(:CustomerRet).at_least(:once).and_return(@customer_ret)
+      @customer_ret.should_receive(:ListID).at_least(:once).and_return(@list_id)
+      @list_id.should_receive(:GetValue).at_least(:once).and_return("789-012")
+      QBFC::Customer.should_receive(:find_by_id).at_least(:once).with(@sess, "789-012", {}).and_return(@element)
+      QBFC::Test::BaseFind.find(@sess, :first, @request, {}).should be(@element)
+    end
+    
+    it "should return nil if no records and not :all" do
+      @request.should_receive(:response).and_return(nil)
+      QBFC::Test::BaseFind.find(@sess, :first, @request, {}).should be_nil
+    end
+    
+    it "should return nil if no records and not :all" do
+      @request.should_receive(:response).and_return(nil)
+      QBFC::Test::BaseFind.find(@sess, :all, @request, {}).should == []
+    end    
+    
+    it "should return single record unless :all" do
+      QBFC::Test::BaseFind.find(@sess, :first, @request, {}).should be(@element)
+    end
+    
+    it "should return Array if :all" do
+      QBFC::Test::BaseFind.find(@sess, :all, @request, {}).should == [@element, @element]
+    end
+  end
+end

data/spec/unit/element_spec.rb

@@ -0,0 +1,108 @@
+require 'spec_helper'
+
+module QBFC::Test
+  class BaseKlass < QBFC::Element
+    is_base_class
+  end
+  
+  class NormalKlass < QBFC::Element
+  end
+end
+
+# An Element is a Transaction or a List; that is any QuickBooks objects that can
+# be created, edited (possibly), deleted and read. Contrast to a Report or Info
+# which are read-only.
+describe QBFC::Element do
+
+  before(:each) do 
+    @sess = mock(QBFC::Session)
+    @ole_wrapper = mock(QBFC::OLEWrapper)
+    @ole_object = mock(WIN32OLE)
+    @ole_methods = ["FullName", "DataExtRetList"]
+    @element = QBFC::Test::NormalKlass.new(@sess, @ole_wrapper)
+  end
+
+  describe "#initialize" do
+    it "should set up add request if ole_object is nil" do
+      @request = mock(QBFC::Request)
+      @request.should_receive(:ole_object).and_return(@ole_object)
+      QBFC::Request.should_receive(:new).with(@sess, "NormalKlassAdd").and_return(@request)
+      QBFC::Test::NormalKlass.new(@sess)
+    end
+    
+    it "should assign the Add request as the @setter" do
+      @request = mock(QBFC::Request)
+      @request.stub!(:ole_object).and_return(@ole_object)
+      QBFC::Request.should_receive(:new).with(@sess, "NormalKlassAdd").and_return(@request)
+      QBFC::Test::NormalKlass.new(@sess).
+          instance_variable_get(:@setter).should == @request
+    end
+  end
+  
+  describe "#new_record?" do
+    before(:each) do
+      @request = mock(QBFC::Request)
+      @request.stub!(:ole_object).and_return(@ole_object)
+      QBFC::Request.stub!(:new).with(@sess, "NormalKlassAdd").and_return(@request)
+    end
+    
+    it "should return true if ole_object is an AddRq" do
+      QBFC::Test::NormalKlass.new(@sess).new_record?.should be_true
+    end
+
+    it "should return false if ole_object is from a QueryRq" do
+      @element.new_record?.should be_false
+    end
+  end
+  
+  describe ".is_base_class? (and is_base_class macro)" do
+    it "should return true if Class is_base_class has been called" do
+      QBFC::Test::BaseKlass.is_base_class?.should be_true
+      QBFC::Test::NormalKlass.is_base_class?.should be_false
+    end
+  end
+  
+  describe "#custom" do
+    before(:each) do
+      @data_ext = mock("QBFC::OLEWrapper#DataExtRet")
+      @data_ext_list = [@data_ext, @data_ext]
+      @ole_wrapper.stub!(:DataExtRetList).and_return(@data_ext_list)
+      @ole_wrapper.stub!(:data_ext).and_return(@data_ext_list)
+    end
+  
+    it "should get custom fields" do
+      @data_ext.should_receive(:data_ext_name).and_return("Custom Field")
+      @data_ext.should_receive(:owner_id).and_return('0')
+      @data_ext.should_receive(:data_ext_value).and_return("Hello")
+      
+      @element.custom("Custom Field").should == "Hello"
+    end
+    
+    it "should return nil if there are no custom fields" do
+      @ole_wrapper.should_receive(:DataExtRetList).and_return(nil)
+      
+      @element.custom("Custom Field").should be_nil
+    end
+    
+    it "should return nil if the custom field is not found" do
+      @data_ext.should_receive(:data_ext_name).twice.and_return("Custom Field")
+      
+      @element.custom("No Field").should be_nil
+    end
+  end
+  
+  describe "#save" do
+    it "should submit the setter object" do
+      @request = mock(QBFC::Request)
+      @request.stub!(:ole_object).and_return(@ole_object)
+      QBFC::Request.should_receive(:new).with(@sess, "NormalKlassAdd").and_return(@request)
+      @request.should_receive(:submit)
+
+      QBFC::Test::NormalKlass.new(@sess).save
+    end
+    
+    it "should raise an error if there is no setter object" do
+      lambda { @element.save}.should raise_error(QBFC::NotSavableError)
+    end
+  end
+end

data/spec/unit/entities/generated_spec.rb

@@ -0,0 +1,18 @@
+require 'spec_helper'
+
+describe "QBFC::Entity generated.rb" do
+  
+  it "should generate classes" do
+    QBFC::Customer.superclass.should be(QBFC::Entity)
+    QBFC::Vendor.superclass.should be(QBFC::Entity)
+    QBFC::OtherName.superclass.should be(QBFC::Entity)
+    QBFC::Employee.superclass.should be(QBFC::Entity)
+  end
+  
+  it "should include Modifiable in all classes" do
+    QBFC::Customer.included_modules.should include(QBFC::Modifiable)
+    QBFC::Vendor.included_modules.should include(QBFC::Modifiable)
+    QBFC::OtherName.included_modules.should include(QBFC::Modifiable)
+    QBFC::Employee.included_modules.should include(QBFC::Modifiable)
+  end
+end

data/spec/unit/entity_spec.rb

@@ -0,0 +1,18 @@
+require 'spec_helper'
+
+describe QBFC::Entity do
+
+  before(:each) do 
+    @sess = mock(QBFC::Session)
+    @ole_wrapper = mock(QBFC::OLEWrapper)
+  end
+
+  it "is a base class" do
+    QBFC::Entity.is_base_class?.should be_true
+  end
+  
+  describe ".find" do
+    it "should return subclass objects"
+  end
+  
+end

data/spec/unit/info/generated_spec.rb

@@ -0,0 +1,12 @@
+require 'spec_helper'
+
+describe "QBFC::Info generated.rb" do
+  
+  it "should generate classes" do
+    QBFC::Company.superclass.should be(QBFC::Info)
+    QBFC::CompanyActivity.superclass.should be(QBFC::Info)
+    QBFC::Host.superclass.should be(QBFC::Info)
+    QBFC::Preferences.superclass.should be(QBFC::Info)
+  end
+  
+end

data/spec/unit/info_spec.rb

@@ -0,0 +1,48 @@
+require 'spec_helper'
+
+module QBFC::Test
+  class Info < QBFC::Info
+    def self.qb_name
+      "Company"
+    end
+  end
+end
+
+describe QBFC::Info do
+
+ before(:each) do 
+    @sess = mock(QBFC::Session)
+    @ole_wrapper = mock(QBFC::OLEWrapper)
+    @info = mock(QBFC::Test::Info)
+    
+    # Request related mocks
+    @request = mock("QBFC::Request")
+    @response = mock("QBFC::Request#response")
+    
+    QBFC::Request.stub!(:new).with(@sess, 'CompanyQuery').and_return(@request)
+    @request.stub!(:response).and_return(@response)
+    QBFC::Test::Info.stub!(:new).with(@sess, @response).and_return(@info)
+    @request.stub!(:apply_options)
+  end
+  
+  describe ".get" do
+    it "should create Request and get response" do
+      QBFC::Request.should_receive(:new).with(@sess, 'CompanyQuery').and_return(@request)
+      @request.should_receive(:response).and_return(@response)
+      QBFC::Test::Info.should_receive(:new).with(@sess, @response).and_return(@info)
+      QBFC::Test::Info::get(@sess)
+    end
+    
+    it "applies options to Request" do
+      @request.should_receive(:apply_options).with({:owner_id => 0})
+      QBFC::Test::Info::get(@sess, :owner_id => 0)
+    end
+  end
+  
+  describe ".find" do
+    it "should forward request, without 'what' argument, to get" do
+      QBFC::Test::Info.should_receive(:get).with(@sess, {})
+      QBFC::Test::Info::find(@sess, :first, {})
+    end
+  end
+end

data/spec/unit/item_spec.rb

@@ -0,0 +1,33 @@
+require 'spec_helper'
+
+describe QBFC::Item do
+
+  before(:each) do 
+    @sess = mock(QBFC::Session)
+    @ole_wrapper = mock(QBFC::OLEWrapper)
+  end
+
+  it "is a base class" do
+    QBFC::Item.is_base_class?.should be_true
+  end
+  
+  describe ".find" do
+    it "should return subclass objects"
+  end
+  
+  describe ".add_special" do
+    before(:each) do 
+      @request = mock("QBFC::Request")
+      @response = mock("QBFC::Request#response")
+    end
+    
+    it "should add a Special Account" do
+      QBFC::Request.should_receive(:new).with(@sess, "SpecialItemAdd").and_return(@request)
+      @request.should_receive(:special_item_type=).with(QBFC_CONST::SitFinanceCharge)
+      @request.should_receive(:response).and_return(@response)
+  
+      QBFC::Item.add_special(@sess, QBFC_CONST::SitFinanceCharge)
+    end
+  end
+  
+end

data/spec/unit/items/generated_spec.rb

@@ -0,0 +1,16 @@
+require 'spec_helper'
+
+describe "QBFC::Item generated.rb" do
+  
+  it "should generate classes" do
+    QBFC::ItemGroup.superclass.should be(QBFC::Item)
+    QBFC::ItemDiscount.superclass.should be(QBFC::Item)
+    QBFC::ItemPayment.superclass.should be(QBFC::Item)
+  end
+  
+  it "should include Modifiable in all classes" do
+    QBFC::ItemGroup.included_modules.should include(QBFC::Modifiable)
+    QBFC::ItemDiscount.included_modules.should include(QBFC::Modifiable)
+    QBFC::ItemPayment.included_modules.should include(QBFC::Modifiable)
+  end
+end