monkeywrench 0.1.5

data/lib/monkeywrench/member.rb

@@ -0,0 +1,33 @@
+module MonkeyWrench
+  class Member
+    def initialize(list_member_info)
+      @list_member_info = list_member_info
+    end
+
+    def interests
+      if @list_member_info['merges']['INTERESTS']
+        @list_member_info['merges']['INTERESTS'].split(', ')
+      end
+    end
+    
+    def method_missing(method, *args)
+      if responds_to?(method)
+        key_name = method.to_s
+        @list_member_info[key_name] || @list_member_info['merges'][key_name] || @list_member_info['merges'][key_name.upcase]
+      else
+        super
+      end
+    end
+    
+    def responds_to?(method)
+      key_name = method.to_s
+      @list_member_info.has_key?(key_name) || 
+        @list_member_info['merges'].has_key?(key_name) ||
+        @list_member_info['merges'].has_key?(key_name.upcase)
+    end
+    
+    def ==(other_member)
+      !@list_member_info.keys.detect{|key| send(key) != other_member.send(key)}
+    end
+  end
+end

data/test/fixtures/api_fail.json

@@ -0,0 +1 @@
+{"error":"Invalid Mailchimp API Key: foada . You are accessing the wrong datacenter - your client library may not properly support our datacenter mapping scheme.","code":104}

data/test/fixtures/campaigns_success.json

@@ -0,0 +1,24 @@
+[{
+  "id":"ed7838c182",
+  "web_id":534402,
+  "list_id":null,
+  "folder_id":0,
+  "title":"Untitled",
+  "type":"regular",
+  "create_time":"2009-10-06 16:18:52",
+  "send_time":null,
+  "status":"save","from_name":null,
+  "from_email":null,
+  "subject":null,
+  "to_email":null,
+  "archive_url":"http:\/\/eepurl.com\/d2JN",
+  "emails_sent":0,
+  "inline_css":"N",
+  "analytics":"N",
+  "analytics_tag":"",
+  "track_clicks_text":false,
+  "track_clicks_html":true,
+  "track_opens":true,
+  "segment_opts":[]
+ }
+]

data/test/fixtures/listBatchSubscribe1000_success.json

@@ -0,0 +1 @@
+{"success_count":1000,"error_count":0,"errors":[]}

data/test/fixtures/listBatchSubscribe10_success.json

@@ -0,0 +1 @@
+{"success_count":10,"error_count":0,"errors":[]}

data/test/fixtures/listBatchSubscribe4_success.json

@@ -0,0 +1 @@
+{"success_count":4,"error_count":0,"errors":[]}

data/test/fixtures/listBatchSubscribe5_success.json

@@ -0,0 +1 @@
+{"success_count":5,"error_count":0,"errors":[]}

data/test/fixtures/listBatchSubscribe_success.json

@@ -0,0 +1 @@
+{"success_count":1,"error_count":0,"errors":[]}

data/test/fixtures/listBatchSubscribe_with_error_success.json

@@ -0,0 +1 @@
+{"success_count":1,"error_count":1,"errors":[{"code":502,"message":"Invalid Email Address: bademail@badmail","row":{"EMAIL_TYPE":"html","EMAIL":"bademail@badmail"}}]}

data/test/fixtures/listBatchUnsubscribe_success.json

@@ -0,0 +1 @@
+{"success_count":1,"error_count":0,"errors":[]}

data/test/fixtures/listMemberInfo_fail.json

@@ -0,0 +1 @@
+{"error":"There is no record of \"asdiojasdojas@foo.com\" in the database","code":232}

data/test/fixtures/listMemberInfo_success.json

