monkey_party 0.2.0 → 0.3.0

data/test/monkey_party/account_test.rb

@@ -1,91 +0,0 @@
-require "test_helper"
-
-class MonkeyParty::AccountTest < Test::Unit::TestCase
-  context "successfully logging in" do
-    setup do
-      configatron.mailchimp.api_key
-
-      mock_login_response(true)
-      
-      @account = MonkeyParty::Account.login(@user_name, @password)
-    end
-
-    should "return an api key" do
-      assert_not_nil @account.api_key
-    end
-
-    should "set the user_name" do
-      assert_not_nil @account.user_name
-    end
-
-    should "set the global api key" do
-      assert_not_nil configatron.mailchimp.api_key
-    end
-  end
-
-  context "logging in with invalid credentials" do
-    setup do
-      mock_login_response(false)
-    end
-
-    should "raise an error" do
-      assert_raises MonkeyParty::Error do 
-        MonkeyParty::Account.login(@user_name, @password)
-      end
-    end
-  end
-
-  context "adding an api key" do
-    setup do
-      @account = MonkeyParty::Account.new(
-        :user_name => "test",
-        :password  => "password",
-        :api_key   => "api_key")
-    end
-
-    context "with proper credentials" do
-      setup do
-        mock_response("password=#{@account.password}&" +
-          "apikey=#{@account.api_key}&method=apikeyAdd&" + 
-          "output=xml&username=#{@account.user_name}",
-          "login_successful")
-      end
-
-      should "return an api key" do
-        response = @account.add_api_key
-        assert_kind_of String, response
-      end
-
-      should "add the resulting api key to extra keys" do
-        response = @account.add_api_key
-        assert @account.keys.include?(response)
-      end
-    end
-
-    context "with improper credentials" do
-      setup do
-       mock_response("password=#{@account.password}&" +
-        "apikey=#{@account.api_key}&method=apikeyAdd&" + 
-        "output=xml&username=#{@account.user_name}",
-        "login_failed")
-      end
-      
-      should "raise an error if I don't have the right credentials" do
-        assert_raise MonkeyParty::Error do
-          @account.add_api_key
-        end
-      end
-    end
-  end
-
-  private
-  def mock_login_response(successful = true)
-    @user_name = "test_user"
-    @password = "password"
-      
-    mock_response("method=login&username=#{@user_name}" + 
-      "&password=#{@password}&output=xml",
-    successful ? "login_successful" : "login_failed")
-
-  end
-end

data/test/monkey_party/error_test.rb

@@ -1,18 +0,0 @@
-require "test_helper"
-
-class MonkeyParty::ErrorTest < Test::Unit::TestCase
-  context "An error" do
-    setup do
-      error_body = File.read(xml_fixture_path("login_failed")).gsub(/.*<MCAPI/m, "<MCAPI")
-      @error = MonkeyParty::Error.parse(error_body)
-    end
-
-    should "have a code" do
-      assert_not_nil @error.code
-    end
-
-    should "have an error message" do
-      assert_not_nil @error.message
-    end
-  end
-end

data/test/monkey_party/list_test.rb

