sem4r 0.1.1

data/spec/sem4r/ad_group_criterion/ad_group_criterion_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 AdGroupCriterion do
+
+  include Sem4rSpecHelper
+
+  before do
+    services = stub("services")
+    stub_service_ad_group_criterion(services)
+    @ad_group = stub_adgroup(services)
+    @criterion = stub_criterion(services)
+    @bids = stub("bids")
+  end
+
+  describe BiddableAdGroupCriterion do
+
+    it "should be build with accessor (not a block)" do
+      biddable_criterion = BiddableAdGroupCriterion.new(@ad_group)
+      biddable_criterion.criterion @criterion
+      biddable_criterion.bids @bids
+      biddable_criterion.criterion.should  eql @criterion
+      biddable_criterion.bids.should eql @bids
+    end
+
+    it "should produce xml (input for google)" do
+      keyword = CriterionKeyword.new(@ad_group) do
+        text       "sem4r adwords api"
+        match      "BROAD"
+      end
+      bids = ManualCPCAdGroupCriterionBids.new
+      bids.max_cpc 10000000
+
+      biddable_criterion = BiddableAdGroupCriterion.new(@ad_group)
+      biddable_criterion.criterion keyword
+      biddable_criterion.bids bids
+
+      xml_expected = read_model("//operand", "services", "ad_group_criterion", "mutate_add_criterion_keyword-req.xml")
+      biddable_criterion.to_xml("operand").should  xml_equivalent(xml_expected)
+    end
+
+    it "should parse xml (produced by google)" do
+      el = read_model("//entries", "services", "ad_group_criterion", "get-res.xml")
+      biddable_criterion = BiddableAdGroupCriterion.from_element(@ad_group, el)
+      biddable_criterion.bids.should be_instance_of(ManualCPCAdGroupCriterionBids)
+      biddable_criterion.criterion.should be_instance_of(CriterionKeyword)
+    end
+
+  end
+
+  describe NegativeAdGroupCriterion do
+
+    it "should be build with accessors (not a block)" do
+      biddable_criterion = NegativeAdGroupCriterion.new(@ad_group)
+      biddable_criterion.criterion @criterion
+      biddable_criterion.criterion.should  eql @criterion
+    end
+
+    it "should produce xml (input for google)" do
+      keyword = CriterionKeyword.new(@ad_group) do
+        text       "sem4r adwords api"
+        match      "BROAD"
+      end
+      biddable_criterion = NegativeAdGroupCriterion.new(@ad_group)
+      biddable_criterion.criterion keyword
+      xml_expected = read_model("//operand", "services", "ad_group_criterion", "mutate_add_negative_keyword-req.xml")
+      biddable_criterion.to_xml("operand").should  xml_equivalent(xml_expected)
+    end
+
+    it "should parse xml (produced by google)" do
+      el = read_model("//value", "services", "ad_group_criterion", "mutate_add_negative_keyword-res.xml")
+      negative = AdGroupCriterion.from_element(@ad_group, el)
+      negative.criterion.text.should == "java api library"
+      negative.criterion.match.should == "BROAD"
+    end
+
+  end
+
+end

data/spec/sem4r/ad_group_criterion/criterion_spec.rb