@@ -0,0 +1 @@
+{"id":"a58cbece83","email":"david@email.com","email_type":"html","ip_opt":"66.132.220.59","ip_signup":null,"member_rating":4,"merges":{"EMAIL":"david@email.com","MERGE0":"david@email.com","FNAME":"David","MERGE1":"David","LNAME":"Heath","MERGE2":"Heath","EXPIRYDATE":"2008-02-04","MERGE5":"2008-02-04","USERNAME":"Test1","MERGE6":"Test1","DURATION":"1","MERGE3":"1","PRODUCT":"One week subscription","MERGE4":"One week subscription","CURRENCY":"GBP","MERGE7":"GBP","ROLLING":"false","MERGE8":"false","EXPIRED":"true","MERGE9":"true","TRIAL":"","MERGE10":"","MMERGE11":"","MERGE11":"","MMERGE12":"","MERGE12":"","MMERGE13":"","MERGE13":"","MMERGE14":"","MERGE14":"","TRACKER":"","MERGE15":"","SUBSTYPE":"","MERGE16":"","FIRSTEBOOK":"","MERGE17":"","MMERGE18":"","MERGE18":"","INTERESTS":"freetrial, tutorials"},"status":"subscribed","timestamp":"2009-11-16 14:11:57","lists":{"699791bff9":"unsubscribed"}}

data/test/fixtures/listMembers_none_success.json

@@ -0,0 +1 @@
+[]

data/test/fixtures/listMembers_success.json

@@ -0,0 +1,8 @@
+[{
+  "timestamp":"2009-11-12 15:46:20", 
+  "email":"david@email.com"
+ },
+ {"timestamp":"2009-11-12 15:52:52",
+  "email":"julie@email.com"
+ }
+]

data/test/fixtures/listSubscribe_success.json

@@ -0,0 +1 @@
+true

data/test/fixtures/listUpdateMember_success.json

@@ -0,0 +1 @@
+[1]

data/test/fixtures/listsEmpty_success.json

@@ -0,0 +1,2 @@
+[
+]

data/test/fixtures/lists_success.json

@@ -0,0 +1,14 @@
+[
+  {"id":"my-list-id",
+   "web_id":12345  ,
+   "name":"A test list",
+   "date_created":"2009-09-10 14:14:06",
+   "member_count":5,
+   "unsubscribe_count":0,
+   "cleaned_count":0,
+   "email_type_option":false,
+   "default_from_name":"John Smith",
+   "default_from_email":"johnsmith@acmecorp.com",
+   "default_subject":"",
+   "default_language":"eng"}
+]

data/test/monkey_wrench/base_test.rb

@@ -0,0 +1,55 @@
+$:.unshift File.expand_path("..", File.dirname(__FILE__))
+require "test_helper"
+
+class MonkeyWrench::BaseTest < Test::Unit::TestCase
+
+  context "making an HTTP GET" do
+    should "retry if HTTP GET times out" do
+      retries = sequence('retries')
+      response = mock('')
+      response.stubs(:parsed_response).returns("the response")
+      MonkeyWrench::Base.stubs(:base_uri).returns('http://example.com');
+      HTTParty::Request.any_instance.expects(:perform).in_sequence(retries).raises(Timeout::Error)
+      HTTParty::Request.any_instance.expects(:perform).in_sequence(retries).raises(Timeout::Error)
+      HTTParty::Request.any_instance.expects(:perform).in_sequence(retries).returns(response)
+      assert_equal MonkeyWrench::Base.get({}), 'the response'
+    end
+
+    should "rethrow Timeout::Error if retry limit exceeded" do
+      retries = sequence('retries')
+      response = mock('')
+      response.stubs(:parsed_response).returns("the response")
+      MonkeyWrench::Base.stubs(:base_uri).returns('http://example.com');
+      HTTParty::Request.any_instance.expects(:perform).in_sequence(retries).raises(Timeout::Error)
+      HTTParty::Request.any_instance.expects(:perform).in_sequence(retries).raises(Timeout::Error)
+      assert_raise Timeout::Error do
+        MonkeyWrench::Base.get({}, :retry_limit => 2)
+      end
+    end
+  end
+
+  context "making an HTTP POST" do
+    should "retry if HTTP POST times out" do
+      retries = sequence('retries')
+      response = mock('')
+      response.stubs(:parsed_response).returns("the response")
+      MonkeyWrench::Base.stubs(:base_uri).returns('http://example.com');
+      HTTParty::Request.any_instance.expects(:perform).in_sequence(retries).raises(Timeout::Error)
+      HTTParty::Request.any_instance.expects(:perform).in_sequence(retries).raises(Timeout::Error)
+      HTTParty::Request.any_instance.expects(:perform).in_sequence(retries).returns(response)
+      assert_equal MonkeyWrench::Base.post({}), 'the response'
+    end
+
+    should "rethrow Timeout::Error if retry limit exceeded" do
+      retries = sequence('retries')
+      response = mock('')
+      response.stubs(:parsed_response).returns("the response")
+      MonkeyWrench::Base.stubs(:base_uri).returns('http://example.com');
+      HTTParty::Request.any_instance.expects(:perform).in_sequence(retries).raises(Timeout::Error)
+      HTTParty::Request.any_instance.expects(:perform).in_sequence(retries).raises(Timeout::Error)
+      assert_raise Timeout::Error do
+        MonkeyWrench::Base.post({}, :retry_limit => 2)
+      end
+    end
+  end
+end