@@ -1,173 +0,0 @@
-require "test_helper"
-
-class MonkeyParty::ListTest < Test::Unit::TestCase
-  context "a list" do
-    should "have a set of members" do
-
-    end
-    
-    should "allow me to add members to the list" do
-    end
-
-    should "allow me to unsubscribe members from the list" do
-
-    end
-
-    should "have an id" do
-
-    end
-
-    should "have a web_id" do
-
-    end
-
-    should "have a name" do
-
-    end
-
-    should "have a date of creation" do
-
-    end
-
-    should "have a member count" do
-
-    end
-    
-  end
-
-  context "when subscribing" do
-
-    setup do
-      mock_all_response
-
-      @list = MonkeyParty::List.all[0]
-      
-      @subscribers = []
-      @subscribers << MonkeyParty::Subscriber.new("user@example.com", 
-        {:fname => "A User"})
-      @subscribers << MonkeyParty::Subscriber.new("user3@example.com", 
-        {:fname => "Another User"})
-      
-
-    end
-
-    context "successfully" do
-      setup do
-        mock_subscription
-        @resultant_subscribers = @list.create_subscribers(@subscribers)
-      end
-
-      should "return an array of subscribers" do
-        assert_kind_of MonkeyParty::Subscriber, @resultant_subscribers[0]
-      end
-
-      should "indicate that each subscription was valid" do
-        @resultant_subscribers.each do |s|
-          assert s.valid?
-        end
-      end
-    end
-
-    context "resulting in error(s)" do
-      setup do
-        mock_subscription(false)
-        @resultant_subscribers = @list.create_subscribers(@subscribers)
-      end
-
-      should "have invalid subscribers" do
-        assert !@resultant_subscribers[0].valid?
-      end
-
-      should "have a subscriber with an error" do
-        assert_not_nil @resultant_subscribers[0].error
-        assert_kind_of MonkeyParty::Error, @resultant_subscribers[0].error
-      end
-    end
-  end
-
-  context "when unsubscribing" do
-    setup do
-      mock_all_response
-      @list = MonkeyParty::List.all[0]
-      @unsubscribers = [
-        MonkeyParty::Subscriber.new("user@example.com"),
-        MonkeyParty::Subscriber.new("user3@example.com")
-      ]
-    end
-
-    context "successfully" do
-      setup do
-        mock_unsubscription
-
-        @resultant_unsubscribers = @list.destroy_subscribers(@unsubscribers)
-      end
-
-      should "have all valid subscribers" do
-        @resultant_unsubscribers.each do |s|
-          assert s.valid?
-        end
-      end
-    end
-
-    context "resulting in errors(s)" do
-      setup do
-        mock_unsubscription(false)
-        @resultant_unsubscribers = @list.destroy_subscribers(@unsubscribers)
-      end
-
-      should "have an invalid subscriber" do
-        assert !@resultant_unsubscribers[0].valid?
-      end
-
-      should "have a usable error for the invalid subscriber" do
-        assert_not_nil @resultant_unsubscribers[0].error.message
-      end
-    end
-  end
-
-  context "lists" do
-    should "retrieving all of the lists" do
-      mock_all_response
-      lists = MonkeyParty::List.all
-      assert_kind_of Array, lists
-      assert_not_nil lists[0]
-      assert_not_nil lists[0].name
-    end
-
-    should "raise an error if something goes wrong" do
-      mock_all_response(false)
-      assert_raises MonkeyParty::Error do 
-        lists = MonkeyParty::List.all
-      end
-    end
-
-    should "find by name" do
-      mock_all_response
-      assert_equal "Testing", MonkeyParty::List.find_by_name("Testing").name
-    end
-  end
-
-  private
-  def mock_all_response(success = true)
-    mock_response("apikey=2491541245g978jkasf&method=lists&output=xml",
-      success ? "lists_successful" : "lists_failed")
-  end
-
-  def mock_subscription(success = true)
-    mock_response(
-    "double_optin=true&update_existing=false&replace_interests=true&" +
-    "method=listBatchSubscribe&batch[1][EMAIL]=user3%40example.com&" +
-    "batch[1][FNAME]=Another%20User&output=xml&" +
-    "batch[0][EMAIL]=user%40example.com&batch[0][FNAME]=A%20User&"+
-    "apikey=2491541245g978jkasf&id=d40bbc3056",
-    success ? "batch_subscribe_successful" : "batch_subscribe_failed")
-  end
-
-  def mock_unsubscription(success = true)
-    mock_response(
-      "delete_member=false&send_goodbye=true&method=listBatchUnsubscribe&" +
-      "send_notify=false&output=xml&apikey=2491541245g978jkasf&id=d40bbc3056&" +
-      "emails[0]=user3%40example.com",
-      success ? "batch_unsubscribe_successful" : "batch_unsubscribe_failed")
-  end
-end

data/test/monkey_party/subscriber_test.rb

@@ -1,44 +0,0 @@
-require "test_helper"
-
-class MonkeyParty::SubscriberTest < Test::Unit::TestCase
-  context "A subscriber" do
-    setup do
-      @merge_vars = {:merge_var => "MERGE VAR 1"}
-      @email = "user@example.com"
-      @subscriber = MonkeyParty::Subscriber.new(@email, @merge_vars)
-    end
-
-    should "have an email" do
-      assert_equal @email, @subscriber.email
-    end
-
-    should "have a list of merge fields" do
-      assert_equal @merge_vars, @subscriber.merge_fields
-    end
-
-    should "have a hashed version of all the attributes" do
-      intended_hash = {
-        :email => @email
-      }.merge(@merge_vars)
-
-      assert_equal intended_hash, @subscriber.to_h
-    end
-
-    should "have a mailchimp style hash of all the attributes" do
-      intended_hash = {}
-      intended_hash["EMAIL"] = @email
-      @merge_vars.each do |key, value|
-        intended_hash[key.to_s.upcase] = value
-      end
-
-      assert_equal intended_hash, @subscriber.to_mailchimp_hash
-    end
-
-    should "limit merge vars to 10 characters" do
-      @merge_vars = {:a_really_long_merge_var => "LONG ONE"}
-      @subscriber = MonkeyParty::Subscriber.new(@email, @merge_vars)
-      assert @subscriber.to_mailchimp_hash.keys.include?("A_REALLY_L")
-
-    end
-  end
-end

data/test/test_helper.rb

@@ -1,31 +0,0 @@
-require 'rubygems'
-require 'test/unit'
-require 'shoulda'
-
-begin 
-  require "redgreen"
-rescue LoadError; end
-
-require 'fake_web'
-
-$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
-$LOAD_PATH.unshift(File.dirname(__FILE__))
-require 'monkey_party'
-
-FakeWeb.allow_net_connect = false
-
-configatron.mailchimp.api_key = "api_key"
-
-class Test::Unit::TestCase
-  protected
-  def mock_response(path, fixture)
-    FakeWeb.register_uri(
-      "http://api.mailchimp.com/1.2?#{path}",
-      :response => xml_fixture_path(fixture))
-  end
-
-  def xml_fixture_path(fixture)
-    File.join(File.dirname(__FILE__), "fixtures", "#{fixture}.xml")
-  end
-
-end