sem4r 0.1.1

data/spec/sem4r/ad_group/ad_group_spec.rb

@@ -0,0 +1,212 @@
+# -------------------------------------------------------------------------
+# 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 AdGroup do
+
+  include Sem4rSpecHelper
+
+  before do
+    services = double("services")
+    stub_service_ad_group(services)
+    stub_service_ad_group_criterion(services)
+    stub_service_ad_group_ad(services)
+    stub_service_ad_param(services)
+    @campaign = stub_campaign(services)
+    @criterion = stub_criterion(services)
+  end
+
+  describe "adgroup management" do
+
+    it "create should accept a block (instance_eval)" do
+      adgroup = AdGroup.create(@campaign) do
+        name "adgroup"
+      end
+      adgroup.name.should  == "adgroup"
+      adgroup.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
+      adgroup = AdGroup.create(@campaign) do
+        name "sem4r library"
+        manual_cpc_bids do
+          keyword_max_cpc 20000000
+          site_max_cpc 30000000
+        end
+      end
+      exepected_xml = read_model("//operand", "services", "ad_group", "mutate_add-req.xml")
+      adgroup.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
+
+  describe "ad management" do
+
+    it "should create a TextAd with a block" do
+      adgroup = AdGroup.new(@campaign) do
+        name "adgroup"
+        text_ad do
+          url           "http://www.pluto.com"
+          display_url   "www.Pluto.com"
+          headline      "Vieni da noi"
+          description1  "vieni da noi"
+          description2  "arivieni da noi"
+        end
+      end
+
+      adgroup.ads.length.should   == 1
+      adgroup.ads.first.id.should == 10
+    end
+
+  end
+
+  describe "criterion management" do
+
+    it "should add a CriterionKeyword with method 'keyword' + block" do
+      adgroup = AdGroup.new(@campaign) do
+        name "adgroup"
+        keyword do
+          text "pippo"
+          match "BROAD"
+        end
+      end
+      adgroup.should have(1).criterions
+      criterion = adgroup.criterions.first.criterion
+      criterion.text.should == "pippo"
+      criterion.id.should == 10
+    end
+
+    it "should add a CriterionKeyword with method 'keyword' + parameters" do
+      adgroup = AdGroup.new(@campaign) do
+        name "adgroup"
+        keyword "pippo", "BROAD"
+      end
+      adgroup.should have(1).criterions
+      criterion = adgroup.criterions.first.criterion
+      criterion.id.should == 10
+      criterion.text.should == "pippo"
+    end
+    
+    it "should add a CriterionPlacement with method 'placement' + block" do
+      adgroup = AdGroup.new(@campaign) do
+        name "adgroup"
+        placement do
+          url "pippo"
+        end
+      end
+      adgroup.criterions.length.should   == 1
+      criterion = adgroup.criterions.first.criterion
+      criterion.id.should == 10
+      criterion.url.should == "pippo"
+    end
+
+    it "should add a CriterionPlacement with method 'placement' + parameters" do
+      adgroup = AdGroup.new(@campaign) do
+        name "adgroup"
+        placement "url"
+      end
+      adgroup.criterions.length.should   == 1
+      criterion = adgroup.criterions.first.criterion
+      criterion.id.should == 10
+      criterion.url.should == "url"
+    end
+  end
+
+  describe "ad_param management" do
+
+    it "should create a AdParam with method 'ad_param' + block" do
+      criterion = @criterion # it is necessary to pass to following block
+      adgroup = AdGroup.new(@campaign) do
+        name "adgroup"
+        ad_param(criterion) do
+          index 1
+          text  "$99.99"
+        end
+      end
+
+      adgroup.ad_params.length.should   == 1
+      param = adgroup.ad_params.first
+      param.index.should == 1
+      param.text.should == "$99.99"
+    end
+
+    it "should create a AdParam with method 'ad_param' + param" do
+      criterion = @criterion # it is necessary to pass to following block
+      adgroup = AdGroup.new(@campaign) do
+        name "adgroup"
+        ad_param criterion, 1, "$99.99"
+      end
+
+      adgroup.ad_params.length.should   == 1
+      param = adgroup.ad_params.first
+      param.index.should == 1
+      param.text.should == "$99.99"
+    end
+  end
+
+end

data/spec/sem4r/ad_group_ad/ad_group_ad_operation_spec.rb

