jm81-qbfc 0.3.0

data/spec/unit/list_finders_spec.rb

@@ -0,0 +1,129 @@
+require 'spec_helper'
+
+module QBFC::Test
+  class ListFind < QBFC::List
+    def self.qb_name
+      "Account"
+    end
+  end
+end
+
+describe QBFC::List do
+
+  before(:each) do 
+    @sess = mock(QBFC::Session)
+    @ole_wrapper = mock(QBFC::OLEWrapper)
+    @list = QBFC::Test::List.new(@sess, @ole_wrapper)
+
+    # Request related mocks
+    @request = mock("QBFC::Request")
+    @request.stub!(:dup).and_return(@request)
+    @list_query = mock("QBFC::OLEWrapper#list_query")
+    @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.should_receive(:new).with(@sess, 'AccountQuery').and_return(@request)
+    @request.should_receive(:kind_of?).with(QBFC::Request).and_return(true)
+    @request.stub!(:response).and_return(@response)
+    @response.stub!(:GetAt).with(0).and_return(@ole_wrapper)
+    @response.stub!(:ole_methods).and_return(["GetAt"])
+  end
+  
+  describe ".find_by_name" do    
+    before(:each) do 
+      @full_name_list = mock("QBFC::OLEWrapper#full_name_list")
+    end
+    
+    def setup_request
+      super
+      @request.should_receive(:query).and_return(@list_query)
+      @list_query.should_receive(:FullNameList).and_return(@full_name_list)
+      @full_name_list.should_receive(:Add).with("Bob Customer")
+    end
+    
+    it "should set up Request, specifying FullNameList" do
+      setup_request
+      QBFC::Test::ListFind.find_by_name(@sess, "Bob Customer")
+    end
+  
+    it "should return a List object" do
+      setup_request
+      list = QBFC::Test::ListFind.find_by_name(@sess, "Bob Customer")
+      list.should be_kind_of(QBFC::Test::ListFind)
+    end
+  
+    it "should return nil if none found" do
+      setup_request
+      @request.should_receive(:response).and_return(nil)
+      QBFC::Test::ListFind.find_by_name(@sess, "Bob Customer").should be_nil
+    end
+    
+    it "should alias as find_by_full_name" do
+      setup_request
+      QBFC::Test::ListFind.find_by_full_name(@sess, "Bob Customer")
+    end
+  end
+  
+  describe ".find_by_id" do
+    before(:each) do 
+      @list_id_list = mock("QBFC::OLEWrapper#list_id_list")
+    end
+    
+    def setup_request
+      super
+      @request.should_receive(:query).and_return(@list_query)
+      @list_query.should_receive(:ListIDList).and_return(@list_id_list)
+      @list_id_list.should_receive(:Add).with("123-456")
+    end
+    
+    it "should set up Request, specifying ListIDList" do
+      setup_request
+      QBFC::Test::ListFind.find_by_id(@sess, "123-456")
+    end
+  
+    it "should return a List object" do
+      setup_request
+      list = QBFC::Test::ListFind.find_by_id(@sess, "123-456")
+      list.should be_kind_of(QBFC::Test::ListFind)
+    end
+  
+    it "should return nil if none found" do
+      setup_request
+      @request.should_receive(:response).and_return(nil)
+      QBFC::Test::ListFind.find_by_id(@sess, "123-456").should be_nil
+    end
+  end
+  
+  describe ".find_by_name_or_id" do    
+    it "should try to find_by_id" do
+      QBFC::Test::ListFind.should_receive(:find_by_id).with(@sess, "123-456").and_return("List By ID")
+      QBFC::Test::ListFind.find_by_name_or_id(@sess, "123-456").should == "List By ID"
+    end
+    
+    it "should try to find_by_name if id fails" do
+      QBFC::Test::ListFind.should_receive(:find_by_id).with(@sess, "123-456").and_return(nil)
+      QBFC::Test::ListFind.should_receive(:find_by_name).with(@sess, "123-456").and_return("List By Name")
+      QBFC::Test::ListFind.find_by_name_or_id(@sess, "123-456").should == "List By Name"
+    end
+    
+    it "should return nil if both name and id return nil" do
+      QBFC::Test::ListFind.should_receive(:find_by_id).with(@sess, "123-456").and_return(nil)
+      QBFC::Test::ListFind.should_receive(:find_by_name).with(@sess, "123-456").and_return(nil)
+      QBFC::Test::ListFind.find_by_name_or_id(@sess, "123-456").should be_nil
+    end
+
+    it "should be aliased as .find_by_unique_id" do
+      QBFC::Test::ListFind.should_receive(:find_by_id).with(@sess, "123-456").and_return(nil)
+      QBFC::Test::ListFind.should_receive(:find_by_name).with(@sess, "123-456").and_return(nil)
+      QBFC::Test::ListFind.find_by_unique_id(@sess, "123-456").should be_nil
+    end
+  end
+end

