gnumarcelo-campaigning 0.11.1 → 0.12.0

data/VERSION.yml

@@ -1,4 +1,4 @@
 --- 
 :major: 0
-:minor: 11
-:patch: 1
+:minor: 12
+:patch: 0

data/lib/campaigning/campaign.rb

@@ -59,6 +59,32 @@ module Campaigning
         campaign_id = handle_response response.campaign_CreateResult
         Campaign.new campaign_id
     end
+ 
+    #Deletes an existing campaign.
+    #
+    #*Return*:
+    #
+    #*Success*: Upon a successful call, this method will return a Campaigning::Result object wich consists of a +code+ and +message+ fields
+    #containing a successful message.
+    #
+    #*Error*: An Exception containing the cause of the error will be raised. 
+    def delete!
+      Campaign.delete!(@campaignID)
+      self.campaignID, self.subject, self.sentDate, self.totalRecipients  = nil, nil, nil, nil
+    end
+
+    #Deletes an existing campaign.
+    #
+    #*Return*:
+    #
+    #*Success*: Upon a successful call, this method will return a Campaigning::Result object wich consists of a +code+ and +message+ fields
+    #containing a successful message.
+    #
+    #*Error*: An Exception containing the cause of the error will be raised.
+    def self.delete!(campaign_id)
+      response = @@soap.deleteCampaign(:apiKey => CAMPAIGN_MONITOR_API_KEY, :campaignID => list_id)
+      handle_response response.campaign_DeleteResult
+    end
     
     #Gets a list of all subscribers who bounced for a given campaign, and the type of bounce (H=Hard Bounce, S=Soft Bounce).
     #

data/lib/campaigning/soap/generated/default.rb

@@ -1388,6 +1388,29 @@ class CampaignSendResponse
   end
 end
 
+# {http://api.createsend.com/api/}Campaign.Delete
+#   apiKey - SOAP::SOAPString
+#   campaignID - SOAP::SOAPString
+class CampaignDelete
+  attr_accessor :apiKey
+  attr_accessor :campaignID
+
+  def initialize(apiKey = nil, campaignID = nil)
+    @apiKey = apiKey
+    @campaignID = campaignID
+  end
+end
+
+# {http://api.createsend.com/api/}Campaign.DeleteResponse
+#   campaign_DeleteResult - Campaigning::Result
+class CampaignDeleteResponse
+  attr_accessor :campaign_DeleteResult
+
+  def initialize(campaign_DeleteResult = nil)
+    @campaign_DeleteResult = campaign_DeleteResult
+  end
+end
+
 # {http://api.createsend.com/api/}anyType
 class AnyType < ::String
   def initialize(*arg)

data/lib/campaigning/soap/generated/defaultDriver.rb

@@ -311,6 +311,14 @@ class ApiSoap < ::SOAP::RPC::Driver
       { :request_style =>  :document, :request_use =>  :literal,
         :response_style => :document, :response_use => :literal,
         :faults => {} }
+    ],
+    [ "http://api.createsend.com/api/Campaign.Delete",
+      "deleteCampaign",
+      [ ["in", "parameters", ["::SOAP::SOAPElement", "http://api.createsend.com/api/", "Campaign.Delete"]],
+        ["out", "parameters", ["::SOAP::SOAPElement", "http://api.createsend.com/api/", "Campaign.DeleteResponse"]] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal,
+        :faults => {} }
     ]
   ]
 

data/lib/campaigning/soap/generated/defaultMappingRegistry.rb

@@ -1266,6 +1266,23 @@ module DefaultMappingRegistry
     ]
   )
 
