sem4r 0.1.1

data/spec/sem4r/campaign/campaign_spec.rb

@@ -0,0 +1,105 @@
+# -------------------------------------------------------------------------
+# Copyright (c) 2009-2010 Sem4r sem4ruby@gmail.com
+# 
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+# 
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+# 
+# -------------------------------------------------------------------------
+
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+
+describe Campaign do
+
+  include Sem4rSpecHelper
+
+  before do
+    services = double("services")
+    stub_service_campaign(services)
+    stub_service_ad_group(services)
+    @account = stub_account(services)
+  end
+
+  describe "campaign management" do
+
+    it "create should accept a block (instance_eval)" do
+      campaign = Campaign.create(@account) do
+        name "campaign"
+      end
+      campaign.name.should  == "campaign"
+      campaign.id.should    == 10
+    end
+
+    it "create should accept a block (call)" do
+      campaign = Campaign.create(@account) do |c|
+        c.name "campaign"
+      end
+      campaign.name.should  == "campaign"
+      campaign.id.should    == 10
+    end
+
+    it "should parse xml (produced by google)" do
+      el = read_model("//entries", "services", "campaign", "get-res.xml")
+      campaign = Campaign.from_element(@account, el)
+      campaign.id.should == 53614
+      campaign.name.should == "test campaign"
+      campaign.status.should == "PAUSED"
+    end
+
+  end
+
+  describe "adgroup management" do
+
+    it "should add an AdGroup with method 'ad_group' + block" do
+      campaign = Campaign.new(@account) do
+        name "campaign"
+        ad_group do
+          name "adgroup"
+        end
+      end
+      campaign.ad_groups.length.should   == 1
+      ad_group = campaign.ad_groups.first
+      ad_group.id.should == 10
+      ad_group.name.should == "adgroup"
+    end
+
+    it "should add an AdGroup with method 'ad_group' + param" do
+      campaign = Campaign.new(@account) do
+        name "campaign"
+        ad_group "adgroup"
+      end
+      campaign.ad_groups.length.should   == 1
+      ad_group = campaign.ad_groups.first
+      ad_group.id.should == 10
+      ad_group.name.should == "adgroup"
+    end
+
+  end
+
+  describe "bidding and budget" do
+
+    it "should accept a bidding_startegy" do
+      campaign = Campaign.create(@account) do
+        bidding_strategy "ManualCPM"
+      end
+      campaign.bidding_strategy.should  == "ManualCPM"
+    end
+
+  end
+end

data/spec/sem4r/cli/cli_spec.rb

@@ -0,0 +1,71 @@
+# -------------------------------------------------------------------------
+# Copyright (c) 2009-2010 Sem4r sem4ruby@gmail.com
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#
+# -------------------------------------------------------------------------
+
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+
+describe "cli" do
+  include Sem4rSpecHelper
+
+  
+  describe CliSem do
+    
+    it "should show help" do
+      out = with_stdout_captured do
+        cli = CliSem.new
+        args = %w{ -h }
+        cli.parse_and_run(args)
+      end
+      out.should match("Usage")  
+    end
+    
+  end
+
+  describe CliCommonArgs do
+
+    it "should show help and exit" do
+      ret = true
+      out = with_stdout_captured do
+        args = %w{ -h }
+        cmd = CliCommonArgs.new
+        ret = cmd.parse(args)
+      end
+      out.should match("Usage")
+      ret.should be_false
+    end
+
+    it "should show version and exit" do
+      ret = true
+      out = with_stdout_captured do
+        args = %w{ --version }
+        cmd = CliCommonArgs.new
+        ret = cmd.parse(args)
+      end
+      out.should match("sem4r version")
+      ret.should be_false
+    end
+
+  end
+
+end

data/spec/sem4r/credentials_spec.rb

