createsend-sendowlfork 6.1.0.pre.hashie5

data/test/journey_test.rb

@@ -0,0 +1,156 @@
+require File.dirname(__FILE__) + '/helper'
+
+class JourneyTest < Test::Unit::TestCase
+  multiple_contexts "authenticated_using_oauth_context", "authenticated_using_api_key_context" do
+    setup do
+      @journey = CreateSend::Journey.new @auth, 'a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1'
+    end
+
+    should "get the summary for a journey" do
+      stub_get(@auth, "journeys/#{@journey.journey_id}.json", "journey_summary.json")
+
+      summary = @journey.summary
+      summary.Name.should be == 'New journey'
+      summary.TriggerType.should be == 'On Subscription'
+      summary.Status.should be == 'Active'
+
+      summary.Emails.size.should be == 1
+      summary.Emails.first.EmailID.should be == 'b1b1b1b1b1b1b1b1b1b1'
+      summary.Emails.first.Name.should be == 'New Email'
+      summary.Emails.first.Bounced.should be == 0
+      summary.Emails.first.Clicked.should be == 0
+      summary.Emails.first.Opened.should be == 3
+      summary.Emails.first.Sent.should be == 1
+      summary.Emails.first.UniqueOpened.should be == 1
+      summary.Emails.first.Unsubscribed.should be == 0
+    end
+
+    should "return a paged list of recipients of a particular email" do
+      journey_date = "2019-07-12 09:22"
+      stub_get(@auth, "journeys/email/b1b1b1b1b1b1b1b1b1b1/recipients.json" \
+        "?date=#{ERB::Util.url_encode(journey_date)}" \
+        "&page=2" \
+        "&pagesize=5" \
+        "&orderdirection=asc", "journey_recipients.json")
+
+      recipients = @journey.email_recipients email_id = 'b1b1b1b1b1b1b1b1b1b1', date = journey_date, page = 2, page_size = 5, order_direction = 'asc'
+      recipients.Results.size.should be == 4
+      recipients.Results.first.EmailAddress.should be == 'example+1@example.com'
+      recipients.Results.first.SentDate.should be == '2019-07-12 09:45:00'
+
+      recipients.ResultsOrderedBy.should be == 'SentDate'
+      recipients.OrderDirection.should be == 'ASC'
+      recipients.PageNumber.should be == 2
+      recipients.PageSize.should be == 10
+      recipients.RecordsOnThisPage.should be == 4
+      recipients.TotalNumberOfRecords.should be == 14
+      recipients.NumberOfPages.should be == 2
+    end
+
+    should "return a paged list of subscribers who opened given journey email" do
+      journey_date = "2019-02-08 09:22"
+      stub_get(@auth, "journeys/email/b1b1b1b1b1b1b1b1b1b1/opens.json" \
+        "?date=#{ERB::Util.url_encode(journey_date)}" \
+        "&page=2" \
+        "&pagesize=5" \
+        "&orderdirection=asc", "journey_opens.json")
+
+      opens = @journey.email_opens email = 'b1b1b1b1b1b1b1b1b1b1', date = journey_date, page = 2, page_size = 5, order_direction = 'asc'
+      opens.Results.size.should be == 4
+      opens.Results.last.EmailAddress.should be == "example+4@example.com"
+      opens.Results.last.Date.should be == "2019-07-29 10:35:00"
+      opens.Results.last.IPAddress.should be == "192.168.0.3"
+      opens.Results.last.Latitude.should be == -33.8683
+      opens.Results.last.Longitude.should be == 151.2086
+      opens.Results.last.City.should be == "Sydney"
+      opens.Results.last.Region.should be == "New South Wales"
+      opens.Results.last.CountryCode.should be == "AU"
+      opens.Results.last.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 == 4
+      opens.TotalNumberOfRecords.should be == 4
+      opens.NumberOfPages.should be == 1
+    end
+
+    should "return a paged list of subscribers who clicked on a journey email" do
+      journey_date = "2019-07-29 10:30"
+      stub_get(@auth, "journeys/email/b1b1b1b1b1b1b1b1b1b1/clicks.json" \
+        "?date=#{ERB::Util.url_encode(journey_date)}" \
+        "&page=1" \
+        "&pagesize=2" \
+        "&orderdirection=asc", "journey_clicks.json")
+
+      clicks = @journey.email_clicks email = 'b1b1b1b1b1b1b1b1b1b1', date = journey_date, page = 1, page_size = 2, order_direction = 'asc'
+      clicks.Results.size.should be == 2
+      clicks.Results.first.EmailAddress.should be == "example+1@example.com"
+      clicks.Results.first.Date.should be == "2019-07-29 10:33:00"
+      clicks.Results.first.URL.should be == "http://test.com"
+      clicks.Results.first.IPAddress.should be == "192.168.0.3"
+      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 == 2
+      clicks.RecordsOnThisPage.should be == 2
+      clicks.TotalNumberOfRecords.should be == 5
+      clicks.NumberOfPages.should be == 3
+    end
+
+    should "return a paged list of subscribers who unsubscribed from a journey email" do
+      journey_date = "2019-07-29 10:22"
+      stub_get(@auth, "journeys/email/b1b1b1b1b1b1b1b1b1b1/unsubscribes.json" \
+        "?date=#{ERB::Util.url_encode(journey_date)}" \
+        "&page=1" \
+        "&pagesize=10" \
+        "&orderdirection=desc", "journey_unsubscribes.json")
+
+      unsubscribes = @journey.email_unsubscribes email = 'b1b1b1b1b1b1b1b1b1b1', date = journey_date, page = 1, page_size = 10, order_direction = 'desc'
+      unsubscribes.Results.size.should be == 3
+      unsubscribes.Results.first.EmailAddress.should be == "example+1@example.com"
+      unsubscribes.Results.first.Date.should be == "2019-07-29 10:33:00"
+      unsubscribes.Results.first.IPAddress.should be == "192.168.0.3"
+
+      unsubscribes.ResultsOrderedBy.should be == "Date"
+      unsubscribes.OrderDirection.should be == "ASC"
+      unsubscribes.PageNumber.should be == 1
+      unsubscribes.PageSize.should be == 1000
+      unsubscribes.RecordsOnThisPage.should be == 4
+      unsubscribes.TotalNumberOfRecords.should be == 4
+      unsubscribes.NumberOfPages.should be == 1
+    end
+
+    should "return a paged list of emails that bounced for a journey email" do
+      journey_date = "2019-07-29 10:31"
+      stub_get(@auth, "journeys/email/b1b1b1b1b1b1b1b1b1b1/bounces.json" \
+        "?date=#{ERB::Util.url_encode(journey_date)}" \
+        "&page=20" \
+        "&pagesize=5" \
+        "&orderdirection=desc", "journey_bounces.json")
+
+      bounces = @journey.email_bounces email = 'b1b1b1b1b1b1b1b1b1b1', date = journey_date, page = 20, page_size = 5, order_direction = 'desc'
+      bounces.Results.size.should be == 4
+      bounces.Results.first.EmailAddress.should be == "example+1@example.com"
+      bounces.Results.first.BounceType.should be == "4"
+      bounces.Results.first.Date.should be == "2019-07-29 10:33:00"
+      bounces.Results.first.Reason.should be == "Soft Bounce - Mailbox Full"
+
+      bounces.ResultsOrderedBy.should be == "Date"
+      bounces.OrderDirection.should be == "ASC"
+      bounces.PageNumber.should be == 1
+      bounces.PageSize.should be == 1000
+      bounces.RecordsOnThisPage.should be == 4
+      bounces.TotalNumberOfRecords.should be == 4
+      bounces.NumberOfPages.should be == 1
+    end
+  end
+end

