geocerts 0.0.11

data/test/fixtures/responses/product.rb

@@ -0,0 +1,77 @@
+module Responses
+  
+  module Product
+    
+    All = %|HTTP/1.1 200 OK 
+Date: Tue, 08 Sep 2009 19:34:48 GMT 
+Server: Mongrel 1.1.3 
+Status: 200 OK 
+Cache-Control: no-cache 
+Content-Type: application/xml; charset=utf-8 
+Content-Length: 1751 
+Vary: Accept-Encoding 
+Connection: close 
+
+<?xml version="1.0" encoding="UTF-8"?>
+<products>
+  <product>
+    <name>QuickSSL</name>
+    <sku>Q</sku>
+    <max-years type="integer">6</max-years>
+  </product>
+  <product>
+    <name>QuickSSL Premium</name>
+    <sku>QP</sku>
+    <max-years type="integer">6</max-years>
+  </product>
+  <product>
+    <name>True BusinessID</name>
+    <sku>TBID</sku>
+    <max-years type="integer">5</max-years>
+  </product>
+  <product>
+    <name>Wildcard SSL</name>
+    <sku>TW</sku>
+    <max-years type="integer">5</max-years>
+  </product>
+  <product>
+    <name>True BizID Extended Validation</name>
+    <sku>EV</sku>
+    <max-years type="integer">2</max-years>
+  </product>
+  <product>
+    <name>Power Server ID</name>
+    <sku>PSID</sku>
+    <max-years type="integer">6</max-years>
+  </product>
+  <product>
+    <name>True Biz Multi-Domain 10</name>
+    <sku>TBIDMD10</sku>
+    <max-years type="integer">5</max-years>
+  </product>
+  <product>
+    <name>True Biz Multi-Domain 15</name>
+    <sku>TBIDMD15</sku>
+    <max-years type="integer">5</max-years>
+  </product>
+  <product>
+    <name>True Biz Multi-Domain 20</name>
+    <sku>TBIDMD20</sku>
+    <max-years type="integer">5</max-years>
+  </product>
+  <product>
+    <name>True Biz Multi-Domain 25</name>
+    <sku>TBIDMD25</sku>
+    <max-years type="integer">5</max-years>
+  </product>
+  <product>
+    <name>Free Trial (QP)</name>
+    <sku>T</sku>
+    <max-years type="integer">1</max-years>
+  </product>
+</products>
+|
+    
+  end
+  
+end

data/test/integrations/agreement_test.rb

@@ -0,0 +1,40 @@
+require 'test_helper'
+
+class GeoCerts::AgreementTest < Test::Unit::TestCase
+  
+  context 'GeoCerts::Agreement (using the API)' do
+    
+    context 'user agreement' do
+      
+      should 'return a GeoCerts::Agreement' do
+        managed_server_request :get, '/products.xml', :response => Responses::Product::All do
+          managed_server_request :get, '/products/Q/agreement.xml', :response => Responses::Agreement::Agreement do
+            assert_kind_of(GeoCerts::Agreement, GeoCerts::Product.find('Q').user_agreement)
+          end
+        end
+      end
+      
+      should 'contain the server-provided agreement text' do
+        managed_server_request :get, '/products.xml', :response => Responses::Product::All do
+          managed_server_request :get, '/products/Q/agreement.xml', :response => Responses::Agreement::Agreement do
+            text = GeoCerts::Product.find('Q').user_agreement.text
+            assert_match(/GeoTrust\(R\) SSL Certificate Subscriber Agreement/, text)
+            assert_match(/YOU MUST READ THIS GEOTRUST SSL CERTIFICATE SUBSCRIBER AGREEMENT/, text)
+            assert_match(/GeoTrust SSL Certificate Subscriber Agreement Version 2.0/, text)
+          end
+        end
+      end
+      
+      should 'return an error for an unrecognized product code' do
+        managed_server_request :get, '/products/BAD/agreement.xml', :response => Responses::Agreement::UnrecognizedProduct do
+          assert_responds_with_exception(GeoCerts::UnprocessableEntity, -90000) do
+            GeoCerts::Product.new(:sku => 'BAD').user_agreement
+          end
+        end
+      end
+      
+    end
+    
+  end
+  
+end

data/test/integrations/api_test.rb

@@ -0,0 +1,33 @@
+require 'test_helper'
+
+class GeoCerts::APITest < Test::Unit::TestCase
+  
+  context 'GeoCerts::API' do
+    
+    should 'be unauthorized' do
+      managed_server_request :get, '/orders.xml', :response => Responses::Unauthorized do
+        assert_responds_with_exception(GeoCerts::Unauthorized) do
+          GeoCerts::Order.all
+        end
+      end
+    end
+    
+    should 'raise a GeoCerts::RequestTimeout error when the connection times out' do
+      exclusively_mocked_request :get, '/orders.xml', :exception => Timeout::Error do
+        assert_responds_with_exception(GeoCerts::RequestTimeout) do
+          GeoCerts::Order.all
+        end
+      end
+    end
+    
+    should 'raise a GeoCerts::RequestTimeout error when the connection gets reset' do
+      exclusively_mocked_request :get, '/orders.xml', :exception => Errno::ECONNRESET do
+        assert_responds_with_exception(GeoCerts::ConnectionError) do
+          GeoCerts::Order.all
+        end
+      end
+    end
+    
+  end
+  
+end

