createsend-sendowlfork 6.1.0.pre.hashie5

data/samples/subscribers_sample.rb

@@ -0,0 +1,51 @@
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+require 'createsend'
+
+class SubscribersSample
+    def initialize
+        raise 'CREATESEND_ACCESS_TOKEN env var missing' if ENV['CREATESEND_ACCESS_TOKEN'].nil?
+        raise 'CREATESEND_REFRESH_TOKEN env var missing' if ENV['CREATESEND_REFRESH_TOKEN'].nil?
+        raise 'CREATESEND_LIST_ID env var missing' if ENV['CREATESEND_LIST_ID'].nil?
+
+        @auth = {:access_token => ENV['CREATESEND_ACCESS_TOKEN'], :refresh_token => ENV['CREATESEND_REFRESH_TOKEN']}
+    end
+
+    def add_subscriber_without_mobile
+        @subscriberAdded = CreateSend::Subscriber.add @auth, ENV['CREATESEND_LIST_ID'], "subscriberNoMobile@example.com", "Subscriber", [], true, "Yes", false
+    end
+
+    def add_subscriber_with_mobile
+        @subscriberAdded = CreateSend::Subscriber.add @auth, ENV['CREATESEND_LIST_ID'], "subscriberWithMobile@example.com", "SubscriberWithMobile", [], true, "Yes", false, "+61423152523"
+    end
+
+    def add_subscriber_with_mobile_and_consent
+        @subscriberAdded = CreateSend::Subscriber.add @auth, ENV['CREATESEND_LIST_ID'], "subscriberWithMobileAndConsent@example.com", "SubscriberWithMobileAndConsent", [], true, "Yes", false, "+61423152523", "Yes"
+    end
+
+    def get_subscriber
+        @subscriber = CreateSend::Subscriber.get @auth, ENV['CREATESEND_LIST_ID'], "subscriberNoMobile@example.com"
+    end
+
+    def import_subscribers
+        subscribers = [
+            {"EmailAddress":"subscriberImport11@example.com","Name":"subscriberImport11", "ConsentToTrack":"Yes"},
+            {"EmailAddress":"subscriberImport12@example.com","Name":"subscriberImport12", "ConsentToTrack":"No", "MobileNumber":"+1612105111", "ConsentToSendSms":"Yes"},
+            {"EmailAddress":"subscriberImport13@example.com","Name":"subscriberImport13", "ConsentToTrack":"Yes", "MobileNumber":"+1612105112"}
+        ]
+        @subscribersImported = CreateSend::Subscriber.import(@auth, ENV['CREATESEND_LIST_ID'], subscribers, true, false, false)
+    end        
+
+    def update_subscribers
+        @subscriber = CreateSend::Subscriber.new(@auth, ENV['CREATESEND_LIST_ID'], 'subscriberWithMobileAndConsent@example.com')
+        @subscriberUpdated = @subscriber.update("subscriberWithMobileAndConsent@example.com", "Subscriber With Mobile And Consent", [], true, "Yes", false, "+16175551218")
+    end
+end
+
+sample = SubscribersSample.new
+
+puts "add_subscriber_without_mobile: #{sample.add_subscriber_without_mobile.to_json}\n\n"
+puts "add_subscriber_with_mobile: #{sample.add_subscriber_with_mobile.to_json}\n\n"
+puts "add_subscriber_with_mobile_and_consent: #{sample.add_subscriber_with_mobile_and_consent.to_json}\n\n"
+puts "get subscribers: #{sample.get_subscriber.to_json}\n\n"
+puts "import_subscribers: #{sample.import_subscribers.to_json}\n\n"
+puts "update_subscribers: #{sample.update_subscribers.to_json}\n\n"

data/test/administrator_test.rb