data/test/list_test.rb

@@ -0,0 +1,288 @@
+require File.dirname(__FILE__) + '/helper'
+
+class ListTest < Test::Unit::TestCase
+  multiple_contexts "authenticated_using_oauth_context", "authenticated_using_api_key_context" do
+    setup do
+      @client_id = "87y8d7qyw8d7yq8w7ydwqwd"
+      @list_id = "e3c5f034d68744f7881fdccf13c2daee"
+      @list = CreateSend::List.new @auth, @list_id
+    end
+
+    should "create a list without passing in unsubscribe setting" do
+      stub_post(@auth, "lists/#{@client_id}.json", "create_list.json")
+      list_id = CreateSend::List.create @auth, @client_id, "List One", "", false, ""
+      list_id.should be == "e3c5f034d68744f7881fdccf13c2daee"
+    end
+
+    should "create a list passing in unsubscribe setting" do
+      stub_post(@auth, "lists/#{@client_id}.json", "create_list.json")
+      list_id = CreateSend::List.create @auth, @client_id, "List One", "", false, "", "OnlyThisList"
+      list_id.should be == "e3c5f034d68744f7881fdccf13c2daee"
+    end
+
+    should "update a list without passing in unsubscribe setting" do
+      stub_put(@auth, "lists/#{@list.list_id}.json", nil)
+      @list.update "List One Renamed", "", false, ""
+    end
+
+    should "update a list passing in unsubscribe setting" do
+      stub_put(@auth, "lists/#{@list.list_id}.json", nil)
+      @list.update "List One Renamed", "", false, "", "OnlyThisList"
+    end
+
+    should "update a list passing in unsubscribe setting and suppression list options" do
+      stub_put(@auth, "lists/#{@list.list_id}.json", nil)
+      @list.update "List One Renamed", "", false, "", "OnlyThisList", true, true
+    end
+
+    should "delete a list" do
+      stub_delete(@auth, "lists/#{@list.list_id}.json", nil)
+      @list.delete
+    end
+
+    should "create a custom field" do
+      stub_post(@auth, "lists/#{@list.list_id}/customfields.json", "create_custom_field.json")
+      personalisation_tag = @list.create_custom_field "new date field", "Date"
+      request = FakeWeb.last_request.body
+      request.include?("\"FieldName\":\"new date field\"").should be == true
+      request.include?("\"DataType\":\"Date\"").should be == true
+      request.include?("\"Options\":[]").should be == true
+      request.include?("\"VisibleInPreferenceCenter\":true").should be == true
+      personalisation_tag.should be == "[newdatefield]"
+    end
+
+    should "create a custom field with options and visible_in_preference_center" do
+      stub_post(@auth, "lists/#{@list.list_id}/customfields.json", "create_custom_field.json")
+      options = ["one", "two"]
+      personalisation_tag = @list.create_custom_field("newsletter format",
+        "MultiSelectOne", options, false)
+      request = FakeWeb.last_request.body
+      request.include?("\"FieldName\":\"newsletter format\"").should be == true
+      request.include?("\"DataType\":\"MultiSelectOne\"").should be == true
+      request.include?("\"Options\":[\"one\",\"two\"]").should be == true
+      request.include?("\"VisibleInPreferenceCenter\":false").should be == true
+      personalisation_tag.should be == "[newdatefield]"
+    end
+
+    should "update a custom field" do
+      key = "[mycustomfield]"
+      stub_put(@auth, "lists/#{@list.list_id}/customfields/#{ERB::Util.url_encode(key)}.json", "update_custom_field.json")
+      personalisation_tag = @list.update_custom_field key, "my renamed custom field", true
+      request = FakeWeb.last_request.body
+      request.include?("\"FieldName\":\"my renamed custom field\"").should be == true
+      request.include?("\"VisibleInPreferenceCenter\":true").should be == true
+      personalisation_tag.should be == "[myrenamedcustomfield]"
+    end
+
+    should "delete a custom field" do
+      custom_field_key = "[newdatefield]"
+      stub_delete(@auth, "lists/#{@list.list_id}/customfields/#{ERB::Util.url_encode(custom_field_key)}.json", nil)
+      @list.delete_custom_field custom_field_key
+    end
+    
+    should "update the options of a multi-optioned custom field" do
+      custom_field_key = "[newdatefield]"
+      new_options = [ "one", "two", "three" ]
+      stub_put(@auth, "lists/#{@list.list_id}/customfields/#{ERB::Util.url_encode(custom_field_key)}/options.json", nil)
+      @list.update_custom_field_options custom_field_key, new_options, true
+    end
+
+    should "get the details of a list" do
+      stub_get(@auth, "lists/#{@list.list_id}.json", "list_details.json")
+      details = @list.details
+      details.ConfirmedOptIn.should be == false
+      details.Title.should be == "a non-basic list :)"
+      details.UnsubscribePage.should be == ""
+      details.ListID.should be == "2fe4c8f0373ce320e2200596d7ef168f"
+      details.ConfirmationSuccessPage.should be == ""
+      details.UnsubscribeSetting.should be == "AllClientLists"
+    end
+
+    should "get the custom fields for a list" do
+      stub_get(@auth, "lists/#{@list.list_id}/customfields.json", "custom_fields.json")
+      cfs = @list.custom_fields
+      cfs.size.should be == 3
+      cfs.first.FieldName.should be == "website"
+      cfs.first.Key.should be == "[website]"
+      cfs.first.DataType.should be == "Text"
+      cfs.first.FieldOptions.should be == []
+      cfs.first.VisibleInPreferenceCenter.should be == true
+    end
+
+    should "get the segments for a list" do
+      stub_get(@auth, "lists/#{@list.list_id}/segments.json", "segments.json")
+      segments = @list.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 the stats for a list" do
+      stub_get(@auth, "lists/#{@list.list_id}/stats.json", "list_stats.json")
+      stats = @list.stats
+      stats.TotalActiveSubscribers.should be == 6
+      stats.TotalUnsubscribes.should be == 2
+      stats.TotalDeleted.should be == 0
+      stats.TotalBounces.should be == 0
+    end
+    
+    should "get the active subscribers for a list" do
+      min_date = "2010-01-01"
+      stub_get(@auth, "lists/#{@list.list_id}/active.json?pagesize=1000&orderfield=email&page=1&orderdirection=asc&date=#{ERB::Util.url_encode(min_date)}&includetrackingpreference=false&includesmspreference=false",
+        "active_subscribers.json")
+      res = @list.active min_date
+      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.EmailAddress.should be == "subs+7t8787Y@example.com"
+      res.Results.first.Name.should be =="Person One"
+      res.Results.first.Date.should be == "2010-10-25 10:28:00"
+      res.Results.first.ListJoinedDate.should be == "2010-10-25 10:28:00"
+      res.Results.first.State.should be == "Active"
+      res.Results.first.CustomFields.size.should be == 5
+      res.Results.first.CustomFields[0].Key.should be == "website"
+      res.Results.first.CustomFields[0].Value.should be == "http://example.com"
+      res.Results.first.CustomFields[1].Key.should be == "multi select field"
+      res.Results.first.CustomFields[1].Value.should be == "option one"
+      res.Results.first.CustomFields[2].Key.should be == "multi select field"
+      res.Results.first.CustomFields[2].Value.should be == "option two"
+      res.Results.first.ReadsEmailWith.should be == "Gmail"
+    end
+
+    should "get the unconfirmed subscribers for a list" do
+      min_date = "2010-01-01"
+      stub_get(@auth, "lists/#{@list.list_id}/unconfirmed.json?pagesize=1000&orderfield=email&page=1&orderdirection=asc&date=#{ERB::Util.url_encode(min_date)}&includetrackingpreference=true&includesmspreference=true",
+        "unconfirmed_subscribers.json")
+      res = @list.unconfirmed(min_date, 1, 1000, "email", "asc", true, include_sms_preference:true)
+      res.ResultsOrderedBy.should be == "email"
+      res.OrderDirection.should be == "asc"
+      res.PageNumber.should be == 1
+      res.PageSize.should be == 1000
+      res.RecordsOnThisPage.should be == 2
+      res.TotalNumberOfRecords.should be == 2
+      res.NumberOfPages.should be == 1
+      res.Results.size.should be == 2
+      res.Results.first.EmailAddress.should be == "subs+7t8787Y@example.com"
+      res.Results.first.Name.should be =="Unconfirmed One"
+      res.Results.first.Date.should be =="2010-10-25 10:28:00"
+      res.Results.first.ListJoinedDate.should be =="2010-10-25 10:28:00"
+      res.Results.first.State.should be == "Unconfirmed"
+      res.Results.first.ConsentToTrack.should be == "Yes"
+      res.Results.first.ConsentToSendSms.should be == "No"
+    end
+
+    should "get the unsubscribed subscribers for a list" do
+      min_date = "2010-01-01"
+      stub_get(@auth, "lists/#{@list.list_id}/unsubscribed.json?pagesize=1000&orderfield=email&page=1&orderdirection=asc&date=#{ERB::Util.url_encode(min_date)}&includetrackingpreference=false&includesmspreference=false",
+        "unsubscribed_subscribers.json")
+      res = @list.unsubscribed min_date
+      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.EmailAddress.should be == "subscriber@example.com"
+      res.Results.first.Name.should be == "Unsub One"
+      res.Results.first.Date.should be == "2010-10-25 13:11:00"
+      res.Results.first.ListJoinedDate.should be == "2010-10-25 13:11:00"
+      res.Results.first.State.should be == "Unsubscribed"
+      res.Results.first.CustomFields.size.should be == 0
+      res.Results.first.ReadsEmailWith.should be == "Gmail"
+    end
+
+    should "get the deleted subscribers for a list" do
+      min_date = "2010-01-01"
+      stub_get(@auth, "lists/#{@list.list_id}/deleted.json?pagesize=1000&orderfield=email&page=1&orderdirection=asc&date=#{ERB::Util.url_encode(min_date)}&includetrackingpreference=false&includesmspreference=false",
+        "deleted_subscribers.json")
+      res = @list.deleted min_date
+      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.EmailAddress.should be == "subscriber@example.com"
+      res.Results.first.Name.should be == "Deleted One"
+      res.Results.first.Date.should be == "2010-10-25 13:11:00"
+      res.Results.first.ListJoinedDate.should be == "2010-10-25 13:11:00"
+      res.Results.first.State.should be == "Deleted"
+      res.Results.first.CustomFields.size.should be == 0
+      res.Results.first.ReadsEmailWith.should be == "Gmail"
+    end
+
+    should "get the bounced subscribers for a list" do
+      min_date = "2010-01-01"
+      stub_get(@auth, "lists/#{@list.list_id}/bounced.json?pagesize=1000&orderfield=email&page=1&orderdirection=asc&date=#{ERB::Util.url_encode(min_date)}&includetrackingpreference=false&includesmspreference=false",
+        "bounced_subscribers.json")
+      res = @list.bounced min_date
+      res.ResultsOrderedBy.should be == "email"
+      res.OrderDirection.should be == "asc"
+      res.PageNumber.should be == 1
+      res.PageSize.should be == 1000
+      res.RecordsOnThisPage.should be == 1
+      res.TotalNumberOfRecords.should be == 1
+      res.NumberOfPages.should be == 1
+      res.Results.size.should be == 1
+      res.Results.first.EmailAddress.should be == "bouncedsubscriber@example.com"
+      res.Results.first.Name.should be == "Bounced One"
+      res.Results.first.Date.should be == "2010-10-25 13:11:00"
+      res.Results.first.ListJoinedDate.should be == "2010-10-25 13:11:00"
+      res.Results.first.State.should be == "Bounced"
+      res.Results.first.CustomFields.size.should be == 0
+      res.Results.first.ReadsEmailWith.should be == ""
+    end
+
+    should "get the webhooks for a list" do
+      stub_get(@auth, "lists/#{@list.list_id}/webhooks.json", "list_webhooks.json")
+      hooks = @list.webhooks
+      hooks.size.should be == 2
+      hooks.first.WebhookID.should be == "943678317049bc13"
+      hooks.first.Events.size.should be == 1
+      hooks.first.Events.first.should be == "Deactivate"
+      hooks.first.Url.should be == "http://www.postbin.org/d9w8ud9wud9w"
+      hooks.first.Status.should be == "Active"
+      hooks.first.PayloadFormat.should be == "Json"
+    end
+
+    should "create a webhook for a list" do
+      stub_post(@auth, "lists/#{@list.list_id}/webhooks.json", "create_list_webhook.json")
+      webhook_id = @list.create_webhook ["Unsubscribe", "Spam"], "http://example.com/unsub", "json"
+      webhook_id.should be == "6a783d359bd44ef62c6ca0d3eda4412a"
+    end
+    
+    should "test a webhook for a list" do
+      webhook_id = "jiuweoiwueoiwueowiueo"
+      stub_get(@auth, "lists/#{@list.list_id}/webhooks/#{webhook_id}/test.json", nil)
+      @list.test_webhook webhook_id
+    end
+
+    should "delete a webhook for a list" do
+      webhook_id = "jiuweoiwueoiwueowiueo"
+      stub_delete(@auth, "lists/#{@list.list_id}/webhooks/#{webhook_id}.json", nil)
+      @list.delete_webhook webhook_id
+    end
+    
+    should "activate a webhook for a list" do
+      webhook_id = "jiuweoiwueoiwueowiueo"
+      stub_put(@auth, "lists/#{@list.list_id}/webhooks/#{webhook_id}/activate.json", nil)
+      @list.activate_webhook webhook_id
+    end
+
+    should "de-activate a webhook for a list" do
+      webhook_id = "jiuweoiwueoiwueowiueo"
+      stub_put(@auth, "lists/#{@list.list_id}/webhooks/#{webhook_id}/deactivate.json", nil)
+      @list.deactivate_webhook webhook_id
+    end
+  end
+end