@@ -0,0 +1,65 @@
+# -------------------------------------------------------------------------
+# Copyright (c) 2009-2010 Sem4r sem4ruby@gmail.com
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#
+# -------------------------------------------------------------------------
+
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe Credentials do
+
+  before do
+    @opts = {
+      :environment     => "sandbox",
+      :email           => "email",
+      :password        => "password",
+      :developer_token => "dev_token"}
+  end
+
+  it "should have getter" do
+    credentials = Credentials.new(@opts)
+
+    credentials.email.should           == "email"
+    credentials.password.should        == "password"
+    credentials.developer_token.should == "dev_token"
+    credentials.should_not be_mutable
+  end
+
+  it "should be mutable" do
+    @opts[:mutable] = true
+    credentials = Credentials.new(@opts)
+    credentials.should be_mutable
+  end
+
+  it "requests authentication token should raise an exception without connector" do
+    credentials = Credentials.new(@opts)
+    lambda { credentials.authentication_token }.should raise_error
+  end
+  
+  it "should call connector when request for an authentication token" do
+    credentials = Credentials.new(@opts)
+    connector = SoapConnector.new
+    connector.should_receive(:authentication_token).and_return("auth_token")
+    credentials.connector= connector
+    credentials.authentication_token.should == "auth_token"
+  end
+
+end

data/spec/sem4r/report_definition/report_definition_service_spec.rb

@@ -0,0 +1,44 @@
+# -------------------------------------------------------------------------
+# Copyright (c) 2009-2010 Sem4r sem4ruby@gmail.com
+# 
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+# 
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+# 
+# -------------------------------------------------------------------------
+
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+describe ReportDefinitionService do
+  include Sem4rSpecHelper
+
+  before do
+    @credentials = stub_credentials
+  end
+
+  it "should define 'mutate'" do
+    response_xml = read_xml_file("services", "report_definition", "mutate-res.xml")
+    connector = mock("connector")
+    connector.should_receive(:send).and_return(response_xml)
+    service = ReportDefinitionService.new(connector)
+    soap_message = service.all( @credentials )
+    els = REXML::XPath.match( soap_message.response, "//getResponse")
+    els.should_not be_empty
+  end
+
+end

data/spec/sem4r/report_definition/report_definition_spec.rb

@@ -0,0 +1,105 @@
+# -------------------------------------------------------------------------
+# Copyright (c) 2009-2010 Sem4r sem4ruby@gmail.com
+# 
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+# 
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+# 
+# -------------------------------------------------------------------------
+
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+
+describe ReportDefinition do
+
+  include Sem4rSpecHelper
+
+  before do
+    services = double("services")
+    stub_service_report_definition(services)
+    @account = stub_account(services)
+  end
+
+#  it "create should accept a block (instance_eval)" do
+#    rd = ReportDefinition.create(@account) do
+#      name "report"
+#    end
+#    rd.name.should  == "report"
+#    rd.id.should    == 10
+#  end
+
+
+  #  it "create should accept a block (call)" do
+#    adgroup = AdGroup.create(@campaign) do |g|
+#      g.name "adgroup"
+#    end
+#    adgroup.name.should  == "adgroup"
+#    adgroup.id.should    == 10
+#  end
+#
+#  it "create should accept a manual cpc bids" do
+#    adgroup = AdGroup.create(@campaign) do
+#      name "sem4r library"
+#      manual_cpc_bids do
+#        keyword_max_cpc 10000
+#      end
+#    end
+#    adgroup.bids.should be_instance_of(ManualCPCAdGroupBids)
+#  end
+#
+#  it "create should accept a manual cpm bids" do
+#    adgroup = AdGroup.create(@campaign) do
+#      name "sem4r library"
+#      manual_cpm_bids do
+#        max_cpm 10000
+#      end
+#    end
+#    adgroup.bids.should be_instance_of(ManualCPMAdGroupBids)
+#  end
+#
+
+  it "should build xml (input for google)" do
+    report_definition = ReportDefinition.new(@account) do
+      name "report"
+#      manual_cpc_bids do
+#        keyword_max_cpc 20000000
+#        site_max_cpc 30000000
+#      end
+    end
+    exepected_xml = read_model("//operand", "services", "report_definition", "mutate_add-req.xml")
+    report_definition.to_xml("operand").should xml_equivalent(exepected_xml)
+  end
+
+  #
+#  it "should parse xml (produced by google)" do
+#    el = read_model("//entries", "services", "ad_group", "get-first-res.xml")
+#    adgroup = AdGroup.from_element(@campaign, el)
+#    adgroup.id.should == 3060217923
+#    adgroup.name.should == "test adgroup"
+#    adgroup.status.should == "ENABLED"
+#  end
+#
+#  it "should parse xml (produced by google) with manual cpm bids" do
+#    el = read_model("//entries", "services", "ad_group", "get-manual-cpm-bids-res.xml")
+#    adgroup = AdGroup.from_element(@campaign, el)
+#    adgroup.bids.should be_instance_of(ManualCPMAdGroupBids)
+#  end
+    
+
+
+end