@@ -0,0 +1,37 @@
+require File.dirname(__FILE__) + '/helper'
+
+class AdministratorTest < Test::Unit::TestCase
+  multiple_contexts "authenticated_using_oauth_context", "authenticated_using_api_key_context" do
+    setup do
+      @admin = CreateSend::Administrator.new @auth, "admin@example.com"
+    end
+
+    should "get a administrator by email address" do
+      email = "admin@example.com"
+      stub_get(@auth, "admins.json?email=#{ERB::Util.url_encode(email)}", "admin_details.json")
+      admin = CreateSend::Administrator.get @auth, email
+      admin.EmailAddress.should be == email
+      admin.Name.should be == "Admin One"
+      admin.Status.should be == "Active"
+    end
+
+    should "add an administrator" do
+      stub_post(@auth, "admins.json", "add_admin.json")
+      result = CreateSend::Administrator.add @auth, "admin@example.com", "Admin"
+      result.EmailAddress.should be == "admin@example.com"
+    end
+
+    should "update an administrator" do
+      email = "admin@example.com"
+      new_email = "new_email_address@example.com"
+      stub_put(@auth, "admins.json?email=#{ERB::Util.url_encode(email)}", nil)
+      @admin.update new_email, "Admin Name"
+      @admin.email_address.should be == new_email
+    end
+
+    should "delete an admin" do
+      stub_delete(@auth, "admins.json?email=#{ERB::Util.url_encode(@admin.email_address)}", nil)
+      @admin.delete
+    end
+  end
+end

data/test/campaign_test.rb