data/test/integrations/certificate_test.rb

@@ -0,0 +1,195 @@
+require 'test_helper'
+
+class GeoCerts::CertificateTest < Test::Unit::TestCase
+  
+  context 'Certificate (using the API)' do
+    
+    context 'all' do
+      
+      should 'return a collection of GeoCerts::Certificates' do
+        managed_server_request :get, '/certificates.xml', :response => Responses::Certificate::All do
+          assert GeoCerts::Certificate.all.all? { |item| item.kind_of?(GeoCerts::Certificate) }
+        end
+      end
+      
+      should 'return two certificates' do
+        exclusively_mocked_request :get, '/certificates.xml', :response => Responses::Certificate::All do
+          assert_equal(2, GeoCerts::Certificate.all.size)
+        end
+      end
+      
+      should 'properly populate the certificate data' do
+        exclusively_mocked_request :get, '/certificates.xml', :response => Responses::Certificate::All do
+          certificate = GeoCerts::Certificate.all.first
+          assert_equal(422815,                certificate.order_id)
+          assert_equal('93520',               certificate.geotrust_order_id)
+          assert_equal('Renewed',             certificate.status)
+          assert_equal('www.example.com',     certificate.common_name)
+          assert_equal('1E08',                certificate.serial_number)
+          assert_equal('Atlanta',             certificate.city)
+          assert_equal('Georgia',             certificate.state)
+          assert_equal('US',                  certificate.country)
+          assert_equal('GeoCerts',            certificate.organization)
+          assert_equal('Internet',            certificate.organizational_unit)
+          assert_equal('ssladmin@example.com',certificate.approver_email)
+          assert_equal('test@example.com',    certificate.reissue_email)
+          assert_equal(DateTime.parse('2009-08-11T19:28:18-04:00'), certificate.start_at)
+          assert_equal(DateTime.parse('2009-08-20T00:59:16-04:00'), certificate.end_at)
+          assert_match(%r{/orders/422815/certificate\.xml$}, certificate.url)
+          assert_equal("-----BEGIN CERTIFICATE-----\nMIIDATCCAmqgAwIBAgICHwkwDQYJKoZIhvcNAQEEBQAwSzELMAkGA1UEBhMCVVMx\nFTATBgNVBAoTDEdlb1RydXN0IEluYzElMCMGA1UEAxMcR2VvVHJ1c3QgUHJlLVBy\nb2R1Y3Rpb24gQ0EgMTAeFw0wOTA4MTEyMzI4MThaFw0wOTA4MjAwNDU5MTZaMIHI\nMQswCQYDVQQGEwJVUzEbMBkGA1UEChMSc3J2MDIud2F2ZXBhdGguY29tMRMwEQYD\nVQQLEwpHVDAzMTIzMjc1MTEwLwYDVQQLEyhTZWUgd3d3Lmdlb3RydXN0LmNvbS9y\nZXNvdXJjZXMvY3BzIChjKTA5MTcwNQYDVQQLEy5Eb21haW4gQ29udHJvbCBWYWxp\nZGF0ZWQgLSBRdWlja1NTTCBQcmVtaXVtKFIpMRswGQYDVQQDExJzcnYwMi53YXZl\ncGF0aC5jb20wgZ8wDQYJKoZIhvcNAQEBBQADgY0AMIGJAoGBAOfnRzNL60aJdLL7\nSyJ7OFJPINg4yjLDLUJA7moeerN7QupUeJm68LHQ7juTRJ7lqkwTNK1hDRZuH7+6\nsM3ohFOjWv9D9hEWqR1tKAUBnhTJlTr8rYmvqbSNCWhUJZy53NqntiyDpg8kNOTM\nUVsY0cAn9e4vJHvh49t2AsMMAjtjAgMBAAGjdjB0MA4GA1UdDwEB/wQEAwIE8DBB\nBgNVHR8EOjA4MDagNKAyhjBodHRwOi8vdGVzdC1jcmwuZ2VvdHJ1c3QuY29tL2Ny\nbHMvcHJlcHJvZGNhMS5jcmwwHwYDVR0jBBgwFoAUSu1cZmsN8sJTHAsEc92rVZad\nv4cwDQYJKoZIhvcNAQEEBQADgYEAJyNUrcKjcbtVatngWw6KCCtogp1V2eEt9BJM\nUVsY0cAn9e4vJHvh49t2AsMMAjtjAgMBAAGjdjB0MA4GA1UdDwEB/wQEAwIE8DBB\nBgNVHR8EOjA4MDagNKAyhjBodHRwOi8vdGVzdC1jcmwuZ2VvdHJ1c3QuY29tL2Ny\ngrVniKk=\n-----END CERTIFICATE-----\n", certificate.certificate)
+          assert_equal("-----BEGIN CERTIFICATE-----\nMIIDIDCCAomgAwIBAgIENd70zzANBgkqhkiG9w0BAQUFADBOMQswCQYDVQQGEwJV\nUzEQMA4GA1UEChMHRXF1aWZheDEtMCsGA1UECxMkRXF1aWZheCBTZWN1cmUgQ2Vy\ndGlmaWNhdGUgQXV0aG9yaXR5MB4XDTk4MDgyMjE2NDE1MVoXDTE4MDgyMjE2NDE1\nMVowTjELMAkGA1UEBhMCVVMxEDAOBgNVBAoTB0VxdWlmYXgxLTArBgNVBAsTJEVx\ndWlmYXggU2VjdXJlIENlcnRpZmljYXRlIEF1dGhvcml0eTCBnzANBgkqhkiG9w0B\nAQEFAAOBjQAwgYkCgYEAwV2xWGcIYu6gmi0fCG2RFGiYCh7+2gRvE4RiIcPRfM6f\nBeC4AfBONOziipUEZKzxa1NfBbPLZ4C/QgKO/t0BCezhABRP/PvwDN1Dulsr4R+A\ncJkVV5MW8Q+XarfCaCMczE1ZMKxRHjuvK9buY0V7xdlfUNLjUA86iOe/FP3gx7kC\nAwEAAaOCAQkwggEFMHAGA1UdHwRpMGcwZaBjoGGkXzBdMQswCQYDVQQGEwJVUzEQ\nMA4GA1UEChMHRXF1aWZheDEtMCsGA1UECxMkRXF1aWZheCBTZWN1cmUgQ2VydGlm\naWNhdGUgQXV0aG9yaXR5MQ0wCwYDVQQDEwRDUkwxMBoGA1UdEAQTMBGBDzIwMTgw\nODIyMTY0MTUxWjALBgNVHQ8EBAMCAQYwHwYDVR0jBBgwFoAUSOZo+SvSspXXR9gj\nIBBPM5iQn9QwHQYDVR0OBBYEFEjmaPkr0rKV10fYIyAQTzOYkJ/UMAwGA1UdEwQF\nMAMBAf8wGgYJKoZIhvZ9B0EABA0wCxsFVjMuMGMDAgbAMA0GCSqGSIb3DQEBBQUA\nMA4GA1UEChMHRXF1aWZheDEtMCsGA1UECxMkRXF1aWZheCBTZWN1cmUgQ2VydGlm\naWNhdGUgQXV0aG9yaXR5MQ0wCwYDVQQDEwRDUkwxMBoGA1UdEAQTMBGBDzIwMTgw\n1voqZiegDfqnc1zqcPGUIWVEX/r87yloqaKHee9570+sB3c4\n-----END CERTIFICATE-----", certificate.ca_root)
+          assert !certificate.trial?
+        end
+      end
+      
+      should 'set the end at time' do
+        exclusively_mocked_request :get, '/certificates.xml', :response => Responses::Certificate::All do
+          assert_equal DateTime.parse('2009-09-08T12:57:10-04:00'), GeoCerts::Certificate.all.end_at
+        end
+      end
+      
+      should 'set the start at time' do
+        exclusively_mocked_request :get, '/certificates.xml', :response => Responses::Certificate::All do
+          assert_equal DateTime.parse('2009-08-09T12:57:10-04:00'), GeoCerts::Certificate.all.start_at
+        end
+      end
+      
+      should 'modify the queried window of time' do
+        managed_server_request :get, '/certificates.xml?start_at=2009-01-01T00:00:00+00:00&end_at=2009-01-02T00:00:00+00:00', :response => Responses::Certificate::All do
+          GeoCerts::Certificate.all(:start_at => DateTime.parse('2009-01-01T00:00:00Z'), :end_at => DateTime.parse('2009-01-02T00:00:00Z'))
+        end
+      end
+      
+    end
+    
+    context 'find' do
+      
+      setup do
+        managed_server_request :get, '/orders.xml', :response => Responses::Order::All do
+          @order_id = GeoCerts::Order.all.first.id
+        end
+      end
+      
+      should 'return a GeoCerts::Certificate' do
+        managed_server_request :get, "/orders/#{@order_id}/certificate.xml", :response => Responses::Certificate::Certificate do
+          certificate = GeoCerts::Certificate.find(@order_id)
+          assert_kind_of(GeoCerts::Certificate, certificate)
+          assert_equal(@order_id, certificate.order_id)
+        end
+      end
+      
+      should 'properly populate the certificate data' do
+        exclusively_mocked_request :get, '/orders/422815/certificate.xml', :response => Responses::Certificate::Certificate do
+          certificate = GeoCerts::Certificate.find(422815)
+          assert_equal(422815,                certificate.order_id)
+          assert_equal('93520',               certificate.geotrust_order_id)
+          assert_equal('Renewed',             certificate.status)
+          assert_equal('www.example.com',     certificate.common_name)
+          assert_equal('1E08',                certificate.serial_number)
+          assert_equal('Atlanta',             certificate.city)
+          assert_equal('Georgia',             certificate.state)
+          assert_equal('US',                  certificate.country)
+          assert_equal('GeoCerts',            certificate.organization)
+          assert_equal('Internet',            certificate.organizational_unit)
+          assert_equal('ssladmin@example.com',certificate.approver_email)
+          assert_equal('test@example.com',    certificate.reissue_email)
+          assert_equal(DateTime.parse('2009-08-11T19:28:18-04:00'), certificate.start_at)
+          assert_equal(DateTime.parse('2009-08-20T00:59:16-04:00'), certificate.end_at)
+          assert_match(%r{/orders/422815/certificate\.xml$}, certificate.url)
+          assert_equal("-----BEGIN CERTIFICATE-----\nMIIDATCCAmqgAwIBAgICHwkwDQYJKoZIhvcNAQEEBQAwSzELMAkGA1UEBhMCVVMx\nFTATBgNVBAoTDEdlb1RydXN0IEluYzElMCMGA1UEAxMcR2VvVHJ1c3QgUHJlLVBy\nb2R1Y3Rpb24gQ0EgMTAeFw0wOTA4MTEyMzI4MThaFw0wOTA4MjAwNDU5MTZaMIHI\nMQswCQYDVQQGEwJVUzEbMBkGA1UEChMSc3J2MDIud2F2ZXBhdGguY29tMRMwEQYD\nVQQLEwpHVDAzMTIzMjc1MTEwLwYDVQQLEyhTZWUgd3d3Lmdlb3RydXN0LmNvbS9y\nZXNvdXJjZXMvY3BzIChjKTA5MTcwNQYDVQQLEy5Eb21haW4gQ29udHJvbCBWYWxp\nZGF0ZWQgLSBRdWlja1NTTCBQcmVtaXVtKFIpMRswGQYDVQQDExJzcnYwMi53YXZl\ncGF0aC5jb20wgZ8wDQYJKoZIhvcNAQEBBQADgY0AMIGJAoGBAOfnRzNL60aJdLL7\nSyJ7OFJPINg4yjLDLUJA7moeerN7QupUeJm68LHQ7juTRJ7lqkwTNK1hDRZuH7+6\nsM3ohFOjWv9D9hEWqR1tKAUBnhTJlTr8rYmvqbSNCWhUJZy53NqntiyDpg8kNOTM\nUVsY0cAn9e4vJHvh49t2AsMMAjtjAgMBAAGjdjB0MA4GA1UdDwEB/wQEAwIE8DBB\nBgNVHR8EOjA4MDagNKAyhjBodHRwOi8vdGVzdC1jcmwuZ2VvdHJ1c3QuY29tL2Ny\nbHMvcHJlcHJvZGNhMS5jcmwwHwYDVR0jBBgwFoAUSu1cZmsN8sJTHAsEc92rVZad\nv4cwDQYJKoZIhvcNAQEEBQADgYEAJyNUrcKjcbtVatngWw6KCCtogp1V2eEt9BJM\nUVsY0cAn9e4vJHvh49t2AsMMAjtjAgMBAAGjdjB0MA4GA1UdDwEB/wQEAwIE8DBB\nBgNVHR8EOjA4MDagNKAyhjBodHRwOi8vdGVzdC1jcmwuZ2VvdHJ1c3QuY29tL2Ny\ngrVniKk=\n-----END CERTIFICATE-----\n", certificate.certificate)
+          assert_equal("-----BEGIN CERTIFICATE-----\nMIIDIDCCAomgAwIBAgIENd70zzANBgkqhkiG9w0BAQUFADBOMQswCQYDVQQGEwJV\nUzEQMA4GA1UEChMHRXF1aWZheDEtMCsGA1UECxMkRXF1aWZheCBTZWN1cmUgQ2Vy\ndGlmaWNhdGUgQXV0aG9yaXR5MB4XDTk4MDgyMjE2NDE1MVoXDTE4MDgyMjE2NDE1\nMVowTjELMAkGA1UEBhMCVVMxEDAOBgNVBAoTB0VxdWlmYXgxLTArBgNVBAsTJEVx\ndWlmYXggU2VjdXJlIENlcnRpZmljYXRlIEF1dGhvcml0eTCBnzANBgkqhkiG9w0B\nAQEFAAOBjQAwgYkCgYEAwV2xWGcIYu6gmi0fCG2RFGiYCh7+2gRvE4RiIcPRfM6f\nBeC4AfBONOziipUEZKzxa1NfBbPLZ4C/QgKO/t0BCezhABRP/PvwDN1Dulsr4R+A\ncJkVV5MW8Q+XarfCaCMczE1ZMKxRHjuvK9buY0V7xdlfUNLjUA86iOe/FP3gx7kC\nAwEAAaOCAQkwggEFMHAGA1UdHwRpMGcwZaBjoGGkXzBdMQswCQYDVQQGEwJVUzEQ\nMA4GA1UEChMHRXF1aWZheDEtMCsGA1UECxMkRXF1aWZheCBTZWN1cmUgQ2VydGlm\naWNhdGUgQXV0aG9yaXR5MQ0wCwYDVQQDEwRDUkwxMBoGA1UdEAQTMBGBDzIwMTgw\nODIyMTY0MTUxWjALBgNVHQ8EBAMCAQYwHwYDVR0jBBgwFoAUSOZo+SvSspXXR9gj\nIBBPM5iQn9QwHQYDVR0OBBYEFEjmaPkr0rKV10fYIyAQTzOYkJ/UMAwGA1UdEwQF\nMAMBAf8wGgYJKoZIhvZ9B0EABA0wCxsFVjMuMGMDAgbAMA0GCSqGSIb3DQEBBQUA\nMA4GA1UEChMHRXF1aWZheDEtMCsGA1UECxMkRXF1aWZheCBTZWN1cmUgQ2VydGlm\naWNhdGUgQXV0aG9yaXR5MQ0wCwYDVQQDEwRDUkwxMBoGA1UdEAQTMBGBDzIwMTgw\n1voqZiegDfqnc1zqcPGUIWVEX/r87yloqaKHee9570+sB3c4\n-----END CERTIFICATE-----", certificate.ca_root)
+          assert !certificate.trial?
+        end
+      end
+      
+      should 'raise a ResourceNotFound error' do
+        managed_server_request :get, '/orders/999999999/certificate.xml', :response => Responses::InvalidOrderId do
+          assert_responds_with_exception(GeoCerts::ResourceNotFound, -90004) do
+            GeoCerts::Certificate.find(999999999)
+          end
+        end
+      end
+      
+    end
+    
+    context 'find_by_order_id' do
+      
+      setup do
+        managed_server_request :get, '/orders.xml', :response => Responses::Order::All do
+          @order_id = GeoCerts::Order.all.first.id
+        end
+      end
+      
+      should 'return a GeoCerts::Certificate' do
+        managed_server_request :get, "/orders/#{@order_id}/certificate.xml", :response => Responses::Certificate::Certificate do
+          certificate = GeoCerts::Certificate.find_by_order_id(@order_id)
+          assert_kind_of(GeoCerts::Certificate, certificate)
+          assert_equal(@order_id, certificate.order_id)
+        end
+      end
+      
+      should 'properly populate the certificate data' do
+        exclusively_mocked_request :get, '/orders/422815/certificate.xml', :response => Responses::Certificate::Certificate do
+          certificate = GeoCerts::Certificate.find_by_order_id(422815)
+          assert_equal(422815,                certificate.order_id)
+          assert_equal('93520',               certificate.geotrust_order_id)
+          assert_equal('Renewed',             certificate.status)
+          assert_equal('www.example.com',     certificate.common_name)
+          assert_equal('1E08',                certificate.serial_number)
+          assert_equal('Atlanta',             certificate.city)
+          assert_equal('Georgia',             certificate.state)
+          assert_equal('US',                  certificate.country)
+          assert_equal('GeoCerts',            certificate.organization)
+          assert_equal('Internet',            certificate.organizational_unit)
+          assert_equal('ssladmin@example.com',certificate.approver_email)
+          assert_equal('test@example.com',    certificate.reissue_email)
+          assert_equal(DateTime.parse('2009-08-11T19:28:18-04:00'), certificate.start_at)
+          assert_equal(DateTime.parse('2009-08-20T00:59:16-04:00'), certificate.end_at)
+          assert_match(%r{/orders/422815/certificate\.xml$}, certificate.url)
+          assert_equal("-----BEGIN CERTIFICATE-----\nMIIDATCCAmqgAwIBAgICHwkwDQYJKoZIhvcNAQEEBQAwSzELMAkGA1UEBhMCVVMx\nFTATBgNVBAoTDEdlb1RydXN0IEluYzElMCMGA1UEAxMcR2VvVHJ1c3QgUHJlLVBy\nb2R1Y3Rpb24gQ0EgMTAeFw0wOTA4MTEyMzI4MThaFw0wOTA4MjAwNDU5MTZaMIHI\nMQswCQYDVQQGEwJVUzEbMBkGA1UEChMSc3J2MDIud2F2ZXBhdGguY29tMRMwEQYD\nVQQLEwpHVDAzMTIzMjc1MTEwLwYDVQQLEyhTZWUgd3d3Lmdlb3RydXN0LmNvbS9y\nZXNvdXJjZXMvY3BzIChjKTA5MTcwNQYDVQQLEy5Eb21haW4gQ29udHJvbCBWYWxp\nZGF0ZWQgLSBRdWlja1NTTCBQcmVtaXVtKFIpMRswGQYDVQQDExJzcnYwMi53YXZl\ncGF0aC5jb20wgZ8wDQYJKoZIhvcNAQEBBQADgY0AMIGJAoGBAOfnRzNL60aJdLL7\nSyJ7OFJPINg4yjLDLUJA7moeerN7QupUeJm68LHQ7juTRJ7lqkwTNK1hDRZuH7+6\nsM3ohFOjWv9D9hEWqR1tKAUBnhTJlTr8rYmvqbSNCWhUJZy53NqntiyDpg8kNOTM\nUVsY0cAn9e4vJHvh49t2AsMMAjtjAgMBAAGjdjB0MA4GA1UdDwEB/wQEAwIE8DBB\nBgNVHR8EOjA4MDagNKAyhjBodHRwOi8vdGVzdC1jcmwuZ2VvdHJ1c3QuY29tL2Ny\nbHMvcHJlcHJvZGNhMS5jcmwwHwYDVR0jBBgwFoAUSu1cZmsN8sJTHAsEc92rVZad\nv4cwDQYJKoZIhvcNAQEEBQADgYEAJyNUrcKjcbtVatngWw6KCCtogp1V2eEt9BJM\nUVsY0cAn9e4vJHvh49t2AsMMAjtjAgMBAAGjdjB0MA4GA1UdDwEB/wQEAwIE8DBB\nBgNVHR8EOjA4MDagNKAyhjBodHRwOi8vdGVzdC1jcmwuZ2VvdHJ1c3QuY29tL2Ny\ngrVniKk=\n-----END CERTIFICATE-----\n", certificate.certificate)
+          assert_equal("-----BEGIN CERTIFICATE-----\nMIIDIDCCAomgAwIBAgIENd70zzANBgkqhkiG9w0BAQUFADBOMQswCQYDVQQGEwJV\nUzEQMA4GA1UEChMHRXF1aWZheDEtMCsGA1UECxMkRXF1aWZheCBTZWN1cmUgQ2Vy\ndGlmaWNhdGUgQXV0aG9yaXR5MB4XDTk4MDgyMjE2NDE1MVoXDTE4MDgyMjE2NDE1\nMVowTjELMAkGA1UEBhMCVVMxEDAOBgNVBAoTB0VxdWlmYXgxLTArBgNVBAsTJEVx\ndWlmYXggU2VjdXJlIENlcnRpZmljYXRlIEF1dGhvcml0eTCBnzANBgkqhkiG9w0B\nAQEFAAOBjQAwgYkCgYEAwV2xWGcIYu6gmi0fCG2RFGiYCh7+2gRvE4RiIcPRfM6f\nBeC4AfBONOziipUEZKzxa1NfBbPLZ4C/QgKO/t0BCezhABRP/PvwDN1Dulsr4R+A\ncJkVV5MW8Q+XarfCaCMczE1ZMKxRHjuvK9buY0V7xdlfUNLjUA86iOe/FP3gx7kC\nAwEAAaOCAQkwggEFMHAGA1UdHwRpMGcwZaBjoGGkXzBdMQswCQYDVQQGEwJVUzEQ\nMA4GA1UEChMHRXF1aWZheDEtMCsGA1UECxMkRXF1aWZheCBTZWN1cmUgQ2VydGlm\naWNhdGUgQXV0aG9yaXR5MQ0wCwYDVQQDEwRDUkwxMBoGA1UdEAQTMBGBDzIwMTgw\nODIyMTY0MTUxWjALBgNVHQ8EBAMCAQYwHwYDVR0jBBgwFoAUSOZo+SvSspXXR9gj\nIBBPM5iQn9QwHQYDVR0OBBYEFEjmaPkr0rKV10fYIyAQTzOYkJ/UMAwGA1UdEwQF\nMAMBAf8wGgYJKoZIhvZ9B0EABA0wCxsFVjMuMGMDAgbAMA0GCSqGSIb3DQEBBQUA\nMA4GA1UEChMHRXF1aWZheDEtMCsGA1UECxMkRXF1aWZheCBTZWN1cmUgQ2VydGlm\naWNhdGUgQXV0aG9yaXR5MQ0wCwYDVQQDEwRDUkwxMBoGA1UdEAQTMBGBDzIwMTgw\n1voqZiegDfqnc1zqcPGUIWVEX/r87yloqaKHee9570+sB3c4\n-----END CERTIFICATE-----", certificate.ca_root)
+          assert !certificate.trial?
+        end
+      end
+      
+      should 'not raise a ResourceNotFound error, instead returning nil' do
+        managed_server_request :get, '/orders/999999999/certificate.xml', :response => Responses::InvalidOrderId do
+          assert_responds_without_exception(GeoCerts::ResourceNotFound, -90004) do
+            assert_nil GeoCerts::Certificate.find_by_order_id(999999999)
+          end
+        end
+      end
+      
+    end
+    
+    context 'reissue' do
+      
+      setup do
+        managed_server_request :get, '/orders.xml', :response => Responses::Order::All do
+          @order_id = GeoCerts::Order.all.first.id
+        end
+      end
+      
+      should 'return a GeoCerts::Certificate when successful' do
+        managed_server_request :get, "/orders/#{@order_id}/certificate.xml", :response => Responses::Certificate::Certificate do
+          managed_server_request :post, "/orders/422815/certificate/reissue.xml?order[csr][body]=testbody", :response => Responses::Certificate::Certificate do
+            assert_kind_of(GeoCerts::Certificate, GeoCerts::Certificate.find(@order_id).reissue!(GeoCerts::CSR.new(:body => 'testbody')))
+          end
+        end
+      end
+      
+      should 'raise an error with no CSR body provided' do
+        managed_server_request :get, "/orders/#{@order_id}/certificate.xml", :response => Responses::Certificate::Certificate do
+          managed_server_request :post, "/orders/#{@order_id}/certificate/reissue.xml?order[csr][body]=", :response => Responses::Certificate::MissingCSRBody do
+            assert_responds_with_exception(GeoCerts::UnprocessableEntity, -90010) do
+              GeoCerts::Certificate.find(@order_id).reissue!(GeoCerts::CSR.new(:body => nil))
+            end
+          end
+        end
+      end
+      
+    end
+    
+  end
+  
+end