data/spec/unit/list_spec.rb

@@ -0,0 +1,86 @@
+require 'spec_helper'
+
+module QBFC::Test
+  class List < QBFC::List
+    def self.qb_name
+      "Account"
+    end
+  end
+end
+
+describe QBFC::List do
+
+  before(:each) do 
+    @sess = mock(QBFC::Session)
+    @ole_wrapper = mock(QBFC::OLEWrapper)
+    @list = QBFC::Test::List.new(@sess, @ole_wrapper)
+  end
+  
+  it "should specify if it is a superclass_list (such as Entity)"
+  
+  describe "::ID_NAME" do
+    it "should be 'ListID'" do
+      QBFC::Test::List::ID_NAME.should == "ListID"
+    end
+  end
+  
+  describe "#id" do
+    it "is an alias of list_id" do
+      @ole_wrapper.should_receive(:list_id).and_return('L123')
+      @list.id.should == 'L123'
+    end
+  end
+  
+  describe "#full_name" do
+    before(:each) do
+      @ole_wrapper.stub!(:full_name).and_return("Full Name")
+      @ole_wrapper.stub!(:name).and_return("Short Name")
+    end
+    
+    it "aliases name if not defined by OLE object" do
+       @ole_wrapper.should_receive(:respond_to_ole?).with("FullName").and_return(false)
+       @list.full_name.should == "Short Name"
+    end
+    
+    it "calls OLE object's FullName method if defined" do
+       @ole_wrapper.should_receive(:respond_to_ole?).with("FullName").and_return(true)
+       @list.full_name.should == "Full Name"    
+    end
+  end
+  
+  describe "#delete" do
+    it "should setup a ListDelRq with List Type and ID" do
+      @del_rq = mock(QBFC::Request)
+      @ole_wrapper.should_receive(:list_id).and_return('{123-456}')
+      QBFC::Request.should_receive(:new).with(@sess, "ListDel").and_return(@del_rq)
+      @del_rq.should_receive(:list_del_type=).with(QBFC_CONST::const_get("LdtAccount"))
+      @del_rq.should_receive(:list_id=).with("{123-456}")
+      @del_rq.should_receive(:submit)
+      @list.delete.should be_true
+    end
+  end
+  
+  describe "#display" do
+    before(:each) do
+      @display_rq = mock(QBFC::Request)
+    end
+  
+    it "should call ListDisplayAdd for new records" do
+      QBFC::Request.should_receive(:new).with(@sess, "ListDisplayAdd").and_return(@display_rq)
+      @display_rq.should_receive(:list_display_add_type=).with(QBFC_CONST::LdatAccount)
+      @display_rq.should_receive(:submit)
+      @list.instance_variable_set(:@new_record, true)
+      @list.display
+    end
+    
+    it "should call ListDisplayMod for existing records" do
+      @ole_wrapper.should_receive(:list_id).and_return('123-456')
+
+      QBFC::Request.should_receive(:new).with(@sess, "ListDisplayMod").and_return(@display_rq)
+      @display_rq.should_receive(:list_display_mod_type=).with(QBFC_CONST::LdatAccount)
+      @display_rq.should_receive(:list_id=).with('123-456')
+      @display_rq.should_receive(:submit)
+      @list.display
+    end
+  end
+end

data/spec/unit/lists/account_spec.rb

@@ -0,0 +1,20 @@
+require 'spec_helper'
+
+describe QBFC::Account do
+
+ before(:each) do 
+    @sess = mock(QBFC::Session)
+    @request = mock("QBFC::Request")
+    @response = mock("QBFC::Request#response")
+  end
+  
+  it "should add a Special Account" do
+    QBFC::Request.should_receive(:new).with(@sess, "SpecialAccountAdd").and_return(@request)
+    @request.should_receive(:special_account_type=).with(QBFC_CONST::SatAccountsReceivable)
+    @request.should_receive(:response).and_return(@response)
+    QBFC::Account.should_receive(:new).with(@sess, @response)
+
+    QBFC::Account.add_special(@sess, QBFC_CONST::SatAccountsReceivable)
+  end
+
+end