@@ -0,0 +1,88 @@
+# -------------------------------------------------------------------------
+# 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 AdGroupAdOperation do
+  include Sem4rSpecHelper
+  
+  before(:each) do
+    @adgroup = mock("adgroup").as_null_object
+    @ad_operation = AdGroupAdOperation.new
+  end
+
+  it "should raise missing operand" do
+    @ad_operation.operator "ADD"
+    @ad_operation.operator.should == "ADD"
+    lambda {
+      @ad_operation.to_xml(nil)
+    }.should raise_error(Sem4rError, "Missing Operand")
+  end
+
+  it "should produce xml (input for google)" do
+    @adgroup.should_receive(:id).and_return(3060284754)
+    text_ad = AdGroupTextAd.new(@adgroup)
+    text_ad.headline     = "Cruise to Mars Sector 1"
+    text_ad.description1 = "Visit the Red Planet in style."
+    text_ad.description2 = "Low-gravity fun for everyone!"
+    text_ad.display_url  = "www.example.com"
+    text_ad.url          = "http://www.example.com"
+    @ad_operation.add text_ad
+
+    expected_xml = read_model("//operations", "services", "bulk_mutate_job", "mutate-req.xml")
+    @ad_operation.to_xml('operations').should xml_equivalent(expected_xml)
+  end
+
+  it "should produce xml (input for google) with two operation" do
+    pending "test"
+    @adgroup = stub_adgroup
+
+    text_ad_1 = AdGroupTextAd.new(@adgroup) do
+      headline      "sem4r"
+      description1  "adwords ruby client library"
+      description2  "adwords ruby client library"
+      display_url   "www.sem4r.com"
+      url           "http://www.Sem4R.com"
+    end
+
+    text_ad_2 = AdGroupTextAd.new(@adgroup) do
+      headline      "sem4r"
+      description1  "adwords ruby client library"
+      description2  "adwodrs api made simple!"
+      display_url   "www.sem4r.com"
+      url           "http://www.Sem4R.com"
+    end
+
+    ad_operation_1 = AdGroupAdOperation.new.add text_ad_1
+    ad_operation_2 = AdGroupAdOperation.new.add text_ad_2
+
+    puts ad_operation_1.to_xml("operations")
+    puts ad_operation_2.to_xml("operations")
+
+    #    expected_xml = read_model("//operations", "services", "bulk_mutate_job", "mutate-req.xml")
+    #    @ad_operation.to_xml('operations').should xml_equivalent(expected_xml)
+  end
+
+end

data/spec/sem4r/ad_group_ad/ad_group_ad_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 AdGroupAdService do
+  include Sem4rSpecHelper
+
+  before do
+    @credentials = stub_credentials
+  end
+
+  it "should define 'all'" do
+    response_xml = read_xml_file("services", "ad_group_ad", "get_mobile_ad-res.xml")
+    connector = mock("connector")
+    connector.should_receive(:send).and_return(response_xml)
+    service = AdGroupAdService.new(connector)
+    soap_message = service.all( @credentials, "ad_group_id" )
+    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", "ad_group_ad", "mutate_add_mobile_ad-res.xml")
+    connector = mock("connector")
+    connector.should_receive(:send).and_return(response_xml)
+    service = AdGroupAdService.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_group_ad/ad_group_ad_spec.rb

