exact-target 0.0.4

data/lib/exact_target/string_ext.rb

@@ -0,0 +1,22 @@
+# Add support for String#underscore if ActiveSupport not available
+# as well as Object#blank?
+
+unless String.instance_methods.map(&:to_sym).include?(:underscore)
+  class String
+    def underscore
+      gsub(/::/, '/').
+      gsub(/([A-Z]+)([A-Z][a-z])/,'\1_\2').
+      gsub(/([a-z\d])([A-Z])/,'\1_\2').
+      tr("-", "_").
+      downcase
+    end
+  end
+end
+
+unless Object.instance_methods.map(&:to_sym).include?(:blank?)
+  class Object
+    def blank?
+      respond_to?(:empty?) ? empty? : !self
+    end
+  end
+end

data/spec/exact_target/net_https_hack_spec.rb

@@ -0,0 +1,8 @@
+describe 'ExactTarget::NetHttpsHack' do
+
+  it "should ignore those annoying cert warnings" do
+    http = Net::HTTP.new(anything)
+    http.instance_variable_get(:@ssl_context).verify_mode.should == OpenSSL::SSL::VERIFY_NONE
+  end
+
+end

data/spec/exact_target/response_handler_spec.rb

@@ -0,0 +1,15 @@
+describe ExactTarget::ResponseHandler do
+
+  before(:all) do
+    @handler = ExactTarget::ResponseHandler.new(stub :config)
+  end
+
+  it "should throw error when failure handling id result" do
+    info = stub(:info, :text => 'BOGUS')
+    resp = stub(:response, :xpath => [info], :to_s => 'BOGUS<s>')
+    expect {
+      @handler.send(:handle_id_result, resp, :info_tag, :id_tag, /success/i)
+    }.should raise_error(ExactTarget::Error, 'ExactTarget error #0: Unsupported id result: BOGUS<s>')
+  end
+
+end

data/spec/exact_target/string_ext_spec.rb

@@ -0,0 +1,13 @@
+describe 'ExactTarget::StringExt' do
+
+  specify :underscore do
+    "Foo::BarExt-Stuff".underscore.should == 'foo/bar_ext_stuff'
+  end
+
+  specify :blank? do
+    "foo".blank?.should be_false
+    "".blank?.should be_true
+    nil.blank?.should be_true
+  end
+
+end

data/spec/exact_target_data.yml