+  LiteralRegistry.register(
+    :class => Campaigning::CampaignDelete,
+    :schema_name => XSD::QName.new(NsApi, "Campaign.Delete"),
+    :schema_element => [
+      ["apiKey", ["SOAP::SOAPString", XSD::QName.new(NsApi, "ApiKey")], [0, 1]],
+      ["campaignID", ["SOAP::SOAPString", XSD::QName.new(NsApi, "CampaignID")], [0, 1]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => Campaigning::CampaignDeleteResponse,
+    :schema_name => XSD::QName.new(NsApi, "Campaign.DeleteResponse"),
+    :schema_element => [
+      ["campaign_DeleteResult", ["Campaigning::Result", XSD::QName.new(NsApi, "Campaign.DeleteResult")], [0, 1]]
+    ]
+  )
+
   LiteralRegistry.register(
     :class => Campaigning::Result,
     :schema_name => XSD::QName.new(NsApi, "Result"),

data/lib/campaigning/subscriber.rb

@@ -98,7 +98,7 @@ module Campaigning
     #containing a successful message.
     #
     #*Error*: An Exception containing the cause of the error will be raised.
-    def unsubscribe(list_id)
+    def unsubscribe!(list_id)
       Subscriber.unsubscribe!(@emailAddress, list_id)
     end
 

data/test/campaign_test.rb

@@ -0,0 +1,102 @@
+require 'test_helper'
+
+# Replace this API key with your own (http://www.campaignmonitor.com/api/)
+CAMPAIGN_MONITOR_API_KEY  = '__PUT_YOUR_API_KEY_HERE__'
+
+class CampaignTest < Test::Unit::TestCase
+
+
+  def setup
+    #Campaigning.set_endpoint_url "http://127.0.0.1:8088/mockapiSoap"
+    Campaigning.set_debug_mode(:on)
+  end
+
+  def test_campaign_create
+    client = Campaigning::Client.find_by_name("Client One Company")    
+    response = Campaigning::Campaign.create!(
+    :clientID => client.clientID,
+    :campaignName => "Campaign by Campaigning TO DELETE - CODEE",
+    :campaignSubject => "Campaign by myself - OK - CODEE",
+    :fromName => "Mr. Gordon23",
+    :fromEmail => "gordon23@test.com",
+    :replyTo => "no-reply@test.com",
+    :htmlUrl => "http://www.google.com.br",
+    :textUrl => "http://www.google.com.br",
+    :subscriberListIDs => ["ac52b645c048888a44c87b5f1ecf6b7d"],
+    :listSegments => client.segments
+    )
+    puts response.inspect
+  end
+  
+  
+  # def test_campaign_delete!
+  #   client = Campaigning::Client.find_by_name("Client One Company")    
+  #   response = Campaigning::Campaign.delete!(response)
+  #   puts response.inspect
+  # end
+  
+  # def test_campaign_bounces
+  #   client = Campaigning::Client.find_by_name("Client One Company")
+  #   puts client.campaigns[1].bounces.inspect
+  # end
+  # 
+  # def test_campaign_lists
+  #   client = Campaigning::Client.find_by_name("Client One Company")
+  #   client.campaigns[0].lists
+  # end
+  # 
+  # def test_campaign_opens
+  #   client = Campaigning::Client.find_by_name("Client One Company")
+  #   puts client.campaigns[0].opens
+  # end
+  # 
+  # def test_campaign_find_campaigns_by_subject
+  #   client = Campaigning::Client.find_by_name("Client One Company")
+  #   campaigns = client.find_campaigns_by_subject("Campaign to BOUNCE")    
+  #   assert campaign.length > 0
+  # end
+  # 
+  # 
+  # def test_campaign_summary
+  #   client = Campaigning::Client.find_by_name("Client One Company")
+  #   # client.campaigns[2].subscriber_clicks.each do |subscriber|
+  #   #   puts "Subscriber: #{subscriber.emailAddress}"
+  #   #   subscriber.clickedLinks.each { |clicked| puts "Link: #{clicked.link} - Number of clicks: #{clicked.clicks}"}
+  #   # end
+  #   assert client.campaigns[2].subscriber_clicks != nil
+  #   assert client.campaigns[2].subscriber_clicks != []
+  # 
+  # end
+  # 
+  # 
+  # def test_campaign_summary
+  #   client = Campaigning::Client.find_by_name("Client One Company")
+  #   puts client.campaigns[1].summary
+  # end
+  # 
+  # def test_campaign_unsubscribes
+  #   client = Campaigning::Client.find_by_name("Client One Company")
+  #   puts client.campaigns[0].unsubscribes
+  # end
+  # 
+  # def test_campaign_send
+  #   client = Campaigning::Client.find_by_name("Client One Company")
+  #   response = Campaigning::Campaign.create!(
+  #   :clientID => client.clientID,
+  #   :campaignName => "Campaign by myself RUBY NEW CREATED",
+  #   :campaignSubject => "Campaign by myself - OK",
+  #   :fromName => "Mr. Gordon2",
+  #   :fromEmail => "gordon2@test.com",
+  #   :replyTo => "no-reply@test.com",
+  #   :htmlUrl => "http://www.campaignmonitor.com/api/method/campaign-create/",
+  #   :textUrl => "http://www.google.com",
+  #   :subscriberListIDs => ["ac52b645c048888a44c87b5f1ecf6b7d"],
+  #   :listSegments => client.segments
+  #   )
+  # 
+  #   puts client.campaigns[0].send!(
+  #   :confirmationEmail => "userhdhd@test.com",
+  #   :sendDate => "2009-04-30 11:55:01" # Date format YYYY-MM-DD HH:MM:SS.
+  #   ) 
+  # end
+end

data/test/campaigning_test.rb

@@ -8,358 +8,33 @@ class CampaigningTest < Test::Unit::TestCase
 
   def setup
     #Campaigning.set_endpoint_url "http://127.0.0.1:8088/mockapiSoap"
-    Campaigning.set_debug_mode(:on)
   end
 
-  # def test_campaigning_system_date
-  #   date = Campaigning.system_date
-  #   assert !date.nil?
-  # end
-  # 
-  # def test_user_get_timezones
-  #   timezones = Campaigning.timezones
-  #   assert !timezones.nil?
-  # end 
-  # 
-  # def test_user_countries
-  #   countries = Campaigning.countries
-  #   assert !countries.nil?
-  # end
-  # 
-  # def test_client_get_all_clients
-  #   clients = Campaigning::Client.get_all_clients
-  #   assert clients.length > 0
-  #   #clients.each{ |c| puts c.clientID + " - " + c.name }
-  # end
-  # 
-  # def test_client_lists
-  #   client = Campaigning::Client.find_by_name("Client One Company")    
-  #   assert client.lists.length > 0
-  # end
-
-    
-   # def test_client_create!
-   #   client_created = Campaigning::Client.create!(
-   #    :companyName => "My test clients22",
-   #    :contactName => "Oswald Green15s25",
-   #    :emailAddress => "og1524s@example.com",
-   #    :country => "Ireland",
-   #    :timezone => Campaigning.timezones[1]
-   #   )
-   #   assert !client_created.clientID.nil?
-   # end
-   #   
-  # def test_client_delete
-  #   response = Campaigning::Client.delete!(client_created.clientID)  
-  #   assert response.code == 0
-  # end
-  # 
-  # def test_client_delete_itself
-  #   client = Campaigning::Client.find_by_name("Orange Company 7")
-  #   client.delete!
-  # end
-
-  # def test_client_segments
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   assert client.segments.length > 0
-  # end
-  # 
-  # 
-  # def test_find_client_by_name
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   assert !client.nil? && client.name == "Client One Company"
-  # end
-  # 
-  # 
-  # def test_get_client_campaigns
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   puts client.campaigns.inspect
-  # end
-  # 
-  # def test_get_client_details
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   # client_details = client.details
-  #   # basic_details = client_details.basicDetails
-  #   # access_and_billing_details = client_details.accessAndBilling
-  #   # puts "Basic details:"
-  #   # puts "Client ID: #{basic_details.clientID} - \n
-  #   #       Company: #{basic_details.companyName} - \n
-  #   #       Contact: #{basic_details.contactName} - \n
-  #   #       Country: #{basic_details.country} - \n
-  #   #       Timezone: #{basic_details.timezone}"
-  #   # 
-  #   # puts "Access and Billing Details:"
-  #   # puts "Username: #{access_and_billing_details.username} - \n 
-  #   #       Password: #{access_and_billing_details.password} - \n
-  #   #       Billing Type: #{access_and_billing_details.billingType} - \n
-  #   #       Currency: #{access_and_billing_details.currency} - \n
-  #   #       Delivery Fee: #{access_and_billing_details.deliveryFee} - \n
-  #   #       Cost per Recipient: #{access_and_billing_details.costPerRecipient} - \n
-  #   #       Design and Span test Fee: #{access_and_billing_details.designAndSpamTestFee} - \n
-  #   #       Access Level: #{access_and_billing_details.accessLevel}"
-  # 
-  #   assert !client.details.nil?
-  # 
-  # end 
-  # 
-  # def test_get_client_suppression_list
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   puts client.suppression_list.inspect
-  # end
-  # 
-  # # def test_client_update_access_and_billing!
-  # #   client = Campaigning::Client.find_by_name("Client One Company")
-  # #   response = client.update_access_and_billing!(
-  # #   :accessLevel => 5 ,
-  # #   :username => "client_one",
-  # #   :password => "1234560",
-  # #   :billingType => "UserPaysOnClientsBehalf",
-  # #   :currency => "USD",
-  # #   :deliveryFee => 6.5,
-  # #   :costPerRecipient => 1.5 ,
-  # #   :designAndSpamTestFee => 5
-  # #   )
-  # #   assert response.code == 0
-  # # end
-  # # 
-  # # def test_client_update_basics!
-  # #   client = Campaigning::Client.find_by_name("Client Two")
-  # #   response = client.update_basics!(
-  # #   :companyName => "My new Company",
-  # #   :contactName => "Mr. Gordon Newman",
-  # #   :emailAddress => "gordon-newman@test.com",
-  # #   :country => "Ireland",
-  # #   :timezone => Campaigning.timezones[1]
-  # #   )
-  # #   assert response.code == 0
-  # # end
-  # 
-  # def test_client_find_list_by_name
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   list = client.find_list_by_name "My Friends"
-  #   assert list.nil? == false
-  # end
-
-
-  # def test_campaign_create
-  #   client = Campaigning::Client.find_by_name("Client One Company")    
-  #   response = Campaigning::Campaign.create!(
-  #   :clientID => client.clientID,
-  #   :campaignName => "Campaign by myself RUBY TO DELETE - CODEEEEE",
-  #   :campaignSubject => "Campaign by myself - OK - CODEEEEE",
-  #   :fromName => "Mr. Gordon2",
-  #   :fromEmail => "gordon2@test.com",
-  #   :replyTo => "no-reply@test.com",
-  #   :htmlUrl => "http://www.campaignmonitor.com/api/method/campaign-create/",
-  #   :textUrl => "http://www.google.com.br",
-  #   :subscriberListIDs => ["ac52b645c048888a44c87b5f1ecf6b7d"],
-  #   :listSegments => client.segments
-  #   )
-  #   puts response.inspect
-  # end
-  # 
-  # 
-  # def test_campaign_bounces
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   puts client.campaigns[1].bounces.inspect
-  # end
-  # 
-  # def test_campaign_lists
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   client.campaigns[0].lists
-  # end
-  # 
-  # def test_campaign_opens
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   puts client.campaigns[0].opens
-  # end
-  # 
-  # def test_campaign_find_campaigns_by_subject
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   campaigns = client.find_campaigns_by_subject("Campaign to BOUNCE")    
-  #   assert campaign.length > 0
-  # end
-  # 
-  # 
-  # def test_campaign_summary
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   # client.campaigns[2].subscriber_clicks.each do |subscriber|
-  #   #   puts "Subscriber: #{subscriber.emailAddress}"
-  #   #   subscriber.clickedLinks.each { |clicked| puts "Link: #{clicked.link} - Number of clicks: #{clicked.clicks}"}
-  #   # end
-  #   assert client.campaigns[2].subscriber_clicks != nil
-  #   assert client.campaigns[2].subscriber_clicks != []
-  # 
-  # end
-  # 
-  # 
-  # def test_campaign_summary
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   puts client.campaigns[1].summary
-  # end
-  # 
-  # def test_campaign_unsubscribes
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   puts client.campaigns[0].unsubscribes
-  # end
-  # 
-  # def test_campaign_send
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   response = Campaigning::Campaign.create!(
-  #   :clientID => client.clientID,
-  #   :campaignName => "Campaign by myself RUBY NEW CREATED",
-  #   :campaignSubject => "Campaign by myself - OK",
-  #   :fromName => "Mr. Gordon2",
-  #   :fromEmail => "gordon2@test.com",
-  #   :replyTo => "no-reply@test.com",
-  #   :htmlUrl => "http://www.campaignmonitor.com/api/method/campaign-create/",
-  #   :textUrl => "http://www.google.com",
-  #   :subscriberListIDs => ["ac52b645c048888a44c87b5f1ecf6b7d"],
-  #   :listSegments => client.segments
-  #   )
-  # 
-  #   puts client.campaigns[0].send!(
-  #   :confirmationEmail => "userhdhd@test.com",
-  #   :sendDate => "2009-04-30 11:55:01" # Date format YYYY-MM-DD HH:MM:SS.
-  #   ) 
-  # end
-  # 
-  # def test_subscriber_add
-  #   subscriber = Campaigning::Subscriber.new("robertf@test.com", "Robert Franklin")
-  #   response = subscriber.add!("ac52b645c048888a44c87b5f1ecf6b7d")
-  #   assert response.code == 0
-  # end
-  # 
-  # def test_subscriber_add_with_custom_fields
-  #   subscriber = Campaigning::Subscriber.new("user_custon2@test.com", "Mr. Custon")
-  #   response = subscriber.add!("ac52b645c048888a44c87b5f1ecf6b7d", :CityName => "London", :SponsorName => "Some Sponsor from London")
-  #   assert response.code == 0    
-  # end
-    
-  def test_subscriber_add_and_resubscribe
-    subscriber = Campaigning::Subscriber.new("norag@test.com", "Nora Green")
-    response = subscriber.add_and_resubscribe!("ac52b645c048888a44c87b5f1ecf6b7d")
-    assert response.code == 0
+  def test_campaigning_system_date
+    date = Campaigning.system_date
+    assert !date.nil?
   end
   
+  def test_user_get_timezones
+    timezones = Campaigning.timezones
+    assert !timezones.nil?
+  end 
   
-  def test_subscriber_add_and_resubscribe_with_custom_fields
-    subscriber = Campaigning::Subscriber.new("user_custon@test.com", "Mr. Custon")
-    response = subscriber.add_and_resubscribe!("ac52b645c048888a44c87b5f1ecf6b7d", :CityName => "Dublin", :SponsorName => "Some Sponsor")
-    assert response.code == 0
+  def test_user_countries
+    countries = Campaigning.countries
+    assert !countries.nil?
+  end
+  
+  def test_client_get_all_clients
+    clients = Campaigning::Client.get_all_clients
+    assert clients.length > 0
+    #clients.each{ |c| puts c.clientID + " - " + c.name }
   end
-
   
-  # 
-  # def test_subscriber_unsubscribe
-  #   subscriber = Campaigning::Subscriber.new("user_to_test@test.com") # TODO: Change to get the Subscriber, not to CREATE a new one
-  #   response = subscriber.unsubscribe!("ac52b645c048888a44c87b5f1ecf6b7d")
-  #   puts response.inspect
-  #   assert response.code == 0    
-  # end
-  # 
-  # 
-  # def test_subscriber_is_subscribed
-  #   subscriber = Campaigning::Subscriber.new("user_to_test@test.com") # TODO: Change to get the Subscriber, not to CREATE a new one
-  #   response = subscriber.is_subscribed?("ac52b645c048888a44c87b5f1ecf6b7d")
-  #   puts response.inspect
-  #   assert response == false
-  # end
-  # 
-  # 
-  # def test_list_find_single_subscriber
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   list = client.find_list_by_name "My Friends"
-  #   subscriber = list.find_single_subscriber("user_custon2@test.com")
-  #   puts subscriber.inspect
-  #   assert subscriber.name != nil
-  # end 
-  # 
-  # def test_list_find_unsubscribed
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   list = client.find_list_by_name "My Friends"
-  #   subscriber_list = list.find_unsubscribed(DateTime.new(y=2009,m=4,d=01, h=01,min=00,s=00))
-  #   puts subscriber_list.inspect
-  #   assert subscriber_list.length > 0    
-  # end
-  # 
-  # def test_list_find_active_subscribers
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   list = client.find_list_by_name "My Friends"
-  #   subscriber_list = list.find_active_subscribers(DateTime.new(y=2009,m=5,d=01, h=01,min=00,s=00))        
-  #   assert subscriber_list.length > 0
-  # end
-  # 
-  # def test_list_get_all_active_subscribers
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   list = client.find_list_by_name "My Friends"
-  #   subscriber_list = list.get_all_active_subscribers  
-  #   puts subscriber_list.inspect
-  #   assert subscriber_list.length > 0
-  # end 
-  # 
-  # 
-  # 
-  # def test_list_create
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   list = Campaigning::List.create!(
-  #   :clientID => client.clientID,
-  #   :title => "New list to test",
-  #   :unsubscribePage => "",
-  #   :confirmOptIn => false,
-  #   :confirmationSuccessPage => ""
-  #   )
-  #   assert list.listID != nil
-  # end
-  # 
-  # def test_list_create_custom_field
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   list = client.find_list_by_name "My Friends"
-  #   result = list.create_custom_field!(
-  #   :fieldName => "Country" ,
-  #   :dataType => "MultiSelectOne",
-  #   :options => %w[Brazil Ireland England]
-  #   )
-  #   assert result.code == 0
-  # end
-  # 
-  # def test_list_delete
-  #   result = Campaigning::List.delete!("916797045feddc92df10a4722f819771")
-  #   puts result.inspect
-  # end
-  # 
-  # def test_list_delete_custom_field
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   list = client.find_list_by_name "My Friends"    
-  #   result = list.delete_custom_field!("Country")
-  #   assert result.code == 0
-  # end
-  # 
-  # def test_list_custom_fields
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   list = client.find_list_by_name "My Friends"
-  #   result = list.custom_fields
-  #   puts result.inspect
-  # end
-  # 
-  # def test_list_details
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   list = client.find_list_by_name "My Friends"
-  #   result = list.details
-  #   puts result.inspect
-  # end
-  # 
-  # def test_list_update
-  #   client = Campaigning::Client.find_by_name("Client One Company")
-  #   list = client.find_list_by_name "My Friends"
-  #   result = list.update!(
-  #   :title => "NEW TITLE : My new list created by ruby list.create",
-  #   :unsubscribePage => "",
-  #   :confirmOptIn => false,
-  #   :confirmationSuccessPage => ""
-  #   )
-  #   assert result.code == 0
-  # end
+  def test_client_lists
+    client = Campaigning::Client.find_by_name("Client One Company")    
+    assert client.lists.length > 0
+  end
 
 
 end

data/test/client_test.rb

@@ -0,0 +1,116 @@
+require 'test_helper'
+
+# Replace this API key with your own (http://www.campaignmonitor.com/api/)
+CAMPAIGN_MONITOR_API_KEY  = '__PUT_YOUR_API_KEY_HERE__'
+
+class ClientTest < Test::Unit::TestCase
+
+
+  def setup
+    #Campaigning.set_endpoint_url "http://127.0.0.1:8088/mockapiSoap"
+    Campaigning.set_debug_mode(:on)
+  end
+
+  def test_client_create!
+    client_created = Campaigning::Client.create!(
+    :companyName => "My test clients22",
+    :contactName => "Oswald Green15s25",
+    :emailAddress => "og1524s@example.com",
+    :country => "Ireland",
+    :timezone => Campaigning.timezones[1]
+    )
+    assert !client_created.clientID.nil?
+  end
+
+  def test_client_delete
+    response = Campaigning::Client.delete!(client_created.clientID)  
+    assert response.code == 0
+  end
+
+  def test_client_delete_itself
+    client = Campaigning::Client.find_by_name("Orange Company 7")
+    client.delete!
+  end
+
+  def test_client_segments
+    client = Campaigning::Client.find_by_name("Client One Company")
+    assert client.segments.length > 0
+  end
+
+
+  def test_find_client_by_name
+    client = Campaigning::Client.find_by_name("Client One Company")
+    assert !client.nil? && client.name == "Client One Company"
+  end
+
+
+  def test_get_client_campaigns
+    client = Campaigning::Client.find_by_name("Client One Company")
+    puts client.campaigns.inspect
+  end
+
+  def test_get_client_details
+    client = Campaigning::Client.find_by_name("Client One Company")
+    # client_details = client.details
+    # basic_details = client_details.basicDetails
+    # access_and_billing_details = client_details.accessAndBilling
+    # puts "Basic details:"
+    # puts "Client ID: #{basic_details.clientID} - \n
+    #       Company: #{basic_details.companyName} - \n
+    #       Contact: #{basic_details.contactName} - \n
+    #       Country: #{basic_details.country} - \n
+    #       Timezone: #{basic_details.timezone}"
+    # 
+    # puts "Access and Billing Details:"
+    # puts "Username: #{access_and_billing_details.username} - \n 
+    #       Password: #{access_and_billing_details.password} - \n
+    #       Billing Type: #{access_and_billing_details.billingType} - \n
+    #       Currency: #{access_and_billing_details.currency} - \n
+    #       Delivery Fee: #{access_and_billing_details.deliveryFee} - \n
+    #       Cost per Recipient: #{access_and_billing_details.costPerRecipient} - \n
+    #       Design and Span test Fee: #{access_and_billing_details.designAndSpamTestFee} - \n
+    #       Access Level: #{access_and_billing_details.accessLevel}"
+
+    assert !client.details.nil?
+
+  end 
+
+  def test_get_client_suppression_list
+    client = Campaigning::Client.find_by_name("Client One Company")
+    puts client.suppression_list.inspect
+  end
+
+  def test_client_update_access_and_billing!
+    client = Campaigning::Client.find_by_name("Client One Company")
+    response = client.update_access_and_billing!(
+    :accessLevel => 5 ,
+    :username => "client_one",
+    :password => "1234560",
+    :billingType => "UserPaysOnClientsBehalf",
+    :currency => "USD",
+    :deliveryFee => 6.5,
+    :costPerRecipient => 1.5 ,
+    :designAndSpamTestFee => 5
+    )
+    assert response.code == 0
+  end
+  
+  def test_client_update_basics!
+    client = Campaigning::Client.find_by_name("Client Two")
+    response = client.update_basics!(
+    :companyName => "My new Company",
+    :contactName => "Mr. Gordon Newman",
+    :emailAddress => "gordon-newman@test.com",
+    :country => "Ireland",
+    :timezone => Campaigning.timezones[1]
+    )
+    assert response.code == 0
+  end
+
+  def test_client_find_list_by_name
+    client = Campaigning::Client.find_by_name("Client One Company")
+    list = client.find_list_by_name "My Friends"
+    assert list.nil? == false
+  end
+
+end

data/test/list_test.rb

@@ -0,0 +1,106 @@
+require 'test_helper'
+
+# Replace this API key with your own (http://www.campaignmonitor.com/api/)
+CAMPAIGN_MONITOR_API_KEY  = '__PUT_YOUR_API_KEY_HERE__'
+
+class ListTest < Test::Unit::TestCase
+
+
+  def setup
+    #Campaigning.set_endpoint_url "http://127.0.0.1:8088/mockapiSoap"
+    Campaigning.set_debug_mode(:on)
+  end
+
+
+  def test_list_find_single_subscriber
+    client = Campaigning::Client.find_by_name("Client One Company")
+    list = client.find_list_by_name "My Friends"
+    subscriber = list.find_single_subscriber("user_custon2@test.com")
+    puts subscriber.inspect
+    assert subscriber.name != nil
+  end 
+
+  def test_list_find_unsubscribed
+    client = Campaigning::Client.find_by_name("Client One Company")
+    list = client.find_list_by_name "My Friends"
+    subscriber_list = list.find_unsubscribed(DateTime.new(y=2009,m=4,d=01, h=01,min=00,s=00))
+    puts subscriber_list.inspect
+    assert subscriber_list.length > 0    
+  end
+
+  def test_list_find_active_subscribers
+    client = Campaigning::Client.find_by_name("Client One Company")
+    list = client.find_list_by_name "My Friends"
+    subscriber_list = list.find_active_subscribers(DateTime.new(y=2009,m=5,d=01, h=01,min=00,s=00))        
+    assert subscriber_list.length > 0
+  end
+
+  def test_list_get_all_active_subscribers
+    client = Campaigning::Client.find_by_name("Client One Company")
+    list = client.find_list_by_name "My Friends"
+    subscriber_list = list.get_all_active_subscribers  
+    puts subscriber_list.inspect
+    assert subscriber_list.length > 0
+  end 
+
+  def test_list_create
+    client = Campaigning::Client.find_by_name("Client One Company")
+    list = Campaigning::List.create!(
+    :clientID => client.clientID,
+    :title => "New list to test",
+    :unsubscribePage => "",
+    :confirmOptIn => false,
+    :confirmationSuccessPage => ""
+    )
+    assert list.listID != nil
+  end
+
+  def test_list_create_custom_field
+    client = Campaigning::Client.find_by_name("Client One Company")
+    list = client.find_list_by_name "My Friends"
+    result = list.create_custom_field!(
+    :fieldName => "Country" ,
+    :dataType => "MultiSelectOne",
+    :options => %w[Brazil Ireland England]
+    )
+    assert result.code == 0
+  end
+
+  def test_list_delete
+    result = Campaigning::List.delete!("916797045feddc92df10a4722f819771")
+    puts result.inspect
+  end
+
+  def test_list_delete_custom_field
+    client = Campaigning::Client.find_by_name("Client One Company")
+    list = client.find_list_by_name "My Friends"    
+    result = list.delete_custom_field!("Country")
+    assert result.code == 0
+  end
+
+  def test_list_custom_fields
+    client = Campaigning::Client.find_by_name("Client One Company")
+    list = client.find_list_by_name "My Friends"
+    result = list.custom_fields
+    puts result.inspect
+  end
+
+  def test_list_details
+    client = Campaigning::Client.find_by_name("Client One Company")
+    list = client.find_list_by_name "My Friends"
+    result = list.details
+    puts result.inspect
+  end
+
+  def test_list_update
+    client = Campaigning::Client.find_by_name("Client One Company")
+    list = client.find_list_by_name "My Friends"
+    result = list.update!(
+    :title => "NEW TITLE : My new list created by ruby list.create",
+    :unsubscribePage => "",
+    :confirmOptIn => false,
+    :confirmationSuccessPage => ""
+    )
+    assert result.code == 0
+  end
+end

data/test/subscriber_test.rb

@@ -0,0 +1,55 @@
+require 'test_helper'
+
+# Replace this API key with your own (http://www.campaignmonitor.com/api/)
+CAMPAIGN_MONITOR_API_KEY  = '__PUT_YOUR_API_KEY_HERE__'
+
+class SubscriberTest < Test::Unit::TestCase
+
+
+  def setup
+    #Campaigning.set_endpoint_url "http://127.0.0.1:8088/mockapiSoap"
+    Campaigning.set_debug_mode(:on)
+  end
+
+  def test_subscriber_add
+    subscriber = Campaigning::Subscriber.new("robertf@test.com", "Robert Franklin")
+    response = subscriber.add!("ac52b645c048888a44c87b5f1ecf6b7d")
+    assert response.code == 0
+  end
+
+  def test_subscriber_add_with_custom_fields
+    subscriber = Campaigning::Subscriber.new("user_custon2@test.com", "Mr. Custon")
+    response = subscriber.add!("ac52b645c048888a44c87b5f1ecf6b7d", :CityName => "London", :SponsorName => "Some Sponsor from London")
+    assert response.code == 0    
+  end
+
+  def test_subscriber_add_and_resubscribe
+    subscriber = Campaigning::Subscriber.new("norag@test.com", "Nora Green")
+    response = subscriber.add_and_resubscribe!("ac52b645c048888a44c87b5f1ecf6b7d")
+    assert response.code == 0
+  end
+
+
+  def test_subscriber_add_and_resubscribe_with_custom_fields
+    subscriber = Campaigning::Subscriber.new("user_custon@test.com", "Mr. Custon")
+    response = subscriber.add_and_resubscribe!("ac52b645c048888a44c87b5f1ecf6b7d", :CityName => "Dublin", :SponsorName => "Some Sponsor")
+    assert response.code == 0
+  end
+
+
+  def test_subscriber_unsubscribe
+    subscriber = Campaigning::Subscriber.new("user_to_test@test.com") # TODO: Change to get the Subscriber, not to CREATE a new one
+    response = subscriber.unsubscribe!("ac52b645c048888a44c87b5f1ecf6b7d")
+    puts response.inspect
+    assert response.code == 0    
+  end
+
+
+  def test_subscriber_is_subscribed
+    subscriber = Campaigning::Subscriber.new("user_to_test@test.com") # TODO: Change to get the Subscriber, not to CREATE a new one
+    response = subscriber.is_subscribed?("ac52b645c048888a44c87b5f1ecf6b7d")
+    puts response.inspect
+    assert response == false
+  end
+
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: gnumarcelo-campaigning
 version: !ruby/object:Gem::Version 
-  version: 0.11.1
+  version: 0.12.0
 platform: ruby
 authors: 
 - Marcelo Menezes
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2009-07-02 00:00:00 -07:00
+date: 2009-07-03 00:00:00 -07:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -46,7 +46,11 @@ files:
 - lib/campaigning/soap/generated/defaultDriver.rb
 - lib/campaigning/soap/generated/defaultMappingRegistry.rb
 - lib/campaigning/subscriber.rb
+- test/campaign_test.rb
 - test/campaigning_test.rb
+- test/client_test.rb
+- test/list_test.rb
+- test/subscriber_test.rb
 - test/test_helper.rb
 has_rdoc: true
 homepage: http://github.com/gnumarcelo/campaigning
@@ -75,5 +79,9 @@ signing_key:
 specification_version: 3
 summary: TODO
 test_files: 
+- test/campaign_test.rb
 - test/campaigning_test.rb
+- test/client_test.rb
+- test/list_test.rb
+- test/subscriber_test.rb
 - test/test_helper.rb