data/test/person_test.rb

@@ -0,0 +1,39 @@
+require File.dirname(__FILE__) + '/helper'
+
+class PersonTest < Test::Unit::TestCase
+  multiple_contexts "authenticated_using_oauth_context", "authenticated_using_api_key_context" do
+    setup do
+      @client_id = "d98h2938d9283d982u3d98u88"
+      @person = CreateSend::Person.new @auth, @client_id, "person@example.com"
+    end
+
+    should "get a person by client id and email address" do
+      email = "person@example.com"
+      stub_get(@auth, "clients/#{@client_id}/people.json?email=#{ERB::Util.url_encode(email)}", "person_details.json")
+      person = CreateSend::Person.get @auth, @client_id, email
+      person.EmailAddress.should be == email
+      person.Name.should be == "Person One"
+      person.AccessLevel.should be == 1023
+      person.Status.should be == "Active"
+    end
+
+    should "add a person" do
+      stub_post(@auth, "clients/#{@client_id}/people.json", "add_person.json")
+      result = CreateSend::Person.add @auth, @client_id, "person@example.com", "Person", 0, "Password"
+      result.EmailAddress.should be == "person@example.com"
+    end
+
+    should "update a person" do
+      email = "person@example.com"
+      new_email = "new_email_address@example.com"
+      stub_put(@auth, "clients/#{@client_id}/people.json?email=#{ERB::Util.url_encode(email)}", nil)
+      @person.update new_email, "Person", 1023, "NewPassword"
+      @person.email_address.should be == new_email
+    end
+      
+    should "delete a person" do
+      stub_delete(@auth, "clients/#{@person.client_id}/people.json?email=#{ERB::Util.url_encode(@person.email_address)}", nil)
+      @person.delete
+    end
+  end
+end