@@ -0,0 +1,85 @@
+# -------------------------------------------------------------------------
+# 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 Criterion do
+  include Sem4rSpecHelper
+
+  before do
+    services = stub("services")
+    stub_service_ad_group_criterion(services)
+    @ad_group = stub_adgroup(services)
+  end
+
+  describe CriterionKeyword do
+
+    it "should accept a block" do
+      keyword = CriterionKeyword.new(@ad_group) do
+        text       "pippo"
+        match      "BROAD"
+      end
+      keyword.text.should  == "pippo"
+      keyword.match.should == "BROAD"
+    end
+
+    it "should produce xml (input for google)" do
+      keyword = CriterionKeyword.new(@ad_group) do
+        text       "sem4r adwords api"
+        match      "BROAD"
+      end
+      xml_expected = read_model("//criterion", "services", "ad_group_criterion", "mutate_add_criterion_keyword-req.xml")
+      keyword.to_xml("criterion").should  xml_equivalent(xml_expected)
+    end
+
+    it "should parse xml (produced by google)" do
+      el = read_model("//entries/criterion", "services", "ad_group_criterion", "get-res.xml")
+      keyword = CriterionKeyword.from_element(@ad_group, el)
+      keyword.id.should == 11536082
+      keyword.text.should == "pippo"
+      keyword.match.should == "BROAD"
+    end
+
+  end
+
+  describe CriterionPlacement do
+
+    it "should accept a block" do
+      keyword = CriterionPlacement.new(@ad_group) do
+        url       "http://github.com"
+      end
+      keyword.url.should  == "http://github.com"
+    end
+
+    it "should parse xml (produced by google)" do
+      el = read_model("//criterion", "services", "ad_group_criterion", "mutate_add_criterion_placement-res.xml")
+      placement = CriterionPlacement.from_element(@ad_group, el)
+      placement.id.should == 11536085
+      placement.url.should == "github.com"
+    end
+
+  end
+
+end

data/spec/sem4r/ad_param/ad_param_service_spec.rb

@@ -0,0 +1,55 @@
+# -------------------------------------------------------------------------
+# 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 AdParamService do
+  include Sem4rSpecHelper
+
+  before do
+    @credentials = stub_credentials
+  end
+
+  it "should define 'all'" do
+    response_xml = read_xml_file("services", "ad_param", "mutate_set-res.xml")
+    connector = mock("connector")
+    connector.should_receive(:send).and_return(response_xml)
+    service = AdParamService.new(connector)
+    soap_message = service.all( @credentials, "ad_group_id" )
+    els = REXML::XPath.match( soap_message.response, "//mutateResponse")
+    els.should_not be_empty
+  end
+
+  it "should define 'set'" do
+    @credentials.should_receive(:mutable?).and_return(true)
+    response_xml = read_xml_file("services", "ad_param", "mutate_set-res.xml")
+    connector = mock("connector")
+    connector.should_receive(:send).and_return(response_xml)
+    service = AdParamService.new(connector)
+    soap_message = service.mutate( @credentials, "xml" )
+    els = REXML::XPath.match( soap_message.response, "//mutateResponse")
+    els.should_not be_empty
+  end
+
+end

data/spec/sem4r/ad_param/ad_param_spec.rb

@@ -0,0 +1,59 @@
+# -------------------------------------------------------------------------
+# 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 AdParam do
+
+  include Sem4rSpecHelper
+
+  before(:each) do
+    services = stub("services")
+    stub_service_ad_param(services)
+    # stub_service_ad_group_criterion(services)
+    # stub_service_ad_group_ad(services)
+    @adgroup   = stub_adgroup(services)
+    @criterion = stub_criterion(services)
+  end
+ 
+  it "should accepts a block" do
+    ad_param = AdParam.new(@adgroup, @criterion) do
+      index  1
+      text   "testo"
+    end
+    ad_param.index.should == 1
+    ad_param.text.should  == "testo"
+  end
+
+  it "should parse xml" do
+    @adgroup.should_receive(:find_criterion).with(100).and_return(@criterion)
+    el = read_model("//rval", "services", "ad_param", "mutate_set-res.xml")
+    ad_param = AdParam.from_element(@adgroup, el)
+    ad_param.index.should == 1
+    ad_param.text.should  == "$99.99"
+  end
+
+end
+
+ 

data/spec/sem4r/adwords_spec.rb

