Added information & stats tests

Author: Drew Blas

TODO

@@ -1 +1,3 @@
 * Use a better XML parser (and be consistent)
+* Rename Base to something else (probably Mailer):  Nothing else actually inherits from Base, so that is a very poor naming convention.  I intend to change it in the future
+* Integer responses should probably be cast to ints instead of left as strings

lib/aws/ses/addresses.rb

@@ -53,6 +53,7 @@ def result
           []
         end
       end
+      memoized :result
     end
 
     class VerifyEmailAddressResponse < AWS::SES::Response

lib/aws/ses/info.rb

@@ -21,11 +21,33 @@ class GetSendQuotaResponse < AWS::SES::Response
       def result
         parsed['GetSendQuotaResult']
       end
+      
+      def sent_last_24_hours
+        result['SentLast24Hours']
+      end
+      
+      def max_24_hour_send
+        result['Max24HourSend']
+      end
+      
+      def max_send_rate
+        result['MaxSendRate']
+      end
     end
 
     class GetSendStatisticsResponse < AWS::SES::Response
       def result
-        parsed['GetSendStatisticsResponse']
+        if members = parsed['GetSendStatisticsResult']['SendDataPoints']
+          [members['member']].flatten
+        else
+          []
+        end
+      end
+      
+      memoized :result
+      
+      def data_points
+        result
       end
     end
   end

test/info_test.rb

@@ -0,0 +1,108 @@
+require File.dirname(__FILE__) + '/helper'
+
+class InfoTest < Test::Unit::TestCase
+  context 'getting send quota' do
+    setup do
+      @base = generate_base
+    end
+
+    should 'return the correct response on success' do
+      mock_connection(@base, :body => %{
+        <GetSendQuotaResponse xmlns="http://ses.amazonaws.com/doc/2010-12-01/">
+          <GetSendQuotaResult>
+            <SentLast24Hours>0.0</SentLast24Hours>
+            <Max24HourSend>1000.0</Max24HourSend>
+            <MaxSendRate>1.0</MaxSendRate>
+          </GetSendQuotaResult>
+          <ResponseMetadata>
+            <RequestId>abc-123</RequestId>
+          </ResponseMetadata>
+        </GetSendQuotaResponse>
+      })
+      
+      result = @base.quota
+      assert result.success?
+      assert_equal 'abc-123', result.request_id
+      assert_equal '0.0', result.sent_last_24_hours
+      assert_equal '1000.0', result.max_24_hour_send
+      assert_equal '1.0', result.max_send_rate
+    end  
+  end
+
+  context 'getting send statistics' do 
+    setup do
+      @base = generate_base
+    end
+    
+    should 'return the correct response on success' do   
+      mock_connection(@base, :body => %{
+        <GetSendStatisticsResponse xmlns="http://ses.amazonaws.com/doc/2010-12-01/">
+          <GetSendStatisticsResult>
+            <SendDataPoints>
+              <member>
+                <DeliveryAttempts>3</DeliveryAttempts>
+                <Timestamp>2011-01-31T15:31:00Z</Timestamp>
+                <Rejects>2</Rejects>
+                <Bounces>4</Bounces>
+                <Complaints>1</Complaints>
+              </member>
+              <member>
+                <DeliveryAttempts>3</DeliveryAttempts>
+                <Timestamp>2011-01-31T16:01:00Z</Timestamp>
+                <Rejects>0</Rejects>
+                <Bounces>0</Bounces>
+                <Complaints>0</Complaints>
+              </member>
+              <member>
+                <DeliveryAttempts>1</DeliveryAttempts>
+                <Timestamp>2011-01-26T16:31:00Z</Timestamp>
+                <Rejects>0</Rejects>
+                <Bounces>0</Bounces>
+                <Complaints>0</Complaints>
+              </member>
+            </SendDataPoints>
+          </GetSendStatisticsResult>
+          <ResponseMetadata>
+            <RequestId>abc-123</RequestId>
+          </ResponseMetadata>
+        </GetSendStatisticsResponse>
+      })
+      
+      result = @base.statistics
+
+      assert result.success?
+      assert_equal 'abc-123', result.request_id
+      
+      assert_equal 3, result.data_points.size
+      
+      d = result.data_points.first
+      
+      assert_equal '2', d['Rejects']
+      assert_equal '3', d['DeliveryAttempts']
+      assert_equal '4', d['Bounces']
+      assert_equal '1', d['Complaints']
+    end
+  end
+
+
+  context 'deleting a verified addressess' do 
+    setup do
+      @base = generate_base
+    end
+    
+    should 'return the correct response on success' do   
+      mock_connection(@base, :body => %{
+        <DeleteVerifiedEmailAddressResponse xmlns="http://ses.amazonaws.com/doc/2010-12-01/">
+          <ResponseMetadata>
+            <RequestId>abc-123</RequestId>
+          </ResponseMetadata>
+        </DeleteVerifiedEmailAddressResponse>
+      })
+      
+      result = @base.addresses.delete('[email protected]')
+
+      assert result.success?
+      assert_equal 'abc-123', result.request_id
+    end
+  end
+end