data/test/monkey_wrench/base_test.rbc

@@ -0,0 +1,1758 @@
+!RBIX
+0
+x
+M
+1
+n
+n
+x
+10
+__script__
+i
+77
+99
+43
+0
+7
+1
+49
+2
+1
+45
+3
+4
+7
+5
+64
+45
+3
+6
+65
+49
+7
+0
+49
+8
+1
+49
+9
+2
+49
+10
+1
+15
+5
+7
+11
+64
+47
+49
+12
+1
+15
+99
+7
+13
+45
+14
+15
+43
+16
+43
+17
+45
+18
+19
+49
+20
+3
+13
+99
+12
+7
+21
+12
+7
+22
+12
+65
+12
+49
+23
+4
+15
+49
+21
+0
+15
+2
+11
+I
+6
+I
+0
+I
+0
+I
+0
+n
+p
+24
+x
+7
+Globals
+x
+2
+$:
+x
+2
+[]
+x
+4
+File
+n
+s
+2
+..
+n
+x
+11
+active_path
+x
+7
+dirname
+x
+11
+expand_path
+x
+7
+unshift
+s
+11
+test_helper
+x
+7
+require
+x
+8
+BaseTest
+x
+4
+Test
+n
+x
+4
+Unit
+x
+8
+TestCase
+x
+12
+MonkeyWrench
+n
+x
+16
+open_class_under
+x
+14
+__class_init__
+M
+1
+n
+n
+x
+8
+BaseTest
+i
+24
+5
+66
+5
+7
+0
+64
+56
+1
+47
+50
+2
+1
+15
+5
+7
+3
+64
+56
+4
+47
+50
+2
+1
+11
+I
+3
+I
+0
+I
+0
+I
+0
+n
+p
+5
+s
+18
+making an HTTP GET
+M
+1
+p
+2
+x
+9
+for_block
+t
+n
+x
+8
+BaseTest
+i
+22
+5
+7
+0
+64
+56
+1
+47
+50
+2
+1
+15
+5
+7
+3
+64
+56
+4
+47
+50
+2
+1
+11
+I
+4
+I
+0
+I
+0
+I
+0
+I
+-2
+p
+5
+s
+27
+retry if HTTP GET times out
+M
+1
+p
+2
+x
+9
+for_block
+t
+n
+x
+8
+BaseTest
+i
+155
+5
+7
+0
+64
+47
+49
+1
+1
+19
+0
+15
+5
+7
+2
+64
+47
+49
+3
+1
+19
+1
+15
+20
+1
+7
+4
+49
+5
+1
+7
+6
+64
+49
+7
+1
+15
+45
+8
+9
+43
+10
+7
+11
+49
+5
+1
+7
+12
+64
+49
+7
+1
+15
+45
+13
+14
+43
+15
+49
+16
+0
+7
+17
+49
+18
+1
+20
+0
+49
+19
+1
+45
+20
+21
+43
+22
+49
+23
+1
+15
+45
+13
+24
+43
+15
+49
+16
+0
+7
+17
+49
+18
+1
+20
+0
+49
+19
+1
+45
+20
+25
+43
+22
+49
+23
+1
+15
+45
+13
+26
+43
+15
+49
+16
+0
+7
+17
+49
+18
+1
+20
+0
+49
+19
+1
+20
+1
+49
+7
+1
+15
+5
+45
+8
+27
+43
+10
+44
+43
+28
+78
+49
+29
+1
+49
+30
+1
+7
+6
+64
+47
+49
+31
+2
+11
+I
+7
+I
+2
+I
+0
+I
+0
+I
+-2
+p
+32
+s
+7
+retries
+x
+8
+sequence
+s
+0
+
+x
+4
+mock
+x
+15
+parsed_response
+x
+5
+stubs
+s
+12
+the response
+x
+7
+returns
+x
+12
+MonkeyWrench
+n
+x
+4
+Base
+x
+8
+base_uri
+s
+18
+http://example.com
+x
+8
+HTTParty
+n
+x
+7
+Request
+x
+12
+any_instance
+x
+7
+perform
+x
+7
+expects
+x
+11
+in_sequence
+x
+7
+Timeout
+n
+x
+5
+Error
+x
+6
+raises
+n
+n
+n
+n
+x
+4
+Hash
+x
+16
+new_from_literal
+x
+3
+get
+x
+12
+assert_equal
+p
+19
+I
+0
+I
+7
+I
+0
+I
+8
+I
+b
+I
+9
+I
+16
+I
+a
+I
+24
+I
+b
+I
+35
+I
+c
+I
+50
+I
+d
+I
+6b
+I
+e
+I
+83
+I
+f
+I
+9b
+x
+82
+/Volumes/Personal/Documents/glenn-dev/monkeywrench/test/monkey_wrench/base_test.rb
+p
+2
+x
+7
+retries
+x
+8
+response
+x
+6
+should
+s
+46
+rethrow Timeout::Error if retry limit exceeded
+M
+1
+p
+2
+x
+9
+for_block
+t
+n
+x
+8
+BaseTest
+i
+120
+5
+7
+0
+64
+47
+49
+1
+1
+19
+0
+15
+5
+7
+2
+64
+47
+49
+3
+1
+19
+1
+15
+20
+1
+7
+4
+49
+5
+1
+7
+6
+64
+49
+7
+1
+15
+45
+8
+9
+43
+10
+7
+11
+49
+5
+1
+7
+12
+64
+49
+7
+1
+15
+45
+13
+14
+43
+15
+49
+16
+0
+7
+17
+49
+18
+1
+20
+0
+49
+19
+1
+45
+20
+21
+43
+22
+49
+23
+1
+15
+45
+13
+24
+43
+15
+49
+16
+0
+7
+17
+49
+18
+1
+20
+0
+49
+19
+1
+45
+20
+25
+43
+22
+49
+23
+1
+15
+5
+45
+20
+26
+43
+22
+56
+27
+47
+50
+28
+1
+11
+I
+6
+I
+2
+I
+0
+I
+0
+I
+-2
+p
+29
+s
+7
+retries
+x
+8
+sequence
+s
+0
+
+x
+4
+mock
+x
+15
+parsed_response
+x
+5
+stubs
+s
+12
+the response
+x
+7
+returns
+x
+12
+MonkeyWrench
+n
+x
+4
+Base
+x
+8
+base_uri
+s
+18
+http://example.com
+x
+8
+HTTParty
+n
+x
+7
+Request
+x
+12
+any_instance
+x
+7
+perform
+x
+7
+expects
+x
+11
+in_sequence
+x
+7
+Timeout
+n
+x
+5
+Error
+x
+6
+raises
+n
+n
+n
+M
+1
+p
+2
+x
+9
+for_block
+t
+n
+x
+8
+BaseTest
+i
+31
+45
+0
+1
+43
+2
+44
+43
+3
+78
+49
+4
+1
+44
+43
+3
+79
+49
+4
+1
+13
+7
+5
+80
+49
+6
+2
+15
+49
+7
+2
+11
+I
+7
+I
+0
+I
+0
+I
+0
+I
+-2
+p
+8
+x
+12
+MonkeyWrench
+n
+x
+4
+Base
+x
+4
+Hash
+x
+16
+new_from_literal
+x
+11
+retry_limit
+x
+3
+[]=
+x
+3
+get
+p
+5
+I
+0
+I
+19
+I
+0
+I
+1a
+I
+1f
+x
+82
+/Volumes/Personal/Documents/glenn-dev/monkeywrench/test/monkey_wrench/base_test.rb
+p
+0
+x
+12
+assert_raise
+p
+17
+I
+0
+I
+12
+I
+0
+I
+13
+I
+b
+I
+14
+I
+16
+I
+15
+I
+24
+I
+16
+I
+35
+I
+17
+I
+50
+I
+18
+I
+6b
+I
+19
+I
+78
+x
+82
+/Volumes/Personal/Documents/glenn-dev/monkeywrench/test/monkey_wrench/base_test.rb
+p
+2
+x
+7
+retries
+x
+8
+response
+p
+7
+I
+0
+I
+6
+I
+0
+I
+7
+I
+b
+I
+12
+I
+16
+x
+82
+/Volumes/Personal/Documents/glenn-dev/monkeywrench/test/monkey_wrench/base_test.rb
+p
+0
+x
+7
+context
+s
+19
+making an HTTP POST
+M
+1
+p
+2
+x
+9
+for_block
+t
+n
+x
+8
+BaseTest
+i
+22
+5
+7
+0
+64
+56
+1
+47
+50
+2
+1
+15
+5
+7
+3
+64
+56
+4
+47
+50
+2
+1
+11
+I
+4
+I
+0
+I
+0
+I
+0
+I
+-2
+p
+5
+s
+28
+retry if HTTP POST times out
+M
+1
+p
+2
+x
+9
+for_block
+t
+n
+x
+8
+BaseTest
+i
+155
+5
+7
+0
+64
+47
+49
+1
+1
+19
+0
+15
+5
+7
+2
+64
+47
+49
+3
+1
+19
+1
+15
+20
+1
+7
+4
+49
+5
+1
+7
+6
+64
+49
+7
+1
+15
+45
+8
+9
+43
+10
+7
+11
+49
+5
+1
+7
+12
+64
+49
+7
+1
+15
+45
+13
+14
+43
+15
+49
+16
+0
+7
+17
+49
+18
+1
+20
+0
+49
+19
+1
+45
+20
+21
+43
+22
+49
+23
+1
+15
+45
+13
+24
+43
+15
+49
+16
+0
+7
+17
+49
+18
+1
+20
+0
+49
+19
+1
+45
+20
+25
+43
+22
+49
+23
+1
+15
+45
+13
+26
+43
+15
+49
+16
+0
+7
+17
+49
+18
+1
+20
+0
+49
+19
+1
+20
+1
+49
+7
+1
+15
+5
+45
+8
+27
+43
+10
+44
+43
+28
+78
+49
+29
+1
+49
+30
+1
+7
+6
+64
+47
+49
+31
+2
+11
+I
+7
+I
+2
+I
+0
+I
+0
+I
+-2
+p
+32
+s
+7
+retries
+x
+8
+sequence
+s
+0
+
+x
+4
+mock
+x
+15
+parsed_response
+x
+5
+stubs
+s
+12
+the response
+x
+7
+returns
+x
+12
+MonkeyWrench
+n
+x
+4
+Base
+x
+8
+base_uri
+s
+18
+http://example.com
+x
+8
+HTTParty
+n
+x
+7
+Request
+x
+12
+any_instance
+x
+7
+perform
+x
+7
+expects
+x
+11
+in_sequence
+x
+7
+Timeout
+n
+x
+5
+Error
+x
+6
+raises
+n
+n
+n
+n
+x
+4
+Hash
+x
+16
+new_from_literal
+x
+4
+post
+x
+12
+assert_equal
+p
+19
+I
+0
+I
+20
+I
+0
+I
+21
+I
+b
+I
+22
+I
+16
+I
+23
+I
+24
+I
+24
+I
+35
+I
+25
+I
+50
+I
+26
+I
+6b
+I
+27
+I
+83
+I
+28
+I
+9b
+x
+82
+/Volumes/Personal/Documents/glenn-dev/monkeywrench/test/monkey_wrench/base_test.rb
+p
+2
+x
+7
+retries
+x
+8
+response
+x
+6
+should
+s
+46
+rethrow Timeout::Error if retry limit exceeded
+M
+1
+p
+2
+x
+9
+for_block
+t
+n
+x
+8
+BaseTest
+i
+120
+5
+7
+0
+64
+47
+49
+1
+1
+19
+0
+15
+5
+7
+2
+64
+47
+49
+3
+1
+19
+1
+15
+20
+1
+7
+4
+49
+5
+1
+7
+6
+64
+49
+7
+1
+15
+45
+8
+9
+43
+10
+7
+11
+49
+5
+1
+7
+12
+64
+49
+7
+1
+15
+45
+13
+14
+43
+15
+49
+16
+0
+7
+17
+49
+18
+1
+20
+0
+49
+19
+1
+45
+20
+21
+43
+22
+49
+23
+1
+15
+45
+13
+24
+43
+15
+49
+16
+0
+7
+17
+49
+18
+1
+20
+0
+49
+19
+1
+45
+20
+25
+43
+22
+49
+23
+1
+15
+5
+45
+20
+26
+43
+22
+56
+27
+47
+50
+28
+1
+11
+I
+6
+I
+2
+I
+0
+I
+0
+I
+-2
+p
+29
+s
+7
+retries
+x
+8
+sequence
+s
+0
+
+x
+4
+mock
+x
+15
+parsed_response
+x
+5
+stubs
+s
+12
+the response
+x
+7
+returns
+x
+12
+MonkeyWrench
+n
+x
+4
+Base
+x
+8
+base_uri
+s
+18
+http://example.com
+x
+8
+HTTParty
+n
+x
+7
+Request
+x
+12
+any_instance
+x
+7
+perform
+x
+7
+expects
+x
+11
+in_sequence
+x
+7
+Timeout
+n
+x
+5
+Error
+x
+6
+raises
+n
+n
+n
+M
+1
+p
+2
+x
+9
+for_block
+t
+n
+x
+8
+BaseTest
+i
+31
+45
+0
+1
+43
+2
+44
+43
+3
+78
+49
+4
+1
+44
+43
+3
+79
+49
+4
+1
+13
+7
+5
+80
+49
+6
+2
+15
+49
+7
+2
+11
+I
+7
+I
+0
+I
+0
+I
+0
+I
+-2
+p
+8
+x
+12
+MonkeyWrench
+n
+x
+4
+Base
+x
+4
+Hash
+x
+16
+new_from_literal
+x
+11
+retry_limit
+x
+3
+[]=
+x
+4
+post
+p
+5
+I
+0
+I
+32
+I
+0
+I
+33
+I
+1f
+x
+82
+/Volumes/Personal/Documents/glenn-dev/monkeywrench/test/monkey_wrench/base_test.rb
+p
+0
+x
+12
+assert_raise
+p
+17
+I
+0
+I
+2b
+I
+0
+I
+2c
+I
+b
+I
+2d
+I
+16
+I
+2e
+I
+24
+I
+2f
+I
+35
+I
+30
+I
+50
+I
+31
+I
+6b
+I
+32
+I
+78
+x
+82
+/Volumes/Personal/Documents/glenn-dev/monkeywrench/test/monkey_wrench/base_test.rb
+p
+2
+x
+7
+retries
+x
+8
+response
+p
+7
+I
+0
+I
+1f
+I
+0
+I
+20
+I
+b
+I
+2b
+I
+16
+x
+82
+/Volumes/Personal/Documents/glenn-dev/monkeywrench/test/monkey_wrench/base_test.rb
+p
+0
+p
+5
+I
+2
+I
+6
+I
+d
+I
+1f
+I
+18
+x
+82
+/Volumes/Personal/Documents/glenn-dev/monkeywrench/test/monkey_wrench/base_test.rb
+p
+0
+x
+13
+attach_method
+p
+7
+I
+0
+I
+1
+I
+1f
+I
+2
+I
+28
+I
+4
+I
+4d
+x
+82
+/Volumes/Personal/Documents/glenn-dev/monkeywrench/test/monkey_wrench/base_test.rb
+p
+0