@@ -0,0 +1,110 @@
+# -------------------------------------------------------------------------
+# 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 Adwords do
+
+  before(:each) do
+    @test_config_filename = File.expand_path(File.dirname(__FILE__) + "/../fixtures/sem4r.example.yml")
+
+    @environment       = "sandbox"
+    @email             = "pippo"
+    @password          = "password"
+    @developer_token   = "developer_token"
+
+    @options = {
+      :environment       => @environment,
+      :email             => @email,
+      :password          => @password,
+      :developer_token   => @developer_token,
+    }
+  end
+
+  it "should take an hash as configuration" do
+    adwords = Adwords.new( @options )
+    adwords.should_not_receive(:load_config)
+    credentials = adwords.account.credentials
+
+    adwords.profile.should               == "anonymous_" + @environment
+    credentials.environment.should       == @environment
+    credentials.email.should             == @email
+    credentials.password.should          == @password
+    credentials.developer_token.should   == @developer_token
+    credentials.should_not be_mutable
+  end
+
+  it "should be mutable" do
+    @options[:mutable] = true
+    adwords = Adwords.new( @options )
+    adwords.should_not_receive(:load_config)
+    credentials = adwords.account.credentials
+    credentials.should be_mutable
+  end
+
+  it "should set the right environment (sandbox)" do
+    @options.delete(:environment)
+
+    adwords = Adwords.sandbox( @options )
+    credentials = adwords.account.credentials
+    credentials.environment.should       == "sandbox"
+    credentials.email.should             == @email
+  end
+
+  it "should set the right environment (production)" do
+    @options.delete(:environment)
+    adwords = Adwords.production( @options )
+    credentials = adwords.account.credentials
+    credentials.environment.should       == "production"
+    credentials.email.should             == @email
+  end
+    
+  it "should raise an exception when profile is sandbox and env is production" do
+    @options[:environment] = "prodution"
+    lambda { adwords = Adwords.sandbox( @options ) }.should raise_error(RuntimeError)
+
+    @options[:environment] = "sandbox"
+    lambda { adwords = Adwords.production( @options ) }.should raise_error(RuntimeError)
+  end
+
+  it "should read config file (profile file)" do
+    adwords = Adwords.new( "sandbox", {:config_file => @test_config_filename} )
+    credentials = adwords.account.credentials
+    credentials.environment.should       == "sandbox"
+    credentials.developer_token.should   == "example@gmail.com++EUR"
+
+    adwords = Adwords.new( "production1", {:config_file => @test_config_filename} )
+    credentials = adwords.account.credentials
+    credentials.environment.should       == "production"
+    credentials.developer_token.should   == "productiondevelopertoken"
+  end
+
+
+  it "should list profiles" do
+    values = Adwords.profiles(@test_config_filename)
+    values.should have(4).profiles
+  end
+
+end
+

data/spec/sem4r/bulk_mutate_job/bulk_mutate_job_service_spec.rb

@@ -0,0 +1,63 @@
+# -------------------------------------------------------------------------
+# 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 BulkMutateJobService do
+  include Sem4rSpecHelper
+
+  before do
+    @credentials = stub_credentials
+  end
+
+  it "should define 'all'" do
+    response_xml = read_xml_file("services", "bulk_mutate_job", "get-res.xml")
+    connector = mock("connector")
+    connector.should_receive(:send).and_return(response_xml)
+    service = BulkMutateJobService.new(connector)
+
+    operation = mock("operation")
+    operation.stub(:to_xml).and_return("xml")
+
+    soap_message = service.all( @credentials, operation )
+    els = REXML::XPath.match( soap_message.response, "//getResponse")
+    els.should_not be_empty
+  end
+
+  it "should define 'mutate'" do
+    @credentials.should_receive(:mutable?).and_return(true)
+    response_xml = read_xml_file("services", "bulk_mutate_job", "mutate-res.xml")
+    connector = mock("connector")
+    connector.should_receive(:send).and_return(response_xml)
+    service = BulkMutateJobService.new(connector)
+
+    operation = mock("operation")
+    operation.stub(:to_xml).and_return("xml")
+    
+    soap_message = service.mutate( @credentials, operation )
+    els = REXML::XPath.match( soap_message.response, "//mutateResponse")
+    els.should_not be_empty
+  end
+
+end

data/spec/sem4r/bulk_mutate_job/bulk_mutate_job_spec.rb