data/spec/sem4r/rexml_parsing_spec.rb

@@ -0,0 +1,103 @@
+# -------------------------------------------------------------------------
+# Copyright (c) 2009-2010 Sem4r sem4ruby@gmail.com
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#
+# -------------------------------------------------------------------------
+
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe "Test Parsing with REXML" do
+  include Sem4rSpecHelper
+
+
+  it "ddd" do
+    pending "test"
+    xml_document = read_xml_document("services", "ad_group_ad", "mutate_add_two_criterions-res.xml")
+    els = REXML::XPath.match( xml_document, "//mutateResponse/rval/value/ad/id")
+    els.each {|e| puts e.text.strip.to_i }
+  end
+
+  it "test_account_get_client_accounts" do
+    xml_document = read_xml_document("services", "v13_account", "get_client_accounts-res.xml")
+    els = REXML::XPath.match( xml_document, "//getClientAccountsReturn")
+    els.length.should == 5
+  end
+
+  it "test_campaign_get" do
+    xml_document = read_xml_document("services", "campaign", "get-res.xml")
+    rval = REXML::XPath.first( xml_document, "//getResponse/rval")
+    els = REXML::XPath.match( rval, "entries")
+
+    ids_expected =
+      ["53614", "53615", "53616", "54034", "54035", "55405", "55420", "56761",
+      "62742", "62743", "62744", "62745", "62746", "62747", "62748"]
+
+    names_expected = [
+      "test campaign", 
+      "campaign 2010-02-06 13:43:10 +0100",
+      "campaign 2010-02-06 13:49:21 +0100",
+      "campaign 2010-02-07 19:35:49 +0100",
+      "campaign 2010-02-07 19:39:17 +0100",
+      "campaign 2010-02-08 23:51:06 +0100",
+      "campaign 2010-02-08 23:55:21 +0100",
+      "campaign 2010-02-09 22:17:19 +0100",
+      "campaign 2010-02-13 09:29:08 +0100",
+      "campaign 2010-02-13 09:37:09 +0100",
+      "campaign 2010-02-13 09:37:58 +0100",
+      "campaign 2010-02-13 09:38:20 +0100",
+      "campaign 2010-02-13 09:38:39 +0100",
+      "campaign 2010-02-13 09:39:14 +0100",
+      "campaign 2010-02-13 09:39:46 +0100"]
+
+    ids   = els.map{|el| el.elements["id"].text.strip }
+    names = els.map{|el| el.elements["name"].text.strip }
+
+    ids_expected.should == ids
+    names_expected.should == names
+  end
+
+  it "test_adgroup_criterion_get" do
+    xml_document = read_xml_document("services", "ad_group_criterion", "get-res.xml")
+    rval = REXML::XPath.first( xml_document, "//getResponse/rval")
+
+    el = REXML::XPath.first( rval, "entries/criterion[@xsi:type='Keyword']")
+
+    el.elements["id"].text.should == "11536082"
+    el.elements["text"].text.should == "pippo"
+    el.elements["matchType"].text.should == "BROAD"
+  end
+
+  it "test_info_get" do
+    xml_document = read_xml_document("services", "info", "get_unit_count-res.xml")
+
+    response_header = REXML::XPath.first(xml_document, "//ResponseHeader")
+    response_header.elements["operations"].text.strip.should == "1"
+    response_header.elements["responseTime"].text.strip.should == "173"
+    response_header.elements["units"].text.strip.should == "1"
+
+    cost = REXML::XPath.first( xml_document, "//getResponse/rval/cost")
+    cost.text.strip.should == "100"
+  end
+
+end
+
+
+