@@ -0,0 +1,173 @@
+# -------------------------------------------------------------------------
+# 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 AdGroupAd do
+
+  include Sem4rSpecHelper
+
+  before(:each) do
+    services = stub("services")
+    stub_service_ad_group_criterion(services)
+    stub_service_ad_group_ad(services)
+    @adgroup = stub_adgroup(services, 3060217927)
+  end
+
+  describe AdGroupAd do
+
+    it "should parse xml (output from google)" do
+      el = read_model("//ad", "services", "ad_group_ad", "get_text_ad-res.xml")
+      ad = AdGroupAd.from_element(@adgroup, el)
+      # ad.id.should == 218770
+      ad.url.should == "http://www.pluto.com"
+      ad.headline.should == "Vieni da noi"
+    end
+
+  end
+
+  describe AdGroupTextAd do
+
+    it "should accepts accessor" do
+      text_ad = AdGroupTextAd.new(@adgroup)
+      text_ad.headline     = "headline"
+      text_ad.description1 = "description1"
+      text_ad.description2 = "description2"
+
+      text_ad.headline.should     == "headline"
+      text_ad.description1.should == "description1"
+      text_ad.description2.should == "description2"
+      text_ad.status.should == "ENABLED"
+    end
+  
+    it "should accepts a block (instance_eval)" do
+      text_ad = AdGroupTextAd.new(@adgroup) do
+        headline     "headline"
+        description1 "description1"
+        description2 "description2"
+      end
+
+      text_ad.id.should == 10
+      text_ad.headline.should     == "headline"
+      text_ad.description1.should == "description1"
+      text_ad.description2.should == "description2"
+      text_ad.status.should == "ENABLED"
+    end
+
+    it "should accepts a block (call)" do
+      text_ad = AdGroupTextAd.new(@adgroup) do |a|
+        a.headline     "headline"
+        a.description1 "description1"
+        a.description2 "description2"
+      end
+
+      text_ad.id.should == 10
+      text_ad.headline.should     == "headline"
+      text_ad.description1.should == "description1"
+      text_ad.description2.should == "description2"
+      text_ad.status.should == "ENABLED"
+    end
+
+    it "should change status" do
+      text_ad = AdGroupTextAd.new(@adgroup) do
+        headline     "headline"
+        description1 "description1"
+        description2 "description2"
+      end
+      text_ad.status.should == "ENABLED"
+      text_ad.status "PAUSED"
+      text_ad.status.should == "PAUSED"
+    end
+
+    it "should produce xml (input for google)" do
+      text_ad = AdGroupTextAd.new(@adgroup) do
+        headline     "Vieni da noi"
+        description1 "vieni da noi"
+        description2 "arivieni da noi"
+        url          "http://www.pluto.com"
+        display_url  "www.Pluto.com"
+      end
+      expected_xml = read_model("//operand", "services", "ad_group_ad", "mutate_add_text_ad-req.xml")
+      text_ad.to_xml("operand").should xml_equivalent(expected_xml)
+    end
+
+  end
+
+  describe AdGroupMobileAd do
+
+    it "should accepts a block (instance_eval)" do
+      mobile_ad = AdGroupMobileAd.new(@adgroup) do
+        markup "HTML"
+        carrier 'T-Mobile@US'
+        carrier 'Verizon@US'
+        image  do
+          name       'image_192x53.jpg'
+          data       MOBILE_IMAGE_DATA
+          dimension  'SHRUNKEN: 192x53'
+        end
+      end
+      mobile_ad.status.should == "ENABLED"
+      mobile_ad.markups.should include(AdGroupMobileAd::HTML)
+    end
+
+    it "should accepts a block (call)" do
+      mobile_ad = AdGroupMobileAd.new(@adgroup) do |a|
+        a.markup "HTML"
+        a.carrier 'T-Mobile@US'
+        a.carrier 'Verizon@US'
+        a.image  do
+          name       'image_192x53.jpg'
+          data       MOBILE_IMAGE_DATA
+          dimension  'SHRUNKEN: 192x53'
+        end
+      end
+      mobile_ad.status.should == "ENABLED"
+      mobile_ad.markups.should include(AdGroupMobileAd::HTML)
+    end
+
+    it "should produce xml (input for google)" do
+      mobile_ad = AdGroupMobileAd.new(@adgroup) do
+        headline      "sem4r"
+        description   "simply adwords"
+        # markup        "XHTML"
+        carrier       "Vodafone@IT"
+        # carrier  'ALLCARRIERS'
+        business_name "sem4r"
+        country_code  "IT"
+        phone_number  "0612345"
+      end
+
+      expected_xml = read_model("//operand", "services", "ad_group_ad", "mutate_add_mobile_ad-req.xml")
+      mobile_ad.to_xml("operand").should xml_equivalent(expected_xml)
+    end
+
+    it "should parse xml (output from google)" do
+      el = read_model("//ad", "services", "ad_group_ad", "get_mobile_ad-res.xml")
+      ad = AdGroupAd.from_element(@adgroup, el)
+      ad.headline.should == "sem4r"
+    end
+
+  end
+
+end

data/spec/sem4r/ad_group_criterion/ad_group_criterion_bids_spec.rb

@@ -0,0 +1,60 @@
+# -------------------------------------------------------------------------
+# 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 AdGroupCriterionBids do
+  include Sem4rSpecHelper
+
+  it "should parse xml (produced by google)" do
+    el = read_model("//bids", "services", "ad_group_criterion", "get-res.xml")
+    bids = AdGroupCriterionBids.from_element(el)
+    bids.should be_instance_of ManualCPCAdGroupCriterionBids
+  end
+
+  describe ManualCPCAdGroupCriterionBids do
+
+    it "should accept accessor" do
+      bids = ManualCPCAdGroupCriterionBids.new
+      bids.max_cpc 10000000
+      bids.max_cpc.should == 10000000
+    end
+
+    it "should build xml (input for google)" do
+      bids = ManualCPCAdGroupCriterionBids.new
+      bids.max_cpc 10000000
+      expected_xml = read_model("//bids", "services", "ad_group_criterion", "mutate_add_criterion_keyword-req.xml")
+      bids.to_xml.should  xml_equivalent( expected_xml )
+    end
+
+    it "should parse xml (produced by google)" do
+      el = read_model("//bids", "services", "ad_group_criterion", "get-res.xml")
+      bids = ManualCPCAdGroupCriterionBids.from_element(el)
+      bids.bid_source.should == "ADGROUP"
+      bids.max_cpc.should == 10000000
+    end
+  
+  end
+
+end

data/spec/sem4r/ad_group_criterion/ad_group_criterion_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 AdGroupCriterionService do
+  include Sem4rSpecHelper
+
+  before do
+    @credentials = stub_credentials
+  end
+
+  it "should define 'all'" do
+    response_xml = read_xml_file("services", "ad_group_criterion", "get-res.xml")
+    connector = mock("connector")
+    connector.should_receive(:send).and_return(response_xml)
+    service = AdGroupCriterionService.new(connector)
+    soap_message = service.all( @credentials, "ad_group_id" )
+    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", "ad_group_criterion", "mutate_add_criterion_keyword-res.xml")
+    connector = mock("connector")
+    connector.should_receive(:send).and_return(response_xml)
+    service = AdGroupCriterionService.new(connector)
+    soap_message = service.mutate( @credentials, "xml" )
+    els = REXML::XPath.match( soap_message.response, "//mutateResponse")
+    els.should_not be_empty
+  end
+
+end