eroi 0.1.4 → 0.2.0

data/VERSION

@@ -1 +1 @@
-0.1.4
+0.2.0

data/eroi.gemspec

@@ -5,11 +5,11 @@
 
 Gem::Specification.new do |s|
   s.name = %q{eroi}
-  s.version = "0.1.4"
+  s.version = "0.2.0"
 
   s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
   s.authors = ["CardPlayer"]
-  s.date = %q{2009-12-07}
+  s.date = %q{2010-01-13}
   s.description = %q{API interface to eROI.}
   s.email = %q{techteam@cardplayer.com}
   s.extra_rdoc_files = [

data/lib/eroi/client.rb

@@ -46,16 +46,34 @@ module EROI
         :clear_record => 1 ))
     end
 
-    def send_list_edition_to_contact(list, edition, email)
-      emails = ((email.is_a?(String)) ? [ email ] : email).join(',')
-
+    def define_list(list, records)
       xml = Builder::XmlMarkup.new
-      xml.tag!('Send', emails, 'List' => list, 'Edition' => edition)
+      xml.tag!('DefineMailingList', 'list' => list) do |x|
+        records.each do |r|
+          x.tag!('Email', r.email)
+        end
+      end
 
       Request::Post.send(self, xml)
     end
 
-    alias :send_list_edition_to_contacts :send_list_edition_to_contact
+    # Sends a list edition to specified broadcast.
+    # 
+    # Who can consist of the following:
+    #   * Broadcast All - sends to all members of the list, regardless of whether they have already received this edition
+    #   * Broadcast Unsent - sends to all members of the list who have not yet received this edition
+    #   * Broadcast ### - sends to ### random recipients who have not yet received this edition
+    #   * A comma seperated list of emails.
+    def send_list_edition(list, edition, who)
+      xml = Builder::XmlMarkup.new
+      xml.tag!(
+        'Send',
+        ((who.is_a?(String)) ? [ who ] : who).join(','),
+        'List' => list,
+        'Edition' => edition)
+
+      Request::Post.send(self, xml)
+    end
 
   private
 

data/test/eroi/client_test.rb

@@ -108,12 +108,74 @@ class TestClient < Test::Unit::TestCase
       end
     end
 
-    context "when sending an email to a contact" do
-      should "respond with a success" do
-        response = @client.send_list_edition_to_contact('TestList', 'test', 'longbob@longbob.com')
+    context "when sending an edition" do
+      setup do
+        @xml = mock('Builder::XmlMarkup')
+      end
 
-        assert_equal true, response.success?
-        assert_equal 1, response.number_of_records
+      context "when edition is meant for all contacts" do
+        should "respond with a success" do
+          @broadcast = 'Broadcast All'
+          @xml.expects('tag!').with('Send', @broadcast, 'List' => 'TestList', 'Edition' => 'test')
+          Builder::XmlMarkup.expects(:new).at_least_once.returns(@xml)
+
+          response = @client.send_list_edition('TestList', 'test', @broadcast)
+
+          assert_equal true, response.success?
+          assert_equal 1, response.number_of_records
+        end
+      end
+
+      context "when edition is meant for unsent contacts" do
+        should "respond with a success" do
+          @broadcast = 'Broadcast Unsent'
+          @xml.expects('tag!').with('Send', @broadcast, 'List' => 'TestList', 'Edition' => 'test')
+          Builder::XmlMarkup.expects(:new).at_least_once.returns(@xml)
+
+          response = @client.send_list_edition('TestList', 'test', @broadcast)
+
+          assert_equal true, response.success?
+          assert_equal 1, response.number_of_records
+        end
+      end
+
+      context "when edition is meant for random unsent contacts" do
+        should "respond with a success" do
+          @broadcast = 'Broadcast 200'
+          @xml.expects('tag!').with('Send', @broadcast, 'List' => 'TestList', 'Edition' => 'test')
+          Builder::XmlMarkup.expects(:new).at_least_once.returns(@xml)
+
+          response = @client.send_list_edition('TestList', 'test', @broadcast)
+
+          assert_equal true, response.success?
+          assert_equal 1, response.number_of_records
+        end
+      end
+
+      context "when edition is meant for a single contact" do
+        should "respond with a success" do
+          @broadcast = 'longbob@longbob.com'
+          @xml.expects('tag!').with('Send', @broadcast, 'List' => 'TestList', 'Edition' => 'test')
+          Builder::XmlMarkup.expects(:new).at_least_once.returns(@xml)
+
+          response = @client.send_list_edition('TestList', 'test', @broadcast)
+
+          assert_equal true, response.success?
+          assert_equal 1, response.number_of_records
+        end
+      end
+
+      context "when edition is meant for multiple contacts" do
+        should "respond with a success" do
+          @broadcast = [ 'longbob@longbob.com', 'shortbob@shortbob.com' ]
+          @xml.expects('tag!').with('Send', @broadcast.join(','), 'List' => 'TestList', 'Edition' => 'test')
+          Builder::XmlMarkup.expects(:new).at_least_once.returns(@xml)
+
+          response = @client.send_list_edition('TestList', 'test', @broadcast)
+
+          assert_equal true, response.success?
+          assert_equal 1, response.number_of_records
+        end
       end
     end
 

data/test/remote/client_test.rb

@@ -168,7 +168,7 @@ class TestClient < Test::Unit::TestCase
             :lastname => 'Longson',
             :mailing_lists => 'MainList')
 
-          response = @client.send_list_edition_to_contact('MainList', 'Testing', 'longbob@longbob.com')
+          response = @client.send_list_edition('MainList', 'Testing', 'longbob@longbob.com')
 
           assert_equal true, response.success?
         end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: eroi
 version: !ruby/object:Gem::Version 
-  version: 0.1.4
+  version: 0.2.0
 platform: ruby
 authors: 
 - CardPlayer
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2009-12-07 00:00:00 -08:00
+date: 2010-01-13 00:00:00 -08:00
 default_executable: 
 dependencies: []