data/test/segment_test.rb

@@ -0,0 +1,74 @@
+require File.dirname(__FILE__) + '/helper'
+
+class SegmentTest < Test::Unit::TestCase
+  multiple_contexts "authenticated_using_oauth_context", "authenticated_using_api_key_context" do
+    setup do
+      @segment = CreateSend::Segment.new @auth, '98y2e98y289dh89h938389'
+    end
+
+    should "create a new segment" do
+      list_id = "2983492834987394879837498"
+      rule_groups = [ { :Rules => [ { :RuleType => "EmailAddress", :Clause => "CONTAINS example.com" } ] } ]
+      stub_post(@auth, "segments/#{list_id}.json", "create_segment.json")
+      res = CreateSend::Segment.create @auth, list_id, "new segment title", rule_groups
+      res.should be == "0246c2aea610a3545d9780bf6ab89006"
+    end
+
+    should "update a segment" do
+      rules = [ { :Rules => [ { :RuleType => "Name", :Clause => "PROVIDED" } ] } ]
+      stub_put(@auth, "segments/#{@segment.segment_id}.json", nil)
+      @segment.update "new title for segment", rules
+    end
+
+    should "add a rule group to a segment" do
+      rule_group = [ { :RuleType => "EmailAddress", :Clause => "CONTAINS @hello.com" } ]
+      stub_post(@auth, "segments/#{@segment.segment_id}/rules.json", nil)
+      @segment.add_rule_group rule_group
+    end
+
+    should "get the active subscribers for a particular segment in the list" do
+      min_date = "2010-01-01"
+      stub_get(@auth, "segments/#{@segment.segment_id}/active.json?pagesize=1000&orderfield=email&page=1&orderdirection=asc&date=#{ERB::Util.url_encode(min_date)}&includetrackingpreference=false",
+        "segment_subscribers.json")
+      res = @segment.subscribers min_date
+      res.ResultsOrderedBy.should be == "email"
+      res.OrderDirection.should be == "asc"
+      res.PageNumber.should be == 1
+      res.PageSize.should be == 1000
+      res.RecordsOnThisPage.should be == 2
+      res.TotalNumberOfRecords.should be == 2
+      res.NumberOfPages.should be == 1
+      res.Results.size.should be == 2
+      res.Results.first.EmailAddress.should be == "personone@example.com"
+      res.Results.first.Name.should be == "Person One"
+      res.Results.first.Date.should be == "2010-10-27 13:13:00"
+      res.Results.first.ListJoinedDate.should be == "2010-10-27 13:13:00"
+      res.Results.first.State.should be == "Active"
+      res.Results.first.CustomFields.should be == []
+    end
+
+    should "delete a segment" do
+      stub_delete(@auth, "segments/#{@segment.segment_id}.json", nil)
+      @segment.delete
+    end
+
+    should "get the details of a segment" do
+      stub_get(@auth, "segments/#{@segment.segment_id}.json", "segment_details.json")
+      res = @segment.details
+      res.ActiveSubscribers.should be == 0
+      res.RuleGroups.size.should be == 2
+      res.RuleGroups.first.Rules.size.should be == 1
+      res.RuleGroups.first.Rules.first.RuleType.should be == "EmailAddress"
+      res.RuleGroups.first.Rules.first.Clause.should be == "CONTAINS @hello.com"
+      res.ListID.should be == "2bea949d0bf96148c3e6a209d2e82060"
+      res.SegmentID.should be == "dba84a225d5ce3d19105d7257baac46f"
+      res.Title.should be == "My Segment"
+    end
+
+    should "clear a segment's rules" do
+      stub_delete(@auth, "segments/#{@segment.segment_id}/rules.json", nil)
+      @segment.clear_rules
+    end
+
+  end
+end