@@ -0,0 +1,133 @@
+---
+accountinfo_retrieve_attrbs:
+  request:  <system_name>accountinfo</system_name><action>retrieve_attrbs</action><search_type></search_type><search_value></search_value>
+  response: <profile><attribute><name>A1</name><description>A1 description</description><default_value/><data_type>text</data_type><required>False</required><min_size>0</min_size><max_size>100</max_size><subscriber_editable>1</subscriber_editable><display>A1 name</display></attribute><attribute><name>A2</name><description>A2 description</description><default_value>HTML</default_value><data_type>text</data_type><required>True</required><min_size>0</min_size><max_size>2000</max_size><subscriber_editable>1</subscriber_editable><display>A2 name</display><values><value>HTML</value><value>Text</value></values></attribute></profile>
+
+list_retrieve:
+  epub test:
+    request:  <system_name>list</system_name><action>retrieve</action><search_type>listname</search_type><search_value>epub test</search_value>
+    response: <list><listid>42</listid><listid>47</listid></list>
+  42:
+    request:  <system_name>list</system_name><action>retrieve</action><search_type>listid</search_type><search_value>42</search_value>
+    response: <list><list_name>My Test List</list_name><list_type>Private</list_type><modified>1/25/2010 1:26:58 PM</modified><subscriber_count>15287</subscriber_count><active_total>9426</active_total><held_count>120</held_count><bounce_count>4145</bounce_count><unsub_count>1596</unsub_count></list>
+
+list_add:
+  request:  <system_name>list</system_name><action>add</action><search_type></search_type><search_value></search_value><list_type>private</list_type><list_name>Epub Test</list_name>
+  response: <list><list_info>List was added successfully</list_info><list_description>53</list_description></list>
+
+list_edit:
+  request:  <system_name>list</system_name><action>edit</action><search_type>listid</search_type><search_value>42</search_value><list_name>Epub Test - RENAME</list_name>
+  response: <list><list_info>List was modified successfully</list_info><list_description>42</list_description></list>
+
+list_import:
+  request:  <system_name>list</system_name><action>import</action><search_type>listid</search_type><search_values><search_value>72</search_value><search_value>33</search_value><search_value>99</search_value></search_values><file_name>sometestfile.txt</file_name><email_address>testme@nowhere.com</email_address><file_type>tab</file_type><column_headings>true</column_headings><file_mapping><field>some_field</field><field>other_field</field></file_mapping><import_type>0</import_type><returnid>true</returnid><encrypted>false</encrypted><encrypt_format></encrypt_format>
+  response: <list><import_info>Your file is being imported. You will receive an email when it completes.</import_info><importid>841</importid></list>
+
+list_importstatus:
+  request:  <system_name>list</system_name><action>import</action><sub_action>importstatus</sub_action><search_value>119792</search_value>
+  response: <list><import_info>Complete</import_info><importid>979804</importid></list>
+
+list_retrieve_sub:
+  request:  <system_name>list</system_name><action>retrieve_sub</action><search_type>listid</search_type><search_value>42</search_value><search_status>Active</search_status>
+  response: <list><subscribers><subscriber><Email__Address>bob@example.com</Email__Address><Status>Active</Status><Email__Type>HTML</Email__Type><First__Name>Bob</First__Name><Last__Name/></subscriber><subscriber><Email__Address>mary@example.com</Email__Address><Status>Active</Status><Email__Type>HTML</Email__Type><First__Name>Mary</First__Name><Last__Name>Smith</Last__Name></subscriber></subscribers></list>
+
+list_delete:
+  request:  <system_name>list</system_name><action>delete</action><search_type>listid</search_type><search_value>42</search_value>
+  response: <list><list_info>List was deleted successfully</list_info><list_description>42</list_description></list>
+
+list_retrievegroups:
+  request:  <system_name>list</system_name><action>retrievegroups</action><search_type>groups</search_type><search_value></search_value>
+  response: <list><groups><group><parentlistID>41</parentlistID><groupID>12</groupID><groupName>yyy</groupName><description>xxx</description></group><group><parentlistID>77</parentlistID><groupID>875</groupID><groupName>test group</groupName><description>test desc</description></group></groups></list>
+
+list_refresh_group:
+  request:  <system_name>list</system_name><action>refresh_group</action><sub_action></sub_action><search_value>3514</search_value><search_value2></search_value2>
+  response: <list><groupRefresh><groupID>3514</groupID><groupAsyncID>6127</groupAsyncID></groupRefresh></list>
+
+batch_inquire:
+  request:  <system_name>batch</system_name><action>inquire</action><sub_action></sub_action><search_type>batchid</search_type><search_value>8912</search_value><search_value2></search_value2>
+  response: <Batch><batchid>40594104</batchid><status>Completed</status><filename></filename></Batch>
+
+####################################################################################
+
+subscriber_add:
+  request:  <system_name>subscriber</system_name><action>add</action><search_type>listid</search_type><search_value>1234</search_value><search_value2></search_value2><values><Email__Address>someone@somehwere.com</Email__Address><Email__Type>HTML</Email__Type><First__Name>Some</First__Name><Last__Name>One</Last__Name><Title>Director of HR</Title><Region>Midwest</Region><status>active</status><ChannelMemberID>5678</ChannelMemberID></values><update>true</update>
+  response: <subscriber><subscriber_info>Subscriber was added/updated successfully</subscriber_info><subscriber_description>12334566</subscriber_description></subscriber>
+
+subscriber_edit:
+  request:  <system_name>subscriber</system_name><action>edit</action><search_type>listid</search_type><search_value>63718</search_value><search_value2>user@email.com</search_value2><values><Email__Address>someone@somehwere.com</Email__Address><Email__Type>HTML</Email__Type><First__Name>Some</First__Name><Last__Name>One</Last__Name><Title>Director of HR</Title><Region>Midwest</Region><status>unsub</status><reason>insert your unsubscribe reason here</reason><ChannelMemberID>5678</ChannelMemberID></values>
+  response: <subscriber><subscriber_info>Subscriber was added/updated successfully</subscriber_info><subscriber_description>12334566</subscriber_description></subscriber>
+
+subscriber_retrieve:
+  '123456, someone@example.com':
+    request:  <system_name>subscriber</system_name><action>retrieve</action><search_type>listid</search_type><search_value>123456</search_value><search_value2>someone@example.com</search_value2>
+    response: <subscriber><subid>125704849</subid><listid>63718</listid><list_name>Newsletter List</list_name><Email__Address>jdoe@example.com</Email__Address><Status>Active</Status><Email__Type>HTML</Email__Type><First__Name>John</First__Name><Last__Name>Doe</Last__Name><Title/><Region/><showChannelID>123456</showChannelID></subscriber>
+
+  123456789:
+    request:  <system_name>subscriber</system_name><action>retrieve</action><search_type>subid</search_type><search_value>123456789</search_value><search_value2></search_value2>
+    response: <subscriber><subid>125704849</subid><listid>63718</listid><list_name>NewsletterList</list_name><Email__Address>jdoe@example.com</Email__Address><Status>Active</Status><Email__Type>HTML</Email__Type><First__Name>John</First__Name><Last__Name>Doe</Last__Name><Title/><Region/></subscriber><subscriber><subid>125504849</subid><listid>63719</listid><list_name>TechnologyUpdate</list_name><Email__Address>jdoe@example.com</Email__Address><Status>Active</Status><Email__Type>HTML</Email__Type><First__Name>John</First__Name><Last__Name>Doe</Last__Name><Title/><Region/></subscriber>
+
+subscriber_delete:
+  '112233445566, bob@hotmail.com':
+    request:  <system_name>subscriber</system_name><action>delete</action><search_type>listid</search_type><search_value>112233445566</search_value><search_value2>bob@hotmail.com</search_value2>
+    response: <subscriber><subscriber_info> Subscriber Deleted Successfully </subscriber_info></subscriber>
+
+  112233445566:
+    request:  <system_name>subscriber</system_name><action>delete</action><search_type>subid</search_type><search_value>112233445566</search_value><search_value2></search_value2>
+    response: <subscriber><subscriber_info> Subscriber Deleted Successfully </subscriber_info></subscriber>
+
+subscriber_masterunsub:
+  request:  <system_name>subscriber</system_name><action>masterunsub</action><search_type>emailaddress</search_type><search_value><emailaddress>Email1@example.com</emailaddress><emailaddress>Email2@example.com</emailaddress><emailaddress>Email3@example.com</emailaddress></search_value>
+  response: <subscriber><subscriberunsub><emailaddress>Email1@example.com</emailaddress><status>masterunsub</status></subscriberunsub><subscriberunsub><emailaddress>Email2@example.com</emailaddress><status>masterunsub</status></subscriberunsub><subscriberunsub><emailaddress>Email3@example.com</emailaddress><status>masterunsub</status></subscriberunsub></subscriber>
+
+####################################################################################
+
+email_retrieve:
+  '':
+    request:  <system_name>email</system_name><action>retrieve</action><sub_action>all</sub_action><search_type></search_type><search_value></search_value><search_value2></search_value2><daterange></daterange>
+    response: <email><emaillist><emailid>104022</emailid><emailname>HTML Training</emailname><emailsubject>Northern Outfitters</emailsubject><emailcreateddate>3/1/2004</emailcreateddate><categoryid>75163</categoryid></emaillist><emaillist><emailid>138167</emailid><emailname>Conversion Tracking</emailname><emailsubject>Conversion Tracking Advanced Test</emailsubject><emailcreateddate>9/23/2003</emailcreateddate><categoryid>75163</categoryid></emaillist><emaillist><emailid>205449</emailid><emailname>ET 04 Demo Email</emailname><emailsubject>ET 04 Demo Email</emailsubject><emailcreateddate>3/19/2004</emailcreateddate><categoryid>75163</categoryid></emaillist></email>
+
+  'Welcome to Fortune One!':
+    request:  <system_name>email</system_name><action>retrieve</action><sub_action>all</sub_action><search_type>emailname</search_type><search_value>Welcome to Fortune One!</search_value><search_value2></search_value2><daterange></daterange>
+    response: <email><emaillist><emailid>104022</emailid><emailname>HTML Training</emailname><emailsubject>Northern Outfitters</emailsubject><emailcreateddate>3/1/2004</emailcreateddate><categoryid>75163</categoryid></emaillist><emaillist><emailid>138167</emailid><emailname>Conversion Tracking</emailname><emailsubject>Conversion Tracking Advanced Test</emailsubject><emailcreateddate>9/23/2003</emailcreateddate><categoryid>75163</categoryid></emaillist><emaillist><emailid>205449</emailid><emailname>ET 04 Demo Email</emailname><emailsubject>ET 04 Demo Email</emailsubject><emailcreateddate>3/19/2004</emailcreateddate><categoryid>75163</categoryid></emaillist></email>
+
+  HASH:
+    request:  <system_name>email</system_name><action>retrieve</action><sub_action>all</sub_action><search_type>daterange</search_type><search_value></search_value><search_value2></search_value2><daterange><startdate>9/15/2008</startdate><enddate>10/15/2008</enddate></daterange>
+    response: <email><emaillist><emailid>104022</emailid><emailname>HTML Training</emailname><emailsubject>Northern Outfitters</emailsubject><emailcreateddate>3/1/2004</emailcreateddate><categoryid>75163</categoryid></emaillist><emaillist><emailid>138167</emailid><emailname>Conversion Tracking</emailname><emailsubject>Conversion Tracking Advanced Test</emailsubject><emailcreateddate>9/23/2003</emailcreateddate><categoryid>75163</categoryid></emaillist><emaillist><emailid>205449</emailid><emailname>ET 04 Demo Email</emailname><emailsubject>ET 04 Demo Email</emailsubject><emailcreateddate>3/19/2004</emailcreateddate><categoryid>75163</categoryid></emaillist></email>
+
+  'Welcome to Fortune One!, HASH':
+    request:  <system_name>email</system_name><action>retrieve</action><sub_action>all</sub_action><search_type>emailnameanddaterange</search_type><search_value>Welcome to Fortune One!</search_value><search_value2></search_value2><daterange><startdate>9/15/2008</startdate><enddate>10/15/2008</enddate></daterange>
+    response: <email><emaillist><emailid>104022</emailid><emailname>HTML Training</emailname><emailsubject>Northern Outfitters</emailsubject><emailcreateddate>3/1/2004</emailcreateddate><categoryid>75163</categoryid></emaillist><emaillist><emailid>138167</emailid><emailname>Conversion Tracking</emailname><emailsubject>Conversion Tracking Advanced Test</emailsubject><emailcreateddate>9/23/2003</emailcreateddate><categoryid>75163</categoryid></emaillist><emaillist><emailid>205449</emailid><emailname>ET 04 Demo Email</emailname><emailsubject>ET 04 Demo Email</emailsubject><emailcreateddate>3/19/2004</emailcreateddate><categoryid>75163</categoryid></emaillist></email>
+
+email_add:
+  'Your body email name, Your email subject line, HASH':
+    request:  <system_name>email</system_name><action>add</action><sub_action>HTMLPaste</sub_action><category/><email_name>Your body email name</email_name><email_subject>Your email subject line</email_subject><email_body><![CDATA[Your HTML email body]]></email_body>
+    response: <email><emailID>44180</emailID></email>
+
+  'Your file email name, Your email subject line, HASH':
+    request:  <system_name>email</system_name><action>add</action><sub_action>HTMLPaste</sub_action><category/><email_name>Your file email name</email_name><email_subject>Your email subject line</email_subject><file_name>Filename</file_name>
+    response: <email><emailID>44180</emailID></email>
+
+email_add_text:
+  '155324, HASH':
+    request:  <system_name>email</system_name><action>add</action><sub_action>text</sub_action><search_type>emailid</search_type><search_value>155324</search_value><email_body><![CDATA[Your text email body]]></email_body>
+    response: <email><email_info>Email updated successfully/email_info></email>
+
+  '155325, HASH':
+    request:  <system_name>email</system_name><action>add</action><sub_action>text</sub_action><search_type>emailid</search_type><search_value>155325</search_value><file_name>Filename</file_name>
+    response: <email><email_info>Email updated successfully/email_info></email>
+
+email_retrieve_body:
+  request:  <system_name>email</system_name><action>retrieve</action><sub_action>htmlemail</sub_action><search_type>emailid</search_type><search_value>12344556</search_value><search_value2/><search_value3/>
+  response: <email><emailid>932890</emailid><htmlbody><![CDATA[<h1>...BODY...</h1>]]></htmlbody></email>
+
+####################################################################################
+
+job_send:
+  request:  <system_name>job</system_name><action>send</action><search_type>emailid</search_type><search_value>112233</search_value><from_name>FrName</from_name><from_email>fr.email@nowhere.com</from_email><additional>addit</additional><multipart_mime>true</multipart_mime><track_links>false</track_links><send_date>5/3/2011</send_date><send_time>17:35</send_time><lists><list>12345</list><list>12346</list></lists><suppress><list>35612</list></suppress><test_send>true</test_send>
+  response: <job><job_info>Job was successfully created.</job_info><job_description>2030602</job_description></job>
+
+  'BOGUS, , ':
+    request:  <system_name>job</system_name><action>send</action><search_type>emailid</search_type><search_value>BOGUS</search_value><from_name></from_name><from_email></from_email><additional></additional><multipart_mime>false</multipart_mime><track_links>true</track_links><send_date>immediate</send_date><send_time></send_time><lists></lists><suppress></suppress><test_send>false</test_send>
+    response: <list><error>68</error><error_description>File does not exist.</error_description></list>
+
+####################################################################################