data/spec/unit/lists/generated_spec.rb

@@ -0,0 +1,15 @@
+require 'spec_helper'
+
+describe "QBFC::List generated.rb" do
+  
+  it "should generate classes" do
+    QBFC::Customer.ancestors.should include(QBFC::List)
+    QBFC::Account.ancestors.should include(QBFC::List)
+    QBFC::Account.superclass.should be(QBFC::List)
+  end
+  
+  it "should include Modifiable in modifiable classes" do
+    QBFC::Customer.included_modules.should include(QBFC::Modifiable)
+    QBFC::CustomerMsg.included_modules.should_not include(QBFC::Modifiable)
+  end
+end

data/spec/unit/lists/qb_class_spec.rb

@@ -0,0 +1,9 @@
+require 'spec_helper'
+
+describe QBFC::QBClass do
+
+  it "should access QBFC 'Class' elements" do
+    QBFC::QBClass.qb_name.should == "Class"
+  end
+
+end

data/spec/unit/modifiable_spec.rb

@@ -0,0 +1,84 @@
+require 'spec_helper'
+
+module QBFC::Test
+  class ListMod < QBFC::List
+    include QBFC::Modifiable
+    
+    def self.qb_name
+      "Account"
+    end
+  end
+
+  class TxnMod < QBFC::Transaction
+    include QBFC::Modifiable
+    
+    def self.qb_name
+      "Check"
+    end
+  end
+end
+
+describe 'QBFC::Modifiable' do
+
+  before(:each) do 
+    @sess = mock(QBFC::Session)
+    @ole_wrapper = mock(QBFC::OLEWrapper)
+    @ole_wrapper.stub!(:list_id).and_return "{list-id}"
+    @ole_wrapper.stub!(:txn_id).and_return "{txn-id}"
+    @ole_wrapper.stub!(:edit_sequence).and_return "123"
+    @ole_wrapper.stub!(:setter=)
+
+    @mod_rq = mock(QBFC::Request)
+    @mod_ole = mock(WIN32OLE)
+    @mod_rq.should_receive(:ole_object).and_return(@mod_ole)
+    @mod_rq.stub!(:list_id=)
+    @mod_rq.stub!(:txn_id=)
+    @mod_rq.stub!(:edit_sequence=)
+    QBFC::Request.stub!(:new).and_return(@mod_rq)
+  end
+
+  describe "#initialize" do
+    it "should setup Mod Request for existing records" do
+      QBFC::Request.should_receive(:new).with(@sess, "AccountMod").and_return(@mod_rq)
+      QBFC::Test::ListMod.new(@sess, @ole_wrapper)
+    end
+
+    it "should not set Mod Request for new records" do
+      QBFC::Request.should_not_receive(:new).with(@sess, "AccountMod")
+      QBFC::Test::ListMod.new(@sess)
+    end
+  end
+  
+  describe "#setup_mod_request" do
+  
+    it "should create a Mod Request object" do
+      QBFC::Request.should_receive(:new).with(@sess, "AccountMod").and_return(@mod_rq)
+      QBFC::Test::ListMod.new(@sess, @ole_wrapper)
+    end
+    
+    it "should set the Mod's id (for Lists) to the ole_object's id" do
+      @mod_rq.should_receive(:list_id=).with("{list-id}")
+      QBFC::Test::ListMod.new(@sess, @ole_wrapper)
+    end
+    
+    it "should set the Mod's txn_id (for Transaction) to the ole_object's id" do
+      @mod_rq.should_receive(:txn_id=).with("{txn-id}")
+      QBFC::Test::TxnMod.new(@sess, @ole_wrapper)
+    end
+
+    it "should set the Mod's edit_sequence" do
+      @mod_rq.should_receive(:edit_sequence=).with("123")
+      QBFC::Test::TxnMod.new(@sess, @ole_wrapper)
+    end
+    
+    it "should add the Mod request's ole_object as the @ole.setter" do
+      @ole_wrapper.should_receive(:setter=).with(@mod_ole)
+      QBFC::Test::TxnMod.new(@sess, @ole_wrapper)
+    end
+    
+    it "should assign the Mod request as the @setter" do
+      txn = QBFC::Test::TxnMod.new(@sess, @ole_wrapper)
+      txn.instance_variable_get(:@setter).should be(@mod_rq)
+    end
+  end
+end