data/test/integrations/event_test.rb

@@ -0,0 +1,167 @@
+require 'test_helper'
+
+class GeoCerts::EventTest < Test::Unit::TestCase
+  
+  context 'GeoCerts::Event (using the API)' do
+    
+    context 'all' do
+      
+      should 'return a collection of GeoCerts::Events' do
+        managed_server_request :get, '/events.xml', :response => Responses::Event::All do
+          events = GeoCerts::Event.all
+          assert_kind_of(GeoCerts::Collection, events)
+          assert events.all? { |event| event.kind_of?(GeoCerts::Event) }
+        end
+      end
+      
+      should 'return 2 events' do
+        exclusively_mocked_request :get, '/events.xml', :response => Responses::Event::All do
+          assert_equal(2, GeoCerts::Event.all.size)
+        end
+      end
+      
+      should 'properly populate the events' do
+        exclusively_mocked_request :get, '/events.xml', :response => Responses::Event::All do
+          event = GeoCerts::Event.all.first
+          assert_equal(795652,                                      event.id)
+          assert_equal(422800,                                      event.order_id)
+          assert_equal('Approver Confirmed',                        event.name)
+          assert_equal(DateTime.parse('2009-08-12T16:38:14-04:00'), event.created_at)
+        end
+      end
+      
+      should 'modify the queried window of time' do
+        managed_server_request :get, '/events.xml?start_at=2009-01-01T00:00:00+00:00&end_at=2009-01-02T00:00:00+00:00', :response => Responses::Event::All do
+          GeoCerts::Event.all(:start_at => DateTime.parse('2009-01-01T00:00:00Z'), :end_at => DateTime.parse('2009-01-02T00:00:00Z'))
+        end
+      end
+      
+    end
+    
+    context 'find' do
+      
+      setup do
+        managed_server_request :get, '/orders.xml', :response => Responses::Order::All do
+          @order_id = GeoCerts::Order.all.first.id
+        end
+      end
+      
+      should 'return a collection of GeoCerts::Events' do
+        managed_server_request :get, "/orders/#{@order_id}/events.xml", :response => Responses::Event::Order do
+          events = GeoCerts::Event.find(@order_id)
+          assert_kind_of(GeoCerts::Collection, events)
+          assert events.all? { |event| event.kind_of?(GeoCerts::Event) }
+        end
+      end
+      
+      should 'all reference the same order' do
+        managed_server_request :get, "/orders/#{@order_id}/events.xml", :response => Responses::Event::Order do
+          assert GeoCerts::Event.find(@order_id).all? { |event| event.order_id == @order_id }
+        end
+      end
+      
+      should 'return 2 events' do
+        exclusively_mocked_request :get, '/orders/422815/events.xml', :response => Responses::Event::Order do
+          assert_equal(2, GeoCerts::Event.find(422815).size)
+        end
+      end
+      
+      should 'properly populate the events' do
+        exclusively_mocked_request :get, '/orders/422815/events.xml', :response => Responses::Event::Order do
+          event = GeoCerts::Event.find(422815).first
+          assert_equal(795652,                                      event.id)
+          assert_equal(422815,                                      event.order_id)
+          assert_equal('Approver Confirmed',                        event.name)
+          assert_equal(DateTime.parse('2009-08-12T16:38:14-04:00'), event.created_at)
+        end
+      end
+      
+      should 'be accessible via a GeoCerts::Order' do
+        exclusively_mocked_request :get, "/orders/422815.xml", :response => Responses::Order::Order do
+          exclusively_mocked_request :get, '/orders/422815/events.xml', :response => Responses::Event::Order do
+            assert_kind_of(GeoCerts::Event, GeoCerts::Order.find(422815).events.first)
+          end
+        end
+      end
+      
+      should 'modify the queried window of time' do
+        exclusively_mocked_request :get, '/orders/422815/events.xml?start_at=2009-01-01T00:00:00+00:00&end_at=2009-01-02T00:00:00+00:00', :response => Responses::Certificate::All do
+          GeoCerts::Event.find(422815, :start_at => DateTime.parse('2009-01-01T00:00:00Z'), :end_at => DateTime.parse('2009-01-02T00:00:00Z'))
+        end
+      end
+      
+      should 'raise a GeoCerts::ResourceNotFound error' do
+        managed_server_request :get, '/orders/422815/events.xml', :response => Responses::InvalidOrderId do
+          assert_responds_with_exception(GeoCerts::ResourceNotFound, -90004) do
+            GeoCerts::Event.find(422815)
+          end
+        end
+      end
+      
+    end
+    
+    context 'find_by_order_id' do
+      
+      setup do
+        managed_server_request :get, '/orders.xml', :response => Responses::Order::All do
+          @order_id = GeoCerts::Order.all.first.id
+        end
+      end
+      
+      should 'return a collection of GeoCerts::Events' do
+        managed_server_request :get, "/orders/#{@order_id}/events.xml", :response => Responses::Event::Order do
+          events = GeoCerts::Event.find_by_order_id(@order_id)
+          assert_kind_of(GeoCerts::Collection, events)
+          assert events.all? { |event| event.kind_of?(GeoCerts::Event) }
+        end
+      end
+      
+      should 'all reference the same order' do
+        managed_server_request :get, "/orders/#{@order_id}/events.xml", :response => Responses::Event::Order do
+          assert GeoCerts::Event.find_by_order_id(@order_id).all? { |event| event.order_id == @order_id }
+        end
+      end
+      
+      should 'return 2 events' do
+        exclusively_mocked_request :get, '/orders/422815/events.xml', :response => Responses::Event::Order do
+          assert_equal(2, GeoCerts::Event.find_by_order_id(422815).size)
+        end
+      end
+      
+      should 'properly populate the events' do
+        exclusively_mocked_request :get, '/orders/422815/events.xml', :response => Responses::Event::Order do
+          event = GeoCerts::Event.find_by_order_id(422815).first
+          assert_equal(795652,                                      event.id)
+          assert_equal(422815,                                      event.order_id)
+          assert_equal('Approver Confirmed',                        event.name)
+          assert_equal(DateTime.parse('2009-08-12T16:38:14-04:00'), event.created_at)
+        end
+      end
+      
+      should 'be accessible via a GeoCerts::Order' do
+        exclusively_mocked_request :get, "/orders/422815.xml", :response => Responses::Order::Order do
+          exclusively_mocked_request :get, '/orders/422815/events.xml', :response => Responses::Event::Order do
+            assert_kind_of(GeoCerts::Event, GeoCerts::Order.find(422815).events.first)
+          end
+        end
+      end
+      
+      should 'modify the queried window of time' do
+        exclusively_mocked_request :get, '/orders/422815/events.xml?start_at=2009-01-01T00:00:00+00:00&end_at=2009-01-02T00:00:00+00:00', :response => Responses::Certificate::All do
+          GeoCerts::Event.find_by_order_id(422815, :start_at => DateTime.parse('2009-01-01T00:00:00Z'), :end_at => DateTime.parse('2009-01-02T00:00:00Z'))
+        end
+      end
+      
+      should 'not raise a GeoCerts::ResourceNotFound error, instead returning an empty set' do
+        managed_server_request :get, '/orders/422815/events.xml', :response => Responses::InvalidOrderId do
+          assert_responds_without_exception(GeoCerts::ResourceNotFound) do
+            assert_equal([], GeoCerts::Event.find_by_order_id(422815))
+          end
+        end
+      end
+      
+    end
+    
+  end
+  
+end