data/spec/exact_target_spec.rb

@@ -0,0 +1,382 @@
+require 'rubygems'
+require 'exact_target'
+require 'yaml'
+
+describe ExactTarget do
+
+  def self.test_et(method, *args, &block)
+    desc = method.to_s
+    desc << " with #{args.inspect}" unless args.empty?
+    specify(desc) do
+      @res = et_request(method, args.map { |a| a.is_a?(Proc) ? a.call : a }, desc)
+      instance_eval(&block)
+    end
+  end
+
+  #################################################################
+
+  before(:all) do
+    @logger = mock(:logger)
+    @xml = YAML.load(File.read __FILE__.sub('_spec.rb', '_data.yml'))
+    ExactTarget.configure do |config|
+      config.base_url = 'https://base.url.com/foo'
+      config.username = 'a_user'
+      config.password = 'a_pass'
+      config.logger   = @logger
+    end
+  end
+
+  before(:each) do
+    @atts = ['Email Address', 'Status', 'Email Type', 'First Name',
+             'Last Name', 'Title', 'Region'].map do |a|
+      stub :att, :name => a
+    end
+  end
+
+  @example_subscriber = Proc.new do
+    ExactTarget::Subscriber.new.tap do |sub|
+      sub.email_address = 'someone@somehwere.com'
+      sub.status        = 'active'
+      sub.email_type    = 'HTML'
+      sub.first_name    = 'Some'
+      sub.last_name     = 'One'
+      sub.title         = 'Director of HR'
+      sub.region        = 'Midwest'
+    end
+  end
+
+  specify "Subscriber constant" do
+    ExactTarget.should_receive(:subscriber_class).and_return('SC')
+    ExactTarget::Subscriber.should == 'SC'
+    expect { ExactTarget::BogusConstant }.should raise_error
+  end
+
+  specify :subscriber_class do
+    ExactTarget.should_receive(:accountinfo_retrieve_attrbs).once.and_return(@atts)
+    clazz = ExactTarget.send(:subscriber_class)
+    clazz.should == ExactTarget.send(:subscriber_class)
+    s = clazz.new
+    s.first_name = 'Da'
+    s.Email__Address = 'foo@bar.com'
+    s.region = 42
+    s.First__Name.should == 'Da'
+    s.email_address.should == 'foo@bar.com'
+    s.to_s.should == 'foo@bar.com'
+  end
+
+  test_et :accountinfo_retrieve_attrbs do
+    @res.size.should == 2
+
+    @res = @res.last
+    @res.is_a?(ExactTarget::ListProfileAttribute).should be_true
+    @res.default_value.should == 'HTML'
+    @res.min_size.should == 0
+    @res.max_size.should == 2000
+    @res.values.should == %w(HTML Text)
+    @res.display.should == 'A2 name'
+    @res.required.should be_true
+    @res.name.should == 'A2'
+    @res.subscriber_editable.should == 1
+    @res.data_type.should == 'text'
+    @res.description.should == 'A2 description'
+    @res.to_s.should == 'A2'
+  end
+
+  test_et :list_retrieve, 'epub test' do
+    @res.should == [42, 47]
+  end
+
+  test_et :list_retrieve, 42 do
+    @res.should be_a(ExactTarget::ListInformation)
+    @res.unsub_count.should == 1596
+    @res.subscriber_count.should == 15287
+    @res.bounce_count.should == 4145
+    @res.modified.should be_a(DateTime)
+    @res.held_count.should == 120
+    @res.list_type.should == 'Private'
+    @res.active_total.should == 9426
+    @res.list_name.should == 'My Test List'
+    @res.to_s.should == 'My Test List'
+  end
+
+  test_et :list_add, "Epub Test", :private do
+    @res.should == 53
+  end
+
+  test_et :list_edit, 42, "Epub Test - RENAME" do
+    @res.should == 42
+  end
+
+  test_et :list_import, [72, 33, 99], 'sometestfile.txt',
+          %w(some_field other_field),
+          :email_address => 'testme@nowhere.com' do
+    @res.should == 841
+  end
+
+  test_et :list_importstatus, 119792 do
+    @res.should == 'Complete'
+  end
+
+  test_et :list_retrieve_sub, 42, 'Active' do
+    @res.size.should == 2
+
+    @res = @res.last
+    @res.status.should == "Active"
+    @res.first_name.should == "Mary"
+    @res.last_name.should == "Smith"
+    @res.email_type.should == "HTML"
+    @res.email_address.should == "mary@example.com"
+    @res.to_s.should == "mary@example.com"
+  end
+
+  test_et :list_delete, 42 do
+    @res.should == 42
+  end
+
+  test_et :list_retrievegroups do
+    @res.size.should == 2
+
+    @res = @res.last
+    @res.should be_a(ExactTarget::ListGroupInformation)
+    @res.group_id.should == 875
+    @res.parentlist_id.should == 77
+    @res.description.should == "test desc"
+    @res.group_name.should == "test group"
+    @res.to_s.should == "test group"
+  end
+
+  test_et :list_refresh_group, 3514 do
+    @res.should == 6127
+  end
+
+  test_et :batch_inquire, 8912 do
+    @res.should == 'Completed'
+  end
+
+  #################################################################
+
+  test_et :subscriber_add, 1234, @example_subscriber, :status => 'active', :ChannelMemberID => 5678 do
+    @res.should == 12334566
+  end
+
+  test_et :subscriber_edit, 63718, 'user@email.com', @example_subscriber,
+                            :status => 'unsub',
+                            :reason => 'insert your unsubscribe reason here',
+                            :ChannelMemberID => 5678 do
+    @res.should == 12334566
+  end
+
+  test_et :subscriber_retrieve, 123456, 'someone@example.com' do
+    @res.size.should == 1
+
+    @res = @res.last
+    @res.should be_a(ExactTarget::SubscriberInformation)
+    @res.subid.should == 125704849
+    @res.listid.should == 63718
+    @res.list_name.should == 'Newsletter List'
+
+    @res = @res.subscriber
+    @res.email_address.should == "jdoe@example.com"
+    @res.first_name.should == "John"
+    @res.region.should == ""
+    @res.email_type.should == "HTML"
+    @res.title.should == ""
+    @res.status.should == "Active"
+    @res.last_name.should == "Doe"
+  end
+
+  test_et :subscriber_retrieve, 123456789 do
+    @res.size.should == 2
+
+    @res = @res.last
+    @res.should be_a(ExactTarget::SubscriberInformation)
+    @res.subid.should == 125504849
+    @res.listid.should == 63719
+    @res.list_name.should == 'TechnologyUpdate'
+
+    @res = @res.subscriber
+    @res.email_address.should == "jdoe@example.com"
+    @res.first_name.should == "John"
+    @res.region.should == ""
+    @res.email_type.should == "HTML"
+    @res.title.should == ""
+    @res.status.should == "Active"
+    @res.last_name.should == "Doe"
+  end
+
+  test_et :subscriber_delete, 112233445566, 'bob@hotmail.com' do
+    @res.should be_true
+  end
+
+  test_et :subscriber_delete, 112233445566 do
+    @res.should be_true
+  end
+
+  test_et :subscriber_masterunsub,
+          %w(Email1@example.com Email2@example.com Email3@example.com) do
+    @res.size.should == 3
+    (1..3).each do |i|
+      @res["Email#{i}@example.com"].should == "masterunsub"
+    end
+  end
+
+  #################################################################
+
+  test_et :email_retrieve do
+    verify_email_retrieve
+  end
+
+  test_et :email_retrieve, 'Welcome to Fortune One!' do
+    verify_email_retrieve
+  end
+
+  test_et :email_retrieve, :start_date => Date.parse('2008-09-15'),
+                           :end_date => Date.parse('2008-10-15') do
+    verify_email_retrieve
+  end
+
+  test_et :email_retrieve, 'Welcome to Fortune One!',
+                           :start_date => Date.parse('2008-09-15'),
+                           :end_date => Date.parse('2008-10-15') do
+    verify_email_retrieve
+  end
+
+  def verify_email_retrieve
+    @res.size.should == 3
+
+    @res = @res.last
+    @res.emailid.should == 205449
+    @res.emailname.should == 'ET 04 Demo Email'
+    @res.emailsubject.should == 'ET 04 Demo Email'
+    @res.emailcreateddate.should == Date.parse('2004-03-19')
+    @res.categoryid.should == 75163
+    @res.to_s.should == 'ET 04 Demo Email'
+  end
+
+  test_et :email_add, 'Your body email name',
+                      'Your email subject line',
+                      :body => 'Your HTML email body' do
+    @res.should == 44180
+  end
+
+  test_et :email_add, 'Your file email name',
+                      'Your email subject line',
+                      :file => 'Filename' do
+    @res.should == 44180
+  end
+
+  test_et :email_add_text, 155324, :body => 'Your text email body' do
+    @res.should be_true
+  end
+
+  test_et :email_add_text, 155325, :file => 'Filename' do
+    @res.should be_true
+  end
+
+  test_et :email_retrieve_body, 12344556 do
+    @res.should == '<h1>...BODY...</h1>'
+  end
+
+  #################################################################
+
+  test_et :job_send, 112233, [12345, 12346],
+          :suppress_ids => 35612,
+          :from_name => 'FrName',
+          :from_email => 'fr.email@nowhere.com',
+          :additional => 'addit',
+          :multipart_mime => true,
+          :track_links => false,
+          :send_date => '5/3/2011',
+          :send_time => '17:35',
+          :test_send => true do
+    @res.should == 2030602
+  end
+
+  specify "job_send with error" do
+    expect do
+      et_request :job_send, [:BOGUS, nil, nil], "job send with error"
+    end.should raise_error(
+      ExactTarget::Error,
+      'ExactTarget error #68: File does not exist.'
+    )
+  end
+
+  #################################################################
+
+  context :send_to_exact_target do
+    before(:each) do
+      @path = '/foo?qf=xml&xml=%3Csomexml/%3E'
+      @http = mock('Net::HTTP')
+      @http.should_receive(:use_ssl=).with(true)
+      @http.should_receive(:open_timeout=).with(2)
+      @http.should_receive(:read_timeout=).with(5)
+      Net::HTTP.should_receive(:new).with('base.url.com', 443).and_return(@http)
+    end
+
+    specify :success do
+      resp = stub('Net::HTTPSuccess', :is_a? => true, :body => 'xyz')
+      @http.should_receive(:get).with(@path).and_return(resp)
+      ExactTarget.send_to_exact_target('<somexml/>').should == 'xyz'
+    end
+
+    specify :error do
+      resp = stub('Net::HTTPFailure', :error! => 'err')
+      @http.should_receive(:get).with(@path).and_return(resp)
+      ExactTarget.send_to_exact_target('<somexml/>').should == 'err'
+    end
+  end
+
+  specify "method_missing should throw normal error when bogus method" do
+    expect { ExactTarget.bogus }.should raise_error
+  end
+
+  #################################################################
+
+  private
+
+  def et_request(method, args, desc)
+    request, response = et_xml(method, args, desc)
+    request = <<-END.gsub(/>\s+</m, '><').strip
+      <?xml version="1.0"?>
+      <exacttarget>
+        <authorization>
+          <username>a_user</username>
+          <password>a_pass</password>
+        </authorization>
+        <system>
+          #{request}
+        </system>
+      </exacttarget>
+    END
+    response = <<-END.gsub(/>\s+</m, '><').strip
+      <?xml version='1.0'?>
+      <exacttarget>
+        <system>
+          #{response}
+        </system>
+      </exacttarget>
+    END
+    @logger.should_receive(:debug).twice
+    ExactTarget.should_receive(:send_to_exact_target).with(request).and_return(response)
+    unless method == :accountinfo_retrieve_attrbs
+      ExactTarget.stub :accountinfo_retrieve_attrbs => @atts
+    end
+    ExactTarget.send(method, *args)
+  end
+
+  def et_xml(method, args, desc)
+    xml = @xml[method.to_s] || {}
+    args = args.map { |a| a.is_a?(Hash) ? 'HASH' : a }
+    if args.size == 1 and xml.has_key?(k = args.first)
+      xml = xml[k]
+    elsif xml.has_key?(k = args.join(', '))
+      xml = xml[k]
+    elsif xml.has_key?(k = args.hash)
+      xml = xml[k]
+    end
+    %w(request response).map do |k|
+      xml[k] or raise "Can not determine #{k} xml for #{desc}"
+    end
+  end
+
+end