@@ -0,0 +1,296 @@
+require File.dirname(__FILE__) + '/helper'
+
+class CampaignTest < Test::Unit::TestCase
+  multiple_contexts "authenticated_using_oauth_context", "authenticated_using_api_key_context" do
+    setup do
+      @campaign = CreateSend::Campaign.new @auth, '787y87y87y87y87y87y87'
+    end
+
+    should "create a campaign" do
+      client_id = '87y8d7qyw8d7yq8w7ydwqwd'
+      stub_post(@auth, "campaigns/#{client_id}.json", "create_campaign.json")
+      campaign_id = CreateSend::Campaign.create @auth, client_id, "subject", "name", "g'day", "good.day@example.com", "good.day@example.com", 
+      "http://example.com/campaign.html", "http://example.com/campaign.txt", [ '7y12989e82ue98u2e', 'dh9w89q8w98wudwd989' ],
+      [ 'y78q9w8d9w8ud9q8uw', 'djw98quw9duqw98uwd98' ]
+      request = FakeWeb.last_request.body
+      request.include?("\"TextUrl\":\"http://example.com/campaign.txt\"").should be == true
+      campaign_id.should be == "787y87y87y87y87y87y87"
+    end
+
+    should "create a campaign with a nil text_url param" do
+      client_id = '87y8d7qyw8d7yq8w7ydwqwd'
+      stub_post(@auth, "campaigns/#{client_id}.json", "create_campaign.json")
+      campaign_id = CreateSend::Campaign.create @auth, client_id, "subject", "name", "g'day", "good.day@example.com", "good.day@example.com", 
+      "http://example.com/campaign.html", nil, [ '7y12989e82ue98u2e', 'dh9w89q8w98wudwd989' ],
+      [ 'y78q9w8d9w8ud9q8uw', 'djw98quw9duqw98uwd98' ]
+      request = FakeWeb.last_request.body
+      request.include?("\"TextUrl\":null").should be == true
+      campaign_id.should be == "787y87y87y87y87y87y87"
+    end
+
+    should "create a campaign from a template" do
+      template_content = {
+        :Singlelines => [
+          {
+            :Content => "This is a heading",
+            :Href => "http://example.com/"
+          }
+        ],
+        :Multilines => [
+          {
+            :Content => "<p>This is example</p><p>multiline \
+            <a href=\"http://example.com\">content</a>...</p>"
+          }
+        ],
+        :Images => [
+          {
+            :Content => "http://example.com/image.png",
+            :Alt => "This is alt text for an image",
+            :Href => "http://example.com/"
+          }
+        ],
+        :Repeaters => [
+          {
+            :Items => [
+              {
+                :Layout => "My layout",
+                :Singlelines => [
+                  {
+                    :Content => "This is a repeater heading",
+                    :Href => "http://example.com/"
+                  }
+                ],
+                :Multilines => [
+                  {
+                    :Content => "<p>This is example</p><p>multiline \
+                    <a href=\"http://example.com\">content</a>...</p>"
+                  }
+                ],
+                :Images => [
+                  {
+                    :Content => "http://example.com/repeater-image.png",
+                    :Alt => "This is alt text for a repeater image",
+                    :Href => "http://example.com/"
+                  }
+                ]
+              }
+            ]
+          }
+        ]
+      }
+
+      # template_content as defined above would be used to fill the content of
+      # a template with markup similar to the following:
+      # 
+      # <html>
+      #   <head><title>My Template</title></head>
+      #   <body>
+      #     <p><singleline>Enter heading...</singleline></p>
+      #     <div><multiline>Enter description...</multiline></div>
+      #     <img id="header-image" editable="true" width="500" />
+      #     <repeater>
+      #       <layout label="My layout">
+      #         <div class="repeater-item">
+      #           <p><singleline></singleline></p>
+      #           <div><multiline></multiline></div>
+      #           <img editable="true" width="500" />
+      #         </div>
+      #       </layout>
+      #     </repeater>
+      #     <p><unsubscribe>Unsubscribe</unsubscribe></p>
+      #   </body>
+      # </html>     
+
+      client_id = '87y8d7qyw8d7yq8w7ydwqwd'
+      stub_post(@auth, "campaigns/#{client_id}/fromtemplate.json", "create_campaign.json")
+      campaign_id = CreateSend::Campaign.create_from_template @auth, client_id, "subject", "name", "g'day", "good.day@example.com", "good.day@example.com", 
+      [ '7y12989e82ue98u2e', 'dh9w89q8w98wudwd989' ], [ 'y78q9w8d9w8ud9q8uw', 'djw98quw9duqw98uwd98' ],
+      "7j8uw98udowy12989e8298u2e", template_content
+      campaign_id.should be == "787y87y87y87y87y87y87"
+    end
+
+    should "send a preview of a draft campaign to a single recipient" do
+      stub_post(@auth, "campaigns/#{@campaign.campaign_id}/sendpreview.json", nil)
+      @campaign.send_preview "test+89898u9@example.com", "random"
+    end
+
+    should "send a preview of a draft campaign to multiple recipients" do
+      stub_post(@auth, "campaigns/#{@campaign.campaign_id}/sendpreview.json", nil)
+      @campaign.send_preview [ "test+89898u9@example.com", "test+787y8y7y8@example.com" ], "random"
+    end
+
+    should "send a campaign" do
+      stub_post(@auth, "campaigns/#{@campaign.campaign_id}/send.json", nil)
+      @campaign.send "confirmation@example.com"
+    end
+
+    should "unschedule a campaign" do
+      stub_post(@auth, "campaigns/#{@campaign.campaign_id}/unschedule.json", nil)
+      @campaign.unschedule
+    end
+    
+    should "delete a campaign" do
+      stub_delete(@auth, "campaigns/#{@campaign.campaign_id}.json", nil)
+      @campaign.delete
+    end
+
+    should "get the summary for a campaign" do
+      stub_get(@auth, "campaigns/#{@campaign.campaign_id}/summary.json", "campaign_summary.json")
+      summary = @campaign.summary
+      summary.Name.should be == "Campaign Name"
+      summary.Recipients.should be == 5
+      summary.TotalOpened.should be == 10
+      summary.Clicks.should be == 0
+      summary.Unsubscribed.should be == 0
+      summary.Bounced.should be == 0
+      summary.UniqueOpened.should be == 5
+      summary.Mentions.should be == 23
+      summary.Forwards.should be == 11
+      summary.Likes.should be == 32
+      summary.WebVersionURL.should be == "http://createsend.com/t/r-3A433FC72FFE3B8B"
+      summary.WebVersionTextURL.should be == "http://createsend.com/t/r-3A433FC72FFE3B8B/t"
+      summary.WorldviewURL.should be == "http://client.createsend.com/reports/wv/r/3A433FC72FFE3B8B"
+      summary.SpamComplaints.should be == 23
+    end
+
+    should "get the email client usage for a campaign" do
+      stub_get(@auth, "campaigns/#{@campaign.campaign_id}/emailclientusage.json", "email_client_usage.json")
+      ecu = @campaign.email_client_usage
+      ecu.size.should be == 6
+      ecu.first.Client.should be == "iOS Devices"
+      ecu.first.Version.should be == "iPhone"
+      ecu.first.Percentage.should be == 19.83
+      ecu.first.Subscribers.should be == 7056
+    end
+
+    should "get the lists and segments for a campaign" do
+      stub_get(@auth, "campaigns/#{@campaign.campaign_id}/listsandsegments.json", "campaign_listsandsegments.json")
+      ls = @campaign.lists_and_segments
+      ls.Lists.size.should be == 1
+      ls.Segments.size.should be == 1
+      ls.Lists.first.Name.should be == "List One"
+      ls.Lists.first.ListID.should be == "a58ee1d3039b8bec838e6d1482a8a965"
+      ls.Segments.first.Title.should be == "Segment for campaign"
+      ls.Segments.first.ListID.should be == "2bea949d0bf96148c3e6a209d2e82060"
+      ls.Segments.first.SegmentID.should be == "dba84a225d5ce3d19105d7257baac46f"
+    end
+
+    should "get the recipients for a campaign" do
+      stub_get(@auth, "campaigns/#{@campaign.campaign_id}/recipients.json?pagesize=20&orderfield=email&page=1&orderdirection=asc", "campaign_recipients.json")
+      res = @campaign.recipients page=1, page_size=20
+      res.ResultsOrderedBy.should be == "email"
+      res.OrderDirection.should be == "asc"
+      res.PageNumber.should be == 1
+      res.PageSize.should be == 20
+      res.RecordsOnThisPage.should be == 20
+      res.TotalNumberOfRecords.should be == 2200
+      res.NumberOfPages.should be == 110
+      res.Results.size.should be == 20
+      res.Results.first.EmailAddress.should be == "subs+6g76t7t0@example.com"
+      res.Results.first.ListID.should be == "a994a3caf1328a16af9a69a730eaa706"
+    end
+
+    should "get the opens for a campaign" do
+      min_date = "2010-01-01"
+      stub_get(@auth, "campaigns/#{@campaign.campaign_id}/opens.json?page=1&pagesize=1000&orderfield=date&orderdirection=asc&date=#{ERB::Util.url_encode(min_date)}", "campaign_opens.json")
+      opens = @campaign.opens min_date
+      opens.Results.size.should be == 5
+      opens.Results.first.EmailAddress.should be == "subs+6576576576@example.com"
+      opens.Results.first.ListID.should be == "512a3bc577a58fdf689c654329b50fa0"
+      opens.Results.first.Date.should be == "2010-10-11 08:29:00"
+      opens.Results.first.IPAddress.should be == "192.168.126.87"
+      opens.Results.first.Latitude.should be == -33.8683
+      opens.Results.first.Longitude.should be == 151.2086
+      opens.Results.first.City.should be == "Sydney"
+      opens.Results.first.Region.should be == "New South Wales"
+      opens.Results.first.CountryCode.should be == "AU"
+      opens.Results.first.CountryName.should be == "Australia"
+      opens.ResultsOrderedBy.should be == "date"
+      opens.OrderDirection.should be == "asc"
+      opens.PageNumber.should be == 1
+      opens.PageSize.should be == 1000
+      opens.RecordsOnThisPage.should be == 5
+      opens.TotalNumberOfRecords.should be == 5
+      opens.NumberOfPages.should be == 1
+    end
+
+    should "get the subscriber clicks for a campaign" do
+      min_date = "2010-01-01"
+      stub_get(@auth, "campaigns/#{@campaign.campaign_id}/clicks.json?page=1&pagesize=1000&orderfield=date&orderdirection=asc&date=#{ERB::Util.url_encode(min_date)}", "campaign_clicks.json")
+      clicks = @campaign.clicks min_date
+      clicks.Results.size.should be == 3
+      clicks.Results.first.EmailAddress.should be == "subs+6576576576@example.com"
+      clicks.Results.first.URL.should be == "http://video.google.com.au/?hl=en&tab=wv"
+      clicks.Results.first.ListID.should be == "512a3bc577a58fdf689c654329b50fa0"
+      clicks.Results.first.Date.should be == "2010-10-11 08:29:00"
+      clicks.Results.first.IPAddress.should be == "192.168.126.87"
+      clicks.Results.first.Latitude.should be == -33.8683
+      clicks.Results.first.Longitude.should be == 151.2086
+      clicks.Results.first.City.should be == "Sydney"
+      clicks.Results.first.Region.should be == "New South Wales"
+      clicks.Results.first.CountryCode.should be == "AU"
+      clicks.Results.first.CountryName.should be == "Australia"
+      clicks.ResultsOrderedBy.should be == "date"
+      clicks.OrderDirection.should be == "asc"
+      clicks.PageNumber.should be == 1
+      clicks.PageSize.should be == 1000
+      clicks.RecordsOnThisPage.should be == 3
+      clicks.TotalNumberOfRecords.should be == 3
+      clicks.NumberOfPages.should be == 1
+    end
+
+    should "get the unsubscribes for a campaign" do
+      min_date = "2010-01-01"
+      stub_get(@auth, "campaigns/#{@campaign.campaign_id}/unsubscribes.json?page=1&pagesize=1000&orderfield=date&orderdirection=asc&date=#{ERB::Util.url_encode(min_date)}", "campaign_unsubscribes.json")
+      unsubscribes = @campaign.unsubscribes min_date
+      unsubscribes.Results.size.should be == 1
+      unsubscribes.Results.first.EmailAddress.should be == "subs+6576576576@example.com"
+      unsubscribes.Results.first.ListID.should be == "512a3bc577a58fdf689c654329b50fa0"
+      unsubscribes.Results.first.Date.should be == "2010-10-11 08:29:00"
+      unsubscribes.Results.first.IPAddress.should be == "192.168.126.87"
+      unsubscribes.ResultsOrderedBy.should be == "date"
+      unsubscribes.OrderDirection.should be == "asc"
+      unsubscribes.PageNumber.should be == 1
+      unsubscribes.PageSize.should be == 1000
+      unsubscribes.RecordsOnThisPage.should be == 1
+      unsubscribes.TotalNumberOfRecords.should be == 1
+      unsubscribes.NumberOfPages.should be == 1
+    end
+
+    should "get the spam complaints for a campaign" do
+      min_date = "2010-01-01"
+      stub_get(@auth, "campaigns/#{@campaign.campaign_id}/spam.json?page=1&pagesize=1000&orderfield=date&orderdirection=asc&date=#{ERB::Util.url_encode(min_date)}", "campaign_spam.json")
+      spam = @campaign.spam min_date
+      spam.Results.size.should be == 1
+      spam.Results.first.EmailAddress.should be == "subs+6576576576@example.com"
+      spam.Results.first.ListID.should be == "512a3bc577a58fdf689c654329b50fa0"
+      spam.Results.first.Date.should be == "2010-10-11 08:29:00"
+      spam.ResultsOrderedBy.should be == "date"
+      spam.OrderDirection.should be == "asc"
+      spam.PageNumber.should be == 1
+      spam.PageSize.should be == 1000
+      spam.RecordsOnThisPage.should be == 1
+      spam.TotalNumberOfRecords.should be == 1
+      spam.NumberOfPages.should be == 1
+    end
+
+    should "get the bounces for a campaign" do
+      min_date = "2010-01-01"
+      stub_get(@auth, "campaigns/#{@campaign.campaign_id}/bounces.json?page=1&pagesize=1000&orderfield=date&orderdirection=asc&date=#{ERB::Util.url_encode(min_date)}", "campaign_bounces.json")
+      bounces = @campaign.bounces min_date
+      bounces.Results.size.should be == 2
+      bounces.Results.first.EmailAddress.should be == "asdf@softbouncemyemail.com"
+      bounces.Results.first.ListID.should be == "654523a5855b4a440bae3fb295641546"
+      bounces.Results.first.BounceType.should be == "Soft"
+      bounces.Results.first.Date.should be == "2010-07-02 16:46:00"
+      bounces.Results.first.Reason.should be == "Bounce - But No Email Address Returned "
+      bounces.ResultsOrderedBy.should be == "date"
+      bounces.OrderDirection.should be == "asc"
+      bounces.PageNumber.should be == 1
+      bounces.PageSize.should be == 1000
+      bounces.RecordsOnThisPage.should be == 2
+      bounces.TotalNumberOfRecords.should be == 2
+      bounces.NumberOfPages.should be == 1
+    end
+  end
+end