@@ -0,0 +1,69 @@
+# -------------------------------------------------------------------------
+# 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 BulkMutateJob do
+  include Sem4rSpecHelper, AggregatesSpecHelper
+
+  before do
+    @adgroup = mock("adgroup").as_null_object
+  end
+
+  it "should accept type accessor" do
+    # @adgroup.should_receive(:id).and_return(10)
+
+    text_ad = AdGroupTextAd.new(@adgroup)
+    text_ad.headline     = "headline"
+    text_ad.description1 = "description1"
+    text_ad.description2 = "description2"
+
+    ad_operation = AdGroupAdOperation.new
+    ad_operation.add text_ad
+
+    job = BulkMutateJob.new
+    job.campaign_id = 100
+    job.add_operation ad_operation
+
+    job.should have(1).operations
+  end
+
+  it "should parse xml" do
+    el = read_model("//rval", "services", "bulk_mutate_job", "get-res.xml")
+    job = BulkMutateJob.from_element(el)
+    job.id.should == 56889
+    job.status.should == "PENDING"
+  end
+
+  it "should have a representation in xml" do
+    @adgroup.stub(:id).and_return(3060284754)
+    @campaign = stub("campaign")
+    @campaign.stub(:id).and_return(100)
+    job = create_bulk_mutate_job(@campaign, @adgroup)
+
+    expected = read_model("//operand", "services", "bulk_mutate_job", "mutate-req.xml")
+    job.to_xml('operand').should xml_equivalent(expected)
+  end
+end
+

data/spec/sem4r/bulk_mutate_job/job_operation_spec.rb

@@ -0,0 +1,48 @@
+# -------------------------------------------------------------------------
+# 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 JobOperation do
+  include Sem4rSpecHelper, AggregatesSpecHelper
+
+
+  it "should produce xml" do
+    @campaign = mock("campaign").as_null_object
+    @campaign.stub(:id).and_return(100)
+
+    @adgroup = mock("adgroup").as_null_object
+    @adgroup.stub(:id).and_return(3060284754)
+
+    bulk_mutate_job = create_bulk_mutate_job(@campaign, @adgroup)
+    bulk_mutate_job.should_not be_empty
+
+    job_operation = JobOperation.new
+    job_operation.add(bulk_mutate_job)
+    
+    expected_xml = read_model("//operation", "services", "bulk_mutate_job", "mutate-req.xml")
+    job_operation.to_xml('operation').should xml_equivalent(expected_xml)
+  end
+
+end

data/spec/sem4r/campaign/campaign_service_spec.rb

@@ -0,0 +1,66 @@
+# -------------------------------------------------------------------------
+# 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 CampaignService do
+  include Sem4rSpecHelper
+
+  before do
+    @credentials = stub_credentials
+  end
+
+  it "should define 'all'" do
+    response_xml = read_xml_file("services", "campaign", "get-res.xml")
+    connector = mock("connector")
+    connector.should_receive(:send).and_return(response_xml)
+    service = CampaignService.new(connector)
+    soap_message = service.all( @credentials )
+    els = REXML::XPath.match( soap_message.response, "//getResponse")
+    els.should_not be_empty
+  end
+
+  it "should define 'create'" do
+    @credentials.should_receive(:mutable?).and_return(true)
+    response_xml = read_xml_file("services", "campaign", "mutate_add-res.xml")
+    connector = mock("connector")
+    connector.should_receive(:send).and_return(response_xml)
+    service = CampaignService.new(connector)
+    soap_message = service.create( @credentials, "xml" )
+    els = REXML::XPath.match( soap_message.response, "//mutateResponse")
+    els.should_not be_empty
+  end
+
+  it "should define 'delete'" do
+    @credentials.should_receive(:mutable?).and_return(true)
+    response_xml = read_xml_file("services", "campaign", "mutate_add-res.xml")
+    connector = mock("connector")
+    connector.should_receive(:send).and_return(response_xml)
+    service = CampaignService.new(connector)
+    soap_message = service.delete( @credentials, "xml" )
+    els = REXML::XPath.match( soap_message.response, "//mutateResponse")
+    els.should_not be_empty
+  end
+
+end