data/spec/unit/ole_wrapper_spec.rb

@@ -0,0 +1,337 @@
+require 'spec_helper'
+
+describe QBFC::OLEWrapper do
+  
+  before(:each) do
+    @sess = mock(QBFC::Session)
+    @ole_object = mock(WIN32OLE)
+    @wrapper = QBFC::OLEWrapper.new(@ole_object)
+  end
+
+  it "should initialize with a WIN32OLE object" do
+    lambda{ QBFC::OLEWrapper.new(@ole_object) }.should_not raise_error
+  end
+  
+  it "should initialize with a String name a WIN32OLE server" do
+    WIN32OLE.should_receive(:new).with("ServerName")
+    QBFC::OLEWrapper.new("ServerName")
+  end
+  
+  it "should return ole_methods" do
+    @ole_object.should_receive("ole_methods").and_return([])
+    @wrapper.ole_methods.should == []
+  end
+  
+  it "should check if the OLE object responds to a given ole_method" do
+    @ole_object.should_receive("ole_methods").twice.and_return(["FullName", "ListID"])
+    @wrapper.respond_to_ole?(:FullName).should_not be_false
+    @wrapper.respond_to_ole?(:NonMethod).should be_nil
+  end
+  
+  it "should make a list responding to GetAt act as an Array" do
+    @get_at_object = mock(WIN32OLE)
+    @get_at_wrapper = QBFC::OLEWrapper.new(@get_at_object)
+    
+    @ole_object.should_receive("GetAt").with(1).and_return(@get_at_object)
+    QBFC::OLEWrapper.should_receive(:new).with(@get_at_object).and_return(@get_at_wrapper)
+    
+    @wrapper[1].should == @get_at_wrapper
+  end
+  
+  it "should pass non-integer values to [] on to ole_object" do
+    @ole_object.should_receive("[]").with('1').and_return("Second Object")
+    @wrapper['1'].should == "Second Object"  
+  end
+  
+  describe "QBFC::OLEWrapper#qbfc_method_missing" do
+  
+    before(:each) do
+      @sess = mock(QBFC::Session)
+      @ole_object = mock(WIN32OLE)
+      @wrapper = QBFC::OLEWrapper.new(@ole_object)
+      
+      @full_name = mock('WIN32OLE.FullName')
+      @full_name.stub!(:ole_methods).and_return(['GetValue', 'SetValue'])
+      
+      @ole_object.stub!(:FullName).and_return(@full_name)
+      @ole_object.stub!(:ole_methods).and_return(['FullName', 'LineRetList', 'PayeeEntityRef', 'AccountRef', 'TimeModified', 'ListID', 'ORInvoiceLineRetList', 'ColDataList', 'ORReportDataList', 'colID'])
+    end
+    
+    it "should call a capitalized method directly" do
+      @ole_object.should_receive(:TestValue).and_return(0)
+      QBFC::OLEWrapper.should_not_receive(:new)
+      
+      @wrapper.qbfc_method_missing(@sess, :TestValue).should == 0
+    end
+    
+    it "should call a capitalized method directly and wrap in OLEWrapper if it returns a WIN32OLE" do
+      @full_name = WIN32OLE.new("QBFC6.QBSessionManager")
+      @ole_object.should_receive(:FullName).and_return(@full_name)
+      @full_name.should_not_receive(:GetValue)
+      
+      @full_name_wrapper = QBFC::OLEWrapper.new(@ole_object)
+      QBFC::OLEWrapper.should_receive(:new).with(@full_name).and_return(@full_name_wrapper)
+      
+      @wrapper.qbfc_method_missing(@sess, :FullName).should == @full_name_wrapper
+    end
+
+    it "should act as a getter method" do
+      @ole_object.should_receive(:FullName).and_return(@full_name)
+      @full_name.should_receive(:GetValue).and_return('Full Name')
+      
+      @wrapper.qbfc_method_missing(@sess, :full_name).should == 'Full Name'
+    end
+         
+    it "should convert 'Id' to 'ID' in getter" do
+      @ole_object.should_receive(:ListID).and_return(@full_name)
+      @full_name.should_receive(:GetValue).and_return('{123-456}')
+      
+      @wrapper.qbfc_method_missing(@sess, :list_id).should == '{123-456}'
+    end
+    
+    it "should convert return of date/time getter methods to Time" do
+      time_modified = @full_name
+      @ole_object.should_receive(:TimeModified).and_return(time_modified)
+      time_modified.should_receive(:GetValue).and_return('2007-01-01 10:00:00')
+      
+      ret = @wrapper.qbfc_method_missing(@sess, :time_modified)
+      ret.should be_kind_of(Time)
+      ret.strftime("%Y-%m-%d %H:%M:%S").should == '2007-01-01 10:00:00'
+    end
+    
+    it "should wrap WIN32OLE objects returned by getter that don't respond to GetValue" do
+      @full_name = WIN32OLE.new("QBFC6.QBSessionManager")
+      @ole_object.should_receive(:FullName).and_return(@full_name)
+      @full_name.should_receive(:ole_methods).and_return(['SetValue'])
+      @full_name.should_not_receive(:GetValue)
+      
+      @full_name_wrapper = QBFC::OLEWrapper.new(@ole_object)
+      QBFC::OLEWrapper.should_receive(:new).with(@full_name).and_return(@full_name_wrapper)
+      
+      @wrapper.qbfc_method_missing(@sess, :full_name).should == @full_name_wrapper
+    end
+    
+    it "should wrap @setter if applicable when wrapping WIN32OLE objects returned by getter " do
+      @setter = mock(WIN32OLE)
+      @setter.should_receive("ole_methods").and_return(["FullName", "ListID"])
+      @wrapper = QBFC::OLEWrapper.new(@ole_object, @setter)
+
+      @full_name_getter = WIN32OLE.new("QBFC6.QBSessionManager")
+      @full_name_setter = WIN32OLE.new("QBFC6.QBSessionManager")
+      @ole_object.should_receive(:FullName).and_return(@full_name_getter)
+      @full_name_getter.should_receive(:ole_methods).and_return(['SetValue'])
+      @setter.should_receive(:FullName).and_return(@full_name_setter)
+      
+      @full_name_wrapper = QBFC::OLEWrapper.new(@full_name_getter, @full_name_setter)
+      QBFC::OLEWrapper.should_receive(:new).with(@full_name_getter, @full_name_setter).and_return(@full_name_wrapper)
+      
+      @wrapper.qbfc_method_missing(@sess, :full_name).should == @full_name_wrapper
+    end
+    
+    it "should return non-WIN32OLE returned by getter that don't respond to GetValue" do
+      @ole_object.should_receive(:FullName).and_return('Full Name')
+      @full_name.should_not_receive(:GetValue)
+      @wrapper.qbfc_method_missing(@sess, :full_name).should == 'Full Name'
+    end
+    
+    it "should act as a setter method" do
+      @ole_object.should_receive(:FullName).and_return(@full_name)
+      @full_name.should_receive(:SetValue).with('Full Name')
+      
+      @wrapper.qbfc_method_missing(@sess, :full_name=, 'Full Name')
+    end
+    
+    it "should convert Dates in setter method" do
+      @ole_object.should_receive(:TimeModified).and_return(@full_name)
+      @full_name.should_receive(:SetValue).with('2008-01-01')
+      
+      @wrapper.qbfc_method_missing(@sess, :time_modified=, Date.parse('2008-01-01'))
+    end
+
+    it "should set @setter also when acting as a setter method, if applicable" do
+      @setter = mock(WIN32OLE)
+      @setter.should_receive("ole_methods").and_return(["FullName", "ListID"])
+      @wrapper = QBFC::OLEWrapper.new(@ole_object, @setter)
+
+      @full_name_setter = WIN32OLE.new("QBFC6.QBSessionManager")      
+      @setter.should_receive(:FullName).and_return(@full_name_setter)
+      @full_name.should_receive(:SetValue).with('Full Name')
+      @full_name_setter.should_receive(:SetValue).with('Full Name')
+      
+      @wrapper.qbfc_method_missing(@sess, :full_name=, 'Full Name')
+    end
+
+    it "should convert 'Id' to 'ID' in setter" do
+      @ole_object.should_receive(:ListID).and_return(@full_name)
+      @full_name.should_receive(:SetValue).and_return('{123-456}')
+      
+      @wrapper.qbfc_method_missing(@sess, :list_id=, '{123-456}')
+    end
+    
+    it "should raise SetValueMissing error on a setter call for a method without SetValue" do
+      @ole_object.should_receive(:FullName).and_return(@full_name)
+      @full_name.should_receive(:ole_methods).and_return(['GetValue'])
+      
+      lambda { @wrapper.qbfc_method_missing(@sess, :full_name=, 'Full Name') }.
+        should raise_error(QBFC::SetValueMissing)
+    end
+    
+    it "should wrap *RetList objects in an Array" do
+      ret_list = mock('WIN32OLE.RetList')
+      ret_list.stub!(:ole_methods).and_return(['GetAt', 'Count'])
+      ret_list.should_receive(:Count).and_return(2)
+      ret_list.should_receive(:GetAt).with(0).and_return(@full_name)
+      ret_list.should_receive(:GetAt).with(1).and_return(@full_name)
+    
+      @ole_object.should_receive(:LineRetList).and_return(ret_list)
+      
+      @full_name_wrapper = QBFC::OLEWrapper.new(@full_name)
+      QBFC::OLEWrapper.should_receive(:new).with(@full_name).twice.and_return(@full_name_wrapper)
+      
+      @wrapper.qbfc_method_missing(@sess, :lines).should ==
+        [@full_name_wrapper, @full_name_wrapper]
+    end
+    
+    it "should wrap OR*RetList objects in an Array" do
+      ret_list = mock('WIN32OLE.ORInvoiceLineRetList')
+      list_item_wrapper = mock('WIN32OLE.InvoiceLineRetWrapper')
+      list_item = mock('WIN32OLE.InvoiceLineRet')
+      ret_list.stub!(:ole_methods).and_return(['GetAt', 'Count'])
+      ret_list.should_receive(:Count).and_return(2)
+      ret_list.should_receive(:GetAt).with(0).and_return(list_item_wrapper)
+      ret_list.should_receive(:GetAt).with(1).and_return(list_item_wrapper)
+      list_item_wrapper.should_receive(:InvoiceLineRet).twice.and_return(list_item)
+    
+      @ole_object.should_receive(:ORInvoiceLineRetList).and_return(ret_list)
+      
+      @wrapper.qbfc_method_missing(@sess, :invoice_lines).should ==
+        [list_item, list_item]
+    end
+    
+    it "should wrap *List objects in an Array" do
+      ret_list = mock('WIN32OLE.List')
+      ret_list.stub!(:ole_methods).and_return(['GetAt', 'Count'])
+      ret_list.should_receive(:Count).and_return(2)
+      ret_list.should_receive(:GetAt).with(0).and_return(@full_name)
+      ret_list.should_receive(:GetAt).with(1).and_return(@full_name)
+    
+      @ole_object.should_receive(:ColDataList).and_return(ret_list)
+      
+      @full_name_wrapper = QBFC::OLEWrapper.new(@full_name)
+      QBFC::OLEWrapper.should_receive(:new).with(@full_name).twice.and_return(@full_name_wrapper)
+      
+      @wrapper.qbfc_method_missing(@sess, :col_datas).should ==
+        [@full_name_wrapper, @full_name_wrapper]
+    end
+    
+    it "should wrap OR*List objects in an Array" do
+      ret_list = mock('WIN32OLE.ORInvoiceLineList')
+      list_item_wrapper = mock('WIN32OLE.InvoiceLineWrapper')
+      list_item = mock('WIN32OLE.InvoiceLine')
+      ret_list.stub!(:ole_methods).and_return(['GetAt', 'Count'])
+      ret_list.should_receive(:Count).and_return(2)
+      ret_list.should_receive(:GetAt).with(0).and_return(list_item_wrapper)
+      ret_list.should_receive(:GetAt).with(1).and_return(list_item_wrapper)
+      list_item_wrapper.should_receive(:ReportData).twice.and_return(list_item)
+    
+      @ole_object.should_receive(:ORReportDataList).and_return(ret_list)
+      
+      @wrapper.qbfc_method_missing(@sess, :report_datas).should ==
+        [list_item, list_item]
+    end
+    
+    it "should call a lower-case method defined by QBFC" do
+      @ole_object.should_receive(:colID).and_return('Id')
+      @wrapper.qbfc_method_missing(@sess, :colID).should == 'Id'
+    end
+    
+    it "should have *_full_name for *Ref" do
+      ref = mock('WIN32OLE.PayeeRef')
+      @ole_object.should_receive(:AccountRef).and_return(ref)
+
+      full_name = "Full Name"
+      full_name_obj = mock('WIN32OLE.FullName')
+      ref.should_receive(:FullName).and_return(full_name_obj)
+      full_name_obj.should_receive(:GetValue).and_return(full_name)
+      
+      @wrapper.qbfc_method_missing(@sess, :account_full_name).should == full_name
+    end
+    
+    it "should have *_id for *Ref" do
+      ref = mock('WIN32OLE.PayeeRef')
+      @ole_object.should_receive(:AccountRef).and_return(ref)
+
+      list_id = "1"
+      list_id_obj = mock('WIN32OLE.ListID')
+      ref.should_receive(:ListID).and_return(list_id_obj)
+      list_id_obj.should_receive(:GetValue).and_return(list_id)
+      
+      @wrapper.qbfc_method_missing(@sess, :account_id).should == list_id
+    end
+    
+    it "should have *_full_name for *EntityRef" do
+      ref = mock('WIN32OLE.PayeeEntityRef')
+      @ole_object.should_receive(:PayeeEntityRef).and_return(ref)
+
+      full_name = "Full Name"
+      full_name_obj = mock('WIN32OLE.FullName')
+      ref.should_receive(:FullName).and_return(full_name_obj)
+      full_name_obj.should_receive(:GetValue).and_return(full_name)
+      
+      @wrapper.qbfc_method_missing(@sess, :payee_full_name).should == full_name
+    end
+
+    it "should have *_id for *EntityRef" do
+      ref = mock('WIN32OLE.PayeeEntityRef')
+      @ole_object.should_receive(:PayeeEntityRef).and_return(ref)
+
+      list_id = "1"
+      list_id_obj = mock('WIN32OLE.ListID')
+      ref.should_receive(:ListID).and_return(list_id_obj)
+      list_id_obj.should_receive(:GetValue).and_return(list_id)
+      
+      @wrapper.qbfc_method_missing(@sess, :payee_id).should == list_id
+    end
+    
+    it "should create a Base-inherited object from a *EntityRef" do
+      entity_ref = mock('WIN32OLE.PayeeEntityRef')
+      @ole_object.should_receive(:PayeeEntityRef).and_return(entity_ref)
+
+      list_id = "1"
+      list_id_obj = mock('WIN32OLE.ListID')
+      entity_ref.should_receive(:ListID).and_return(list_id_obj)
+      list_id_obj.should_receive(:GetValue).and_return(list_id)
+      
+      entity = mock(QBFC::Entity)
+      
+      QBFC::Entity.should_receive(:find_by_id).with(@sess, list_id).and_return(entity)
+      
+      @wrapper.qbfc_method_missing(@sess, :payee).should == entity
+    end
+    
+    it "should return nil for a *Ref if the ole_method calling *Ref returns nil" do
+      @ole_object.should_receive(:PayeeEntityRef).and_return(nil)      
+      @wrapper.qbfc_method_missing(@sess, :payee).should be_nil
+    end
+    
+    it "should create a Base-inherited object from a *Ref" do
+      account_ref = mock('WIN32OLE.AccountRef')
+      @ole_object.should_receive(:AccountRef).and_return(account_ref)
+
+      list_id = "1"
+      list_id_obj = mock('WIN32OLE.ListID')
+      account_ref.should_receive(:ListID).and_return(list_id_obj)
+      list_id_obj.should_receive(:GetValue).and_return(list_id)
+      
+      account = mock(QBFC::Account)
+      
+      QBFC::Account.should_receive(:find_by_id).with(@sess, list_id).and_return(account)
+      
+      @wrapper.qbfc_method_missing(@sess, :account).should == account    
+    end
+    
+    it "should raise NoMethodError if none of the above apply" do
+      lambda { @wrapper.qbfc_method_missing(@sess, :no_method) }.should raise_error(NoMethodError, 'no_method')
+    end
+  end
+end