data/test/client_test.rb

@@ -0,0 +1,253 @@
+require File.dirname(__FILE__) + '/helper'
+
+class ClientTest < Test::Unit::TestCase
+  multiple_contexts "authenticated_using_oauth_context", "authenticated_using_api_key_context" do
+    setup do
+      @client = CreateSend::Client.new(@auth, '321iuhiuhi1u23hi2u3')
+      @client.client_id.should be == '321iuhiuhi1u23hi2u3'
+    end
+
+    should "create a client" do
+      stub_post(@auth, "clients.json", "create_client.json")
+      client_id = CreateSend::Client.create @auth, "Client Company Name", "(GMT+10:00) Canberra, Melbourne, Sydney", "Australia"
+      client_id.parsed_response.should be == "32a381c49a2df99f1d0c6f3c112352b9"
+    end
+
+    should "get details of a client" do
+      stub_get(@auth, "clients/#{@client.client_id}.json", "client_details.json")
+      cl = @client.details
+      cl.ApiKey.should be == "639d8cc27198202f5fe6037a8b17a29a59984b86d3289bc9"
+      cl.BasicDetails.ClientID.should be == "4a397ccaaa55eb4e6aa1221e1e2d7122"
+      cl.BasicDetails.ContactName.should be == "Client One (contact)"
+      cl.AccessDetails.Username.should be == "clientone"
+      cl.AccessDetails.AccessLevel.should be == 23
+      cl.BillingDetails.MonthlyScheme.should be == "Basic"
+      cl.BillingDetails.Credits.should be == 500
+    end
+
+    should "get all campaigns" do
+      stub_get(@auth, "clients/#{@client.client_id}/campaigns.json?page=1&pagesize=1000&orderdirection=desc&sentfromdate=&senttodate=&tags=", "campaigns.json")
+      campaigns = @client.campaigns
+      campaigns.Results.size.should be == 2
+      campaigns.ResultsOrderedBy be == 'sentdate'
+      campaigns.OrderDirection be == 'desc'
+      campaigns.PageNumber be == 1
+      campaigns.PageSize be == 1000
+      campaigns.RecordsOnThisPage be == 2
+      campaigns.TotalNumberOfRecords be == 2
+      campaigns.NumberOfPages be == 1
+
+      campaign = campaigns.Results.first
+      campaign.CampaignID.should be == 'fc0ce7105baeaf97f47c99be31d02a91'
+      campaign.WebVersionURL.should be == 'http://createsend.com/t/r-765E86829575EE2C'
+      campaign.WebVersionTextURL.should be == 'http://createsend.com/t/r-765E86829575EE2C/t'
+      campaign.Subject.should be == 'Campaign One'
+      campaign.Name.should be == 'Campaign One'
+      campaign.SentDate.should be == '2010-10-12 12:58:00'
+      campaign.TotalRecipients.should be == 2245
+      campaign.FromName.should be == 'My Name'
+      campaign.FromEmail.should be == 'myemail@example.com'
+      campaign.ReplyTo.should be == 'myemail@example.com'
+      campaign.Tags.should be == []
+    end
+
+    should "get scheduled campaigns" do
+      stub_get(@auth, "clients/#{@client.client_id}/scheduled.json", "scheduled_campaigns.json")
+      campaigns = @client.scheduled
+      campaigns.size.should be == 2
+      campaign = campaigns.first
+      campaign.DateScheduled.should be == "2011-05-25 10:40:00"
+      campaign.ScheduledTimeZone.should be == "(GMT+10:00) Canberra, Melbourne, Sydney"
+      campaign.CampaignID.should be == "827dbbd2161ea9989fa11ad562c66937"
+      campaign.Name.should be == "Magic Issue One"
+      campaign.Subject.should be == "Magic Issue One"
+      campaign.DateCreated.should be == "2011-05-24 10:37:00"
+      campaign.PreviewURL.should be == "http://createsend.com/t/r-DD543521A87C9B8B"
+      campaign.PreviewTextURL.should be == "http://createsend.com/t/r-DD543521A87C9B8B/t"
+      campaign.FromName.should be == 'My Name'
+      campaign.FromEmail.should be == 'myemail@example.com'
+      campaign.ReplyTo.should be == 'myemail@example.com'
+      campaign.Tags.should be == ['tagexample']
+    end
+
+    should "get all drafts" do
+      stub_get(@auth, "clients/#{@client.client_id}/drafts.json", "drafts.json")
+      drafts = @client.drafts
+      drafts.size.should be == 2
+      draft = drafts.first
+      draft.CampaignID.should be == '7c7424792065d92627139208c8c01db1'
+      draft.Name.should be == 'Draft One'
+      draft.Subject.should be == 'Draft One'
+      draft.DateCreated.should be == '2010-08-19 16:08:00'
+      draft.PreviewURL.should be == 'http://createsend.com/t/r-E97A7BB2E6983DA1'
+      draft.PreviewTextURL.should be == 'http://createsend.com/t/r-E97A7BB2E6983DA1/t'
+      draft.FromName.should be == 'My Name'
+      draft.FromEmail.should be == 'myemail@example.com'
+      draft.ReplyTo.should be == 'myemail@example.com'
+      draft.Tags.should be == ['tagexample']
+    end
+
+    should "get all client tags" do
+      stub_get(@auth, "clients/#{@client.client_id}/tags.json", "tags.json")
+      tags = @client.tags
+      tags.size.should be == 2
+      tag = tags.first
+      tag.Name.should be == 'Tag One'
+      tag.NumberOfCampaigns.should be == '120'
+    end
+
+    should "get all lists" do
+      stub_get(@auth, "clients/#{@client.client_id}/lists.json", "lists.json")
+      lists = @client.lists
+      lists.size.should be == 2
+      lists.first.ListID.should be == 'a58ee1d3039b8bec838e6d1482a8a965'
+      lists.first.Name.should be == 'List One'
+    end
+
+    should "get all lists to which a subscriber with a particular email address belongs" do
+      email = "valid@example.com"
+      stub_get(@auth, "clients/#{@client.client_id}/listsforemail.json?email=#{ERB::Util.url_encode(email)}", "listsforemail.json")
+      lists = @client.lists_for_email(email)
+      lists.size.should be == 2
+      lists.first.ListID.should be == 'ab4a2b57c7c8f1ba62f898a1af1a575b'
+      lists.first.ListName.should be == 'List Number One'
+      lists.first.SubscriberState.should be == 'Active'
+      lists.first.DateSubscriberAdded.should be == '2012-08-20 22:32:00'
+    end
+
+    should "get all segments for a client" do
+      stub_get(@auth, "clients/#{@client.client_id}/segments.json", "segments.json")
+      segments = @client.segments
+      segments.size.should be == 2
+      segments.first.ListID.should be == 'a58ee1d3039b8bec838e6d1482a8a965'
+      segments.first.SegmentID.should be == '46aa5e01fd43381863d4e42cf277d3a9'
+      segments.first.Title.should be == 'Segment One'
+    end
+
+    should "get suppression list" do
+      stub_get(@auth, "clients/#{@client.client_id}/suppressionlist.json?pagesize=1000&orderfield=email&page=1&orderdirection=asc", "suppressionlist.json")
+      res = @client.suppressionlist
+      res.ResultsOrderedBy.should be == "email"
+      res.OrderDirection.should be == "asc"
+      res.PageNumber.should be == 1
+      res.PageSize.should be == 1000
+      res.RecordsOnThisPage.should be == 5
+      res.TotalNumberOfRecords.should be == 5
+      res.NumberOfPages.should be == 1
+      res.Results.size.should be == 5
+      res.Results.first.SuppressionReason.should be == "Unsubscribed"
+      res.Results.first.EmailAddress.should be == "example+1@example.com"
+      res.Results.first.Date.should be == "2010-10-26 10:55:31"
+      res.Results.first.State.should be == "Suppressed"
+    end
+
+    should "suppress a single email address" do
+      email = "example@example.com"
+      stub_post(@auth, "clients/#{@client.client_id}/suppress.json", nil)
+      @client.suppress email
+    end
+
+    should "suppress multiple email address" do
+      stub_post(@auth, "clients/#{@client.client_id}/suppress.json", nil)
+      @client.suppress [ "one@example.com", "two@example.com" ]
+    end
+
+    should "unsuppress an email address" do
+      email = "example@example.com"
+      stub_put(@auth, "clients/#{@client.client_id}/unsuppress.json?email=#{ERB::Util.url_encode(email)}", nil)
+      @client.unsuppress email
+    end
+
+    should "get all people" do
+      stub_get(@auth, "clients/#{@client.client_id}/people.json", "people.json")
+      people = @client.people
+      people.size.should be == 2
+      people.first.EmailAddress.should be == "person1@blackhole.com"
+      people.first.Name.should be == "Person One"
+      people.first.Status.should be == "Active"
+      people.first.AccessLevel.should be == 31
+    end
+
+    should "get all templates" do
+      stub_get(@auth, "clients/#{@client.client_id}/templates.json", "templates.json")
+      templates = @client.templates
+      templates.size.should be == 2
+      templates.first.TemplateID.should be == '5cac213cf061dd4e008de5a82b7a3621'
+      templates.first.Name.should be == 'Template One'
+    end
+
+    should "set primary contact" do
+      email = 'person@blackhole.com'
+      stub_put(@auth, "clients/#{@client.client_id}/primarycontact.json?email=#{ERB::Util.url_encode(email)}", 'client_set_primary_contact.json')
+      result = @client.set_primary_contact email
+      result.EmailAddress.should be == email
+    end
+
+    should "get primary contact" do
+      stub_get(@auth, "clients/#{@client.client_id}/primarycontact.json", 'client_get_primary_contact.json')
+      result = @client.get_primary_contact
+      result.EmailAddress.should be == 'person@blackhole.com'
+    end
+
+    should "set basics" do
+      stub_put(@auth, "clients/#{@client.client_id}/setbasics.json", nil)
+      @client.set_basics "Client Company Name", "(GMT+10:00) Canberra, Melbourne, Sydney", "Australia"
+    end
+
+    should "set payg billing" do
+      stub_put(@auth, "clients/#{@client.client_id}/setpaygbilling.json", nil)
+      @client.set_payg_billing "CAD", true, true, 150
+    end
+
+    should "set monthly billing (implicit)" do
+      stub_put(@auth, "clients/#{@client.client_id}/setmonthlybilling.json", nil)
+      @client.set_monthly_billing "CAD", true, 150 
+      request = FakeWeb.last_request.body
+      request.include?("\"Currency\":\"CAD\"").should be == true
+      request.include?("\"ClientPays\":true").should be == true
+      request.include?("\"MarkupPercentage\":150").should be == true
+      request.include?("\"MonthlyScheme\":null").should be == true
+    end
+
+    should "set monthly billing (basic)" do
+      stub_put(@auth, "clients/#{@client.client_id}/setmonthlybilling.json", nil)
+      @client.set_monthly_billing "CAD", true, 150, "Basic"
+      request = FakeWeb.last_request.body
+      request.include?("\"Currency\":\"CAD\"").should be == true
+      request.include?("\"ClientPays\":true").should be == true
+      request.include?("\"MarkupPercentage\":150").should be == true
+      request.include?("\"MonthlyScheme\":\"Basic\"").should be == true
+    end
+       
+    should "set monthly billing (unlimited)" do
+      stub_put(@auth, "clients/#{@client.client_id}/setmonthlybilling.json", nil)
+      @client.set_monthly_billing "CAD", false, 120, "Unlimited"
+      request = FakeWeb.last_request.body
+      request.include?("\"Currency\":\"CAD\"").should be == true
+      request.include?("\"ClientPays\":false").should be == true
+      request.include?("\"MarkupPercentage\":120").should be == true
+      request.include?("\"MonthlyScheme\":\"Unlimited\"").should be == true
+    end
+
+    should "transfer credits to a client" do
+      stub_post(@auth, "clients/#{@client.client_id}/credits.json", "transfer_credits.json")
+      result = @client.transfer_credits 200, false
+      result.AccountCredits.should be == 800
+      result.ClientCredits.should be == 200
+    end
+
+    should "delete a client" do
+      stub_delete(@auth, "clients/#{@client.client_id}.json", nil)
+      @client.delete
+    end
+
+    should "get all journeys" do
+      stub_get(@auth, "clients/#{@client.client_id}/journeys.json", "journeys.json")
+      lists = @client.journeys
+      lists.size.should be == 3
+      lists.first.ListID.should be == 'a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a'
+      lists.first.Name.should be == 'Journey One'
+      lists.first.Status.should be == 'Not started'
+    end
+  end
+end