data/spec/sem4r/services/service_spec.rb

@@ -0,0 +1,36 @@
+# -------------------------------------------------------------------------
+# Copyright (c) 2009-2010 Sem4r sem4ruby@gmail.com
+# 
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+# 
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+# 
+# -------------------------------------------------------------------------
+
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+describe Service do
+  include Sem4rSpecHelper
+
+  it "should contains ad_group service" do
+    connector = mock("connector")
+    s = Service.new(connector)
+    s.ad_group.should_not == nil
+  end
+
+end

data/spec/sem4r/services/soap_call_spec.rb

@@ -0,0 +1,115 @@
+# -------------------------------------------------------------------------
+# Copyright (c) 2009-2010 Sem4r sem4ruby@gmail.com
+# 
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+# 
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+# 
+# -------------------------------------------------------------------------
+
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+describe SoapCall do
+  include Sem4rSpecHelper
+
+  def mock_connector
+    mock("connector", :send => "send")
+  end
+
+  class TSoapService
+    include SoapCall
+
+    def initialize(connector)
+      @connector = connector
+    end
+
+    soap_call_v2009 :get,          :mutate => false
+    soap_call_v2009 :get_with_arg, :mutate => false
+    soap_call_v2009 :mutate
+    soap_call_v2009 :mutate_bis,   :mutate => true
+
+    private
+
+
+    def _get(xml)
+      <<-EOFS
+      <s:get>#{xml}</s:get>
+      EOFS
+    end
+
+    def _get_with_arg(a1)
+      "_get_with_arg"
+    end
+  end
+
+
+  it "should define a new method" do
+    t = TSoapService.new(mock_connector)
+    r = t.methods.grep /^get$/
+    # t.methods.should include(:get)
+    r.length.should == 1
+  end
+
+#  it "should add a parameter to private method" do
+#    pending "test"
+#    get = TSoapService.instance_method(:get)
+#    _get = TSoapService.instance_method(:_get)
+#    get.arity.should == _get.arity + 1
+#  end
+
+  it "calling 'get' should call private method _get" do
+    pending "Test"
+    credentials = stub_credentials
+    @connector = mock("connector", :send => "send")
+    # @connector.should_receive().with("get")
+    t = TSoapService.new(@connector)
+    t.should_receive(:_get).with("foo").and_return("get")
+    soap_message = t.get(credentials, "foo")
+    # soap_message.response.should == "send"
+  end
+
+  it "calling 'get_with_arg' should call private method _get_with_arg" do
+    credentials = stub_credentials
+    t = TSoapService.new(mock_connector)
+    t.get_with_arg(credentials, "foo")
+  end
+
+  it "calling 'mutate' should raise an exception with read_only profile" do
+    credentials = stub_credentials
+    credentials.should_receive(:mutable?).and_return(false)
+    t = TSoapService.new(mock_connector)
+    t.should_not_receive(:_mutate)
+    lambda{ t.mutate(credentials, "foo")}.should raise_error(RuntimeError)
+  end
+
+  it "call 'mutate' should call private methods _mutate with the right profile" do
+    credentials = stub_credentials
+    credentials.should_receive(:mutable?).and_return(true)
+    t = TSoapService.new(mock_connector)
+    t.should_receive(:_mutate).with("foo").and_return("")
+    t.mutate(credentials, "foo")
+  end
+
+  it "call 'mutate_bis' should raise an exception with read_only profile" do
+    credentials = stub_credentials
+    credentials.should_receive(:mutable?).and_return(false)
+    t = TSoapService.new(mock_connector)
+    t.should_not_receive(:_mutate_bis)
+    lambda{ t.mutate_bis(credentials, "foo")}.should raise_error(RuntimeError)
+  end
+end