test/client_test.rb in createsend-2.4.0 vs test/client_test.rb in createsend-2.5.0

@@ -22,22 +22,27 @@
       cl.BasicDetails.ClientID.should == "4a397ccaaa55eb4e6aa1221e1e2d7122"
       cl.BasicDetails.ContactName.should == "Client One (contact)"
       cl.AccessDetails.Username.should == "clientone"
       cl.AccessDetails.AccessLevel.should == 23
       cl.BillingDetails.MonthlyScheme.should == "Basic"
+      cl.BillingDetails.Credits.should == 500
     end
 
     should "get all campaigns" do
       stub_get(@api_key, "clients/#{@client.client_id}/campaigns.json", "campaigns.json")
       campaigns = @client.campaigns
       campaigns.size.should == 2
       campaigns.first.CampaignID.should == 'fc0ce7105baeaf97f47c99be31d02a91'
       campaigns.first.WebVersionURL.should == 'http://createsend.com/t/r-765E86829575EE2C'
+      campaigns.first.WebVersionTextURL.should == 'http://createsend.com/t/r-765E86829575EE2C/t'
       campaigns.first.Subject.should == 'Campaign One'
       campaigns.first.Name.should == 'Campaign One'
       campaigns.first.SentDate.should == '2010-10-12 12:58:00'
       campaigns.first.TotalRecipients.should == 2245
+      campaigns.first.FromName.should == 'My Name'
+      campaigns.first.FromEmail.should == '[e-mail]'
+      campaigns.first.ReplyTo.should == '[e-mail]'
     end
 
     should "get scheduled campaigns" do
       stub_get(@api_key, "clients/#{@client.client_id}/scheduled.json", "scheduled_campaigns.json")
       campaigns = @client.scheduled
@@ -47,10 +52,14 @@
       campaigns.first.CampaignID.should == "827dbbd2161ea9989fa11ad562c66937"
       campaigns.first.Name.should == "Magic Issue One"
       campaigns.first.Subject.should == "Magic Issue One"
       campaigns.first.DateCreated.should == "2011-05-24 10:37:00"
       campaigns.first.PreviewURL.should == "http://createsend.com/t/r-DD543521A87C9B8B"
+      campaigns.first.PreviewTextURL.should == "http://createsend.com/t/r-DD543521A87C9B8B/t"
+      campaigns.first.FromName.should == 'My Name'
+      campaigns.first.FromEmail.should == '[e-mail]'
+      campaigns.first.ReplyTo.should == '[e-mail]'
     end
 
     should "get all drafts" do
       stub_get(@api_key, "clients/#{@client.client_id}/drafts.json", "drafts.json")
       drafts = @client.drafts
@@ -58,10 +67,14 @@
       drafts.first.CampaignID.should == '7c7424792065d92627139208c8c01db1'
       drafts.first.Name.should == 'Draft One'
       drafts.first.Subject.should == 'Draft One'
       drafts.first.DateCreated.should == '2010-08-19 16:08:00'
       drafts.first.PreviewURL.should == 'http://createsend.com/t/r-E97A7BB2E6983DA1'
+      drafts.first.PreviewTextURL.should == 'http://createsend.com/t/r-E97A7BB2E6983DA1/t'
+      drafts.first.FromName.should == 'My Name'
+      drafts.first.FromEmail.should == '[e-mail]'
+      drafts.first.ReplyTo.should == '[e-mail]'
     end
 
     should "get all lists" do
       stub_get(@api_key, "clients/#{@client.client_id}/lists.json", "lists.json")
       lists = @client.lists
@@ -192,10 +205,17 @@
       request.include?("\"Currency\":\"CAD\"").should == true
       request.include?("\"ClientPays\":false").should == true
       request.include?("\"MarkupPercentage\":120").should == true
       request.include?("\"MonthlyScheme\":\"Unlimited\"").should == true
     end
-     
+
+    should "transfer credits to a client" do
+      stub_post(@api_key, "clients/#{@client.client_id}/credits.json", "transfer_credits.json")
+      result = @client.transfer_credits 200, false
+      result.AccountCredits.should == 800
+      result.ClientCredits.should == 200
+    end
+
     should "delete a client" do
       stub_delete(@api_key, "clients/#{@client.client_id}.json", nil)
       @client.delete
     end