require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')

describe QBFC::Request do

  before(:each) do
    @sess = mock(QBFC::Session)
    @request_set = mock(QBFC::OLEWrapper)
    @ole_request = mock(QBFC::OLEWrapper)

    @sess.stub!(:CreateMsgSetRequest).and_return(@request_set)
    @request_set.stub!(:AppendCustomerQueryRq).and_return(@ole_request)
  end

  it "sends CreateMsgSetRequest to Quickbooks Session" do
    @sess.should_receive(:CreateMsgSetRequest).with('US', 6, 0).and_return(@request_set)
    QBFC::Request.new(@sess, 'CustomerQuery')
  end
  
  it "appends a query to MsgSetRequest" do
    @request_set.should_receive(:AppendCustomerQueryRq).and_return @ole_request
    QBFC::Request.new(@sess, 'CustomerQuery')
  end

  it "accepts version information" do
    @sess.should_receive(:CreateMsgSetRequest).with('CA', 5, 5).and_return(@request_set)
    QBFC::Request.new(@sess, 'CustomerQuery', 'CA', 5, 5)
  end
  
  it "should raise a QBFC::QBXMLVersionError if the version is not supported" do
    @sess.should_receive(:CreateMsgSetRequest).and_raise(WIN32OLERuntimeError.new('error code:8004030A'))
    lambda { QBFC::Request.new(@sess, 'CustomerQuery')}.should raise_error(QBFC::QBXMLVersionError)
  end
  
  it "should re-raise errors other than QBXMLVersionError" do
    @sess.should_receive(:CreateMsgSetRequest).and_raise(WIN32OLERuntimeError.new('error'))
    lambda { QBFC::Request.new(@sess, 'CustomerQuery')}.should raise_error(WIN32OLERuntimeError)
  end
    
  it "should raise a QBFC::UnknownRequestError if the request is not supported" do
    @request_set.should_receive(:AppendCustomerQueryRq).and_raise(WIN32OLERuntimeError.new('error code:0x80020006'))
    lambda { QBFC::Request.new(@sess, 'CustomerQuery')}.should raise_error(QBFC::UnknownRequestError)
  end
    
  it "should re-raise errors other than UnknownRequestError" do
    @request_set.should_receive(:AppendCustomerQueryRq).and_raise(WIN32OLERuntimeError.new('error'))
    lambda { QBFC::Request.new(@sess, 'CustomerQuery')}.should raise_error(WIN32OLERuntimeError)
  end
  
  it "should show ole_methods" do
    @ole_request.should_receive(:ole_methods)
    QBFC::Request.new(@sess, 'CustomerQuery').ole_methods
  end
  
  it "gives direct access to the request's ole_object" do
    @ole_request.should_receive(:ole_object).and_return("OLEObject")
    QBFC::Request.new(@sess, 'CustomerQuery').ole_object.should == "OLEObject"
  end
  
  it "should have the OLEWrapper object handle missing methods" do
    @ole_request.should_receive(:qbfc_method_missing).with(@sess, :no_method)
    QBFC::Request.new(@sess, 'CustomerQuery').no_method

    @ole_request.should_receive(:qbfc_method_missing).with(@sess, :NoMethod)
    QBFC::Request.new(@sess, 'CustomerQuery').NoMethod
  end
  
  it "should return xml of the request" do
    @request_set.should_receive(:ToXMLString)
    QBFC::Request.new(@sess, 'CustomerQuery').to_xml
  end
  
  describe "#response" do
    before(:each) do
      @sess = mock(QBFC::Session)
      @request_set = mock(QBFC::OLEWrapper)
      @ole_request = mock(QBFC::OLEWrapper)
  
      @sess.stub!(:CreateMsgSetRequest).and_return(@request_set)
      @request_set.stub!(:AppendCustomerQueryRq).and_return(@ole_request)
    
      @response_set = mock("DoRequestsRespost")
      @response_list = mock("ResponseList")
      @response = mock("GetAt")
      @detail = mock("Detail")
      
      @sess.stub!(:DoRequests).and_return @response_set
      @response_set.stub!(:ResponseList).and_return @response_list
      @response_list.stub!(:GetAt).and_return @response
      @response.stub!(:Detail).and_return @detail
    end
  
    it "gets a response" do
      @sess.should_receive(:DoRequests).and_return @response_set
      @response_set.should_receive(:ResponseList).and_return @response_list
      @response_list.should_receive(:GetAt).with(0).and_return @response
      @response.should_receive(:Detail).and_return @detail

      request = QBFC::Request.new(@sess, 'CustomerQuery')

      request.response.should == @detail
    end
    
    it "returns a nil response if the response has no Detail" do
      @response.should_receive(:Detail).and_return nil
    
      request = QBFC::Request.new(@sess, 'CustomerQuery')
      
      QBFC::OLEWrapper.should_not_receive(:new)
      request.response.should be_nil
    end
    
      
    it "should return xml of the response" do
      request = QBFC::Request.new(@sess, 'CustomerQuery')      
      @response_set.should_receive(:ToXMLString)
      request.response_xml
    end
  end
  
  describe "#query" do
    before(:each) do
      @request = QBFC::Request.new(@sess, 'CustomerQuery')
      @request.instance_variable_set(:@request, @ole_request)
      
      @or_query = mock("OLEWrapper#or_query")    
    end
  
    it "gets the OR*Query for the given Request" do
      @ole_request.should_receive(:ole_methods).and_return(["TxnID", "RefNumber", "ORTransactionQuery", "OwnerIDList"])
      @ole_request.should_receive(:ORTransactionQuery).and_return(@or_query)
      @request.query.should be(@or_query)
    end
    
    it "should return nil if no query name is detected" do
      @ole_request.should_receive(:ole_methods).and_return(["TxnID", "RefNumber", "OwnerIDList"])
      @request.query.should be_nil
    end
  end
  
  describe "#filter" do
    before(:each) do
      @request = QBFC::Request.new(@sess, 'CustomerQuery')
      @request.instance_variable_set(:@request, @ole_request)
      
      @or_query = mock("OLEWrapper#or_query")
      @filter = mock("OLEWrapper#filter")
      @ole_request.stub!(:ole_methods).and_return(["TxnID", "RefNumber", "ORTransactionQuery", "OwnerIDList"])
      @ole_request.stub!(:ORTransactionQuery).and_return(@or_query)
    end

    it "gets the *Filter for the given Request" do
      @or_query.should_receive(:ole_methods).and_return(["TxnIDList", "RefNumberList", "TransactionFilter"])
      @or_query.should_receive(:TransactionFilter).and_return(@filter)
      @request.filter.should be(@filter)
    end
    
    it "should return nil if no filter name is detected" do
      @or_query.should_receive(:ole_methods).and_return(["TxnIDList", "RefNumberList"])
      @request.filter.should be_nil
    end
    
    it "should return nil if the #query is nil" do
      @ole_request.should_receive(:ole_methods).and_return([])
      @request.filter.should be_nil
    end
  end

  describe "#filter_available?" do
    before(:each) do
      @request = QBFC::Request.new(@sess, 'CustomerQuery')
      
      @or_query = mock("OLEWrapper#or_query")
      @filter = mock("OLEWrapper#filter")
      @ole_request.stub!(:ole_methods).and_return(["TxnID", "RefNumber", "ORTransactionQuery", "OwnerIDList", "ortype"])
      @ole_request.stub!(:ORTransactionQuery).and_return(@or_query)
      
      @ole_object = mock(WIN32OLE)
      @or_query.stub!(:ole_object).and_return(@ole_object)
      @ole_object.stub!(:ole_object).and_return(["TxnID", "RefNumber", "ORTransactionQuery", "OwnerIDList", "ortype"])
    end

    it "should be true if no query options have been set" do
      @ole_object.should_receive(:ortype).at_least(:once).and_return(-1)
      @request.filter_available?.should be_true
    end
    
    it "should be true if Filter option has been set" do
      @ole_object.should_receive(:ortype).at_least(:once).and_return(2)
      @request.filter_available?.should be_true
    end
    
    it "should be false if a *List option has been set" do
      @ole_object.should_receive(:ortype).at_least(:once).and_return(1)
      @request.filter_available?.should be_false
    end
    
  end
  
  describe "#apply_options" do
    before(:each) do
      @request = QBFC::Request.new(@sess, 'CustomerQuery')
    end
  
    it "accepts an :owner_id option" do
      @request.should_receive(:add_owner_ids).with(1)
      @request.apply_options(:owner_id => 1)
    end
  end
  
  describe "#add_owner_ids" do
    before(:each) do
      @request = QBFC::Request.new(@sess, 'CustomerQuery')
      @owner_list = mock(QBFC::OLEWrapper)
    end
  
    it "can add a single owner id to the Request" do
      @ole_request.should_receive(:OwnerIDList).and_return(@owner_list)
      @owner_list.should_receive(:Add).with(0)
      @request.add_owner_ids(0)
    end

    it "can add multiple owner ids to the Request" do
      ids = ["{6B063959-81B0-4622-85D6-F548C8CCB517}", 0]
      @ole_request.should_receive(:OwnerIDList).twice.and_return(@owner_list)
      @owner_list.should_receive(:Add).with(ids[0])
      @owner_list.should_receive(:Add).with(ids[1])
      @request.add_owner_ids(ids)
    end

    it "can accept nil and will do nothing" do
      @ole_request.should_not_receive(:OwnerIDList)
      @owner_list.should_not_receive(:Add)
      @request.add_owner_ids(nil)
    end
  end
end