dynamics_crm 0.1.0

data/spec/fixtures/retrieve_multiple_result.xml

@@ -0,0 +1,67 @@
+<?xml version="1.0"?>
+<s:Envelope xmlns:s="http://www.w3.org/2003/05/soap-envelope" xmlns:a="http://www.w3.org/2005/08/addressing" xmlns:u="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">
+<s:Header>
+    <a:Action s:mustUnderstand="1">http://schemas.microsoft.com/xrm/2011/Contracts/Services/IOrganizationService/RetrieveMultipleResponse</a:Action>
+    <a:RelatesTo>urn:uuid:5a111cc5-6db9-4b9d-8f90-9479732fbac4</a:RelatesTo>
+    <ActivityId xmlns="http://schemas.microsoft.com/2004/09/ServiceModel/Diagnostics" CorrelationId="bbb2e7e2-7bc1-453a-b08c-1fa7a52aac7b">00000000-0000-0000-0000-000000000000</ActivityId>
+    <o:Security xmlns:o="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd" s:mustUnderstand="1">
+    <u:Timestamp u:Id="_0">
+        <u:Created>2014-02-18T07:23:45.031Z</u:Created>
+        <u:Expires>2014-02-18T07:28:45.031Z</u:Expires>
+    </u:Timestamp>
+</o:Security>
+</s:Header>
+<s:Body>
+  <RetrieveMultipleResponse xmlns="http://schemas.microsoft.com/xrm/2011/Contracts/Services">
+    <RetrieveMultipleResult xmlns:b="http://schemas.microsoft.com/xrm/2011/Contracts" xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
+      <b:Entities>
+        <b:Entity>
+            <b:Attributes xmlns:c="http://schemas.datacontract.org/2004/07/System.Collections.Generic">
+            <b:KeyValuePairOfstringanyType>
+                <c:key>accountid</c:key>
+                <c:value xmlns:d="http://schemas.microsoft.com/2003/10/Serialization/" i:type="d:guid">7bf2e032-ad92-e311-9752-6c3be5a87df0</c:value>
+            </b:KeyValuePairOfstringanyType>
+            </b:Attributes>
+            <b:EntityState i:nil="true"/>
+            <b:FormattedValues xmlns:c="http://schemas.datacontract.org/2004/07/System.Collections.Generic"/>
+            <b:Id>7bf2e032-ad92-e311-9752-6c3be5a87df0</b:Id>
+            <b:LogicalName>account</b:LogicalName>
+            <b:RelatedEntities xmlns:c="http://schemas.datacontract.org/2004/07/System.Collections.Generic"/>
+        </b:Entity>
+        <b:Entity>
+            <b:Attributes xmlns:c="http://schemas.datacontract.org/2004/07/System.Collections.Generic">
+                <b:KeyValuePairOfstringanyType>
+                    <c:key>accountid</c:key>
+                    <c:value xmlns:d="http://schemas.microsoft.com/2003/10/Serialization/" i:type="d:guid">dbe9d7c9-2c98-e311-9752-6c3be5a87df0</c:value>
+                </b:KeyValuePairOfstringanyType>
+            </b:Attributes>
+            <b:EntityState i:nil="true"/>
+            <b:FormattedValues xmlns:c="http://schemas.datacontract.org/2004/07/System.Collections.Generic"/>
+            <b:Id>dbe9d7c9-2c98-e311-9752-6c3be5a87df0</b:Id>
+            <b:LogicalName>account</b:LogicalName>
+            <b:RelatedEntities xmlns:c="http://schemas.datacontract.org/2004/07/System.Collections.Generic"/>
+        </b:Entity>
+        <b:Entity>
+            <b:Attributes xmlns:c="http://schemas.datacontract.org/2004/07/System.Collections.Generic">
+                <b:KeyValuePairOfstringanyType>
+                    <c:key>accountid</c:key>
+                    <c:value xmlns:d="http://schemas.microsoft.com/2003/10/Serialization/" i:type="d:guid">8ff0325c-a592-e311-b7f3-6c3be5a8a0c8</c:value>
+                </b:KeyValuePairOfstringanyType>
+            </b:Attributes>
+            <b:EntityState i:nil="true"/>
+            <b:FormattedValues xmlns:c="http://schemas.datacontract.org/2004/07/System.Collections.Generic"/>
+            <b:Id>8ff0325c-a592-e311-b7f3-6c3be5a8a0c8</b:Id>
+            <b:LogicalName>account</b:LogicalName>
+            <b:RelatedEntities xmlns:c="http://schemas.datacontract.org/2004/07/System.Collections.Generic"/>
+        </b:Entity>
+      </b:Entities>
+      <b:EntityName>account</b:EntityName>
+      <b:MinActiveRowVersion>-1</b:MinActiveRowVersion>
+      <b:MoreRecords>false</b:MoreRecords>
+      <b:PagingCookie>&lt;cookie page="1"&gt;&lt;accountid last="{BC73E579-2D98-E311-AD92-6C3BE5A8AD70}" first="{7BF2E032-AD92-E311-9752-6C3BE5A87DF0}" /&gt;&lt;/cookie&gt;</b:PagingCookie>
+      <b:TotalRecordCount>-1</b:TotalRecordCount>
+      <b:TotalRecordCountLimitExceeded>false</b:TotalRecordCountLimitExceeded>
+    </RetrieveMultipleResult>
+  </RetrieveMultipleResponse>
+</s:Body>
+</s:Envelope>

data/spec/fixtures/sender_fault.xml

@@ -0,0 +1,34 @@
+<?xml version="1.0"?>
+<s:Envelope xmlns:s="http://www.w3.org/2003/05/soap-envelope" xmlns:a="http://www.w3.org/2005/08/addressing" xmlns:u="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">
+<s:Header>
+    <a:Action s:mustUnderstand="1">http://schemas.microsoft.com/xrm/2011/Contracts/Services/IOrganizationService/UpdateOrganizationServiceFaultFault</a:Action>
+    <a:RelatesTo>urn:uuid:372eeb52-c480-41c0-888e-75d7e9a8ef07</a:RelatesTo>
+    <ActivityId xmlns="http://schemas.microsoft.com/2004/09/ServiceModel/Diagnostics" CorrelationId="8e83ee2a-cdf3-46fd-9547-eaeac43cf9c8">00000000-0000-0000-0000-000000000000</ActivityId>
+    <o:Security xmlns:o="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd" s:mustUnderstand="1">
+    <u:Timestamp u:Id="_0">
+        <u:Created>2014-02-17T23:44:47.657Z</u:Created>
+        <u:Expires>2014-02-17T23:49:47.657Z</u:Expires>
+    </u:Timestamp>
+</o:Security>
+</s:Header>
+<s:Body>
+    <s:Fault>
+        <s:Code>
+            <s:Value>s:Sender</s:Value>
+        </s:Code>
+        <s:Reason>
+            <s:Text xml:lang="en-US">'account' entity doesn't contain attribute with Name = 'ticketsymbol'.</s:Text>
+        </s:Reason>
+        <s:Detail>
+            <OrganizationServiceFault xmlns="http://schemas.microsoft.com/xrm/2011/Contracts" xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
+                <ErrorCode>-2147217149</ErrorCode>
+                <ErrorDetails xmlns:b="http://schemas.datacontract.org/2004/07/System.Collections.Generic"/>
+                <Message>'account' entity doesn't contain attribute with Name = 'ticketsymbol'.</Message>
+                <Timestamp>2014-02-17T23:44:47.6574981Z</Timestamp>
+                <InnerFault i:nil="true"/>
+                <TraceText i:nil="true"/>
+            </OrganizationServiceFault>
+    </s:Detail>
+</s:Fault>
+</s:Body>
+</s:Envelope>

data/spec/fixtures/update_response.xml

@@ -0,0 +1,16 @@
+<s:Envelope xmlns:a="http://www.w3.org/2005/08/addressing" xmlns:s="http://www.w3.org/2003/05/soap-envelope" xmlns:u="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">
+	<s:Header>
+		<a:Action s:mustUnderstand="1">http://schemas.microsoft.com/xrm/2011/Contracts/Services/IOrganizationService/UpdateResponse</a:Action>
+		<a:RelatesTo>urn:uuid:1599ecf4-1cce-49fc-b4a1-ebc7b64db6fa</a:RelatesTo>
+		<ActivityId CorrelationId="57d078bd-4b8f-4278-8283-c0928e37a773" xmlns="http://schemas.microsoft.com/2004/09/ServiceModel/Diagnostics">00000000-0000-0000-0000-000000000000</ActivityId>
+		<o:Security s:mustUnderstand="1" xmlns:o="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">
+			<u:Timestamp u:Id="_0">
+				<u:Created>2014-02-28T20:24:26.195Z</u:Created>
+				<u:Expires>2014-02-28T20:29:26.195Z</u:Expires>
+			</u:Timestamp>
+		</o:Security>
+	</s:Header>
+	<s:Body>
+		<UpdateResponse xmlns="http://schemas.microsoft.com/xrm/2011/Contracts/Services"/>
+	</s:Body>
+</s:Envelope>

data/spec/fixtures/who_am_i_result.xml

@@ -0,0 +1,35 @@
+<?xml version="1.0"?>
+<s:Envelope xmlns:s="http://www.w3.org/2003/05/soap-envelope" xmlns:a="http://www.w3.org/2005/08/addressing" xmlns:u="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">
+<s:Header>
+    <a:Action s:mustUnderstand="1">http://schemas.microsoft.com/xrm/2011/Contracts/Services/IOrganizationService/ExecuteResponse</a:Action>
+    <a:RelatesTo>urn:uuid:71c49726-deb9-40a4-ba6e-1696ee284004</a:RelatesTo>
+    <ActivityId xmlns="http://schemas.microsoft.com/2004/09/ServiceModel/Diagnostics" CorrelationId="fef27b87-9ea7-4906-88cb-ae88f088a138">00000000-0000-0000-0000-000000000000</ActivityId>
+    <o:Security xmlns:o="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd" s:mustUnderstand="1">
+    <u:Timestamp u:Id="_0">
+        <u:Created>2014-02-18T00:09:32.062Z</u:Created>
+        <u:Expires>2014-02-18T00:14:32.062Z</u:Expires>
+    </u:Timestamp>
+</o:Security>
+</s:Header>
+<s:Body>
+    <ExecuteResponse xmlns="http://schemas.microsoft.com/xrm/2011/Contracts/Services">
+    <ExecuteResult xmlns:b="http://schemas.microsoft.com/xrm/2011/Contracts" xmlns:i="http://www.w3.org/2001/XMLSchema-instance" xmlns:c="http://schemas.microsoft.com/crm/2011/Contracts" i:type="c:WhoAmIResponse">
+    <b:ResponseName>WhoAmI</b:ResponseName>
+    <b:Results xmlns:d="http://schemas.datacontract.org/2004/07/System.Collections.Generic">
+    <b:KeyValuePairOfstringanyType>
+        <d:key>UserId</d:key>
+        <d:value xmlns:e="http://schemas.microsoft.com/2003/10/Serialization/" i:type="e:guid">1bfa3886-df7e-468c-8435-b5adfb0441ed</d:value>
+    </b:KeyValuePairOfstringanyType>
+    <b:KeyValuePairOfstringanyType>
+        <d:key>BusinessUnitId</d:key>
+        <d:value xmlns:e="http://schemas.microsoft.com/2003/10/Serialization/" i:type="e:guid">4e87d619-838a-e311-89a7-6c3be5a80184</d:value>
+    </b:KeyValuePairOfstringanyType>
+    <b:KeyValuePairOfstringanyType>
+        <d:key>OrganizationId</d:key>
+        <d:value xmlns:e="http://schemas.microsoft.com/2003/10/Serialization/" i:type="e:guid">0140d597-e270-494a-89e1-bd0b43774e50</d:value>
+    </b:KeyValuePairOfstringanyType>
+</b:Results>
+</ExecuteResult>
+</ExecuteResponse>
+</s:Body>
+</s:Envelope>

data/spec/lib/client_spec.rb

@@ -0,0 +1,230 @@
+require 'spec_helper'
+
+describe DynamicsCRM::Client do
+  let(:subject) { DynamicsCRM::Client.new(organization_name: "tinderboxdev")}
+
+  describe "#authenticate" do
+    it "authenticates with username and password" do
+
+      subject.stub(:post).and_return(fixture("request_security_token_response"))
+
+      subject.authenticate('testing', 'password')
+
+      subject.instance_variable_get("@security_token0").should start_with("tMFpDJbJHcZnRVuby5cYmRbCJo2OgOFLEOrUHj+wz")
+      subject.instance_variable_get("@security_token1").should start_with("CX7BFgRnW75tE6GiuRICjeVDV+6q4KDMKLyKmKe9A8U")
+      subject.instance_variable_get("@key_identifier").should == "D3xjUG3HGaQuKyuGdTWuf6547Lo="
+    end
+
+    it "raises arugment error when no parameters are passed" do
+      expect { subject.authenticate() }.to raise_error(ArgumentError)
+    end
+
+    # This is only method in this suite that actually sends a POST message to Dynamics.
+    # This covers the post() and fault parsing logic.
+    it "fails to authenticate with invalid credentials" do
+      begin
+        subject.authenticate('testuser@orgnam.onmicrosoft.com', 'qwerty')
+        fail("Expected Fault to be raised")
+      rescue DynamicsCRM::XML::Fault => f
+        f.code.should == "S:Sender"
+        f.subcode.should == "wst:FailedAuthentication"
+        f.reason.should == "Authentication Failure"
+      end
+    end
+  end
+
+  describe "#retrieve" do
+    it "retrieves object by id" do
+
+      subject.stub(:post).and_return(fixture("retrieve_account_all_columns"))
+
+      result = subject.retrieve("account", "93f0325c-a592-e311-b7f3-6c3be5a8a0c8")
+
+      result.should be_a(DynamicsCRM::Response::RetrieveResult)
+      result.type.should == "account"
+      result.id.should == "93f0325c-a592-e311-b7f3-6c3be5a8a0c8"
+      result.name.should == "Adventure Works (sample)"
+    end
+  end
+
+  describe "#retrieve_multiple" do
+    it "retrieves multiple entities by criteria" do
+
+      subject.stub(:post).and_return(fixture("retrieve_multiple_result"))
+
+      result = subject.retrieve_multiple("account", ["name", "Equal", "Test Account"], columns=[])
+
+      result.should be_a(DynamicsCRM::Response::RetrieveMultipleResult)
+      result.entities.size.should == 3
+      entities = result.entities
+
+      entities[0].logical_name == "account"
+      entities[0].id.should == "7bf2e032-ad92-e311-9752-6c3be5a87df0"
+      entities[0].attributes["accountid"].should == "7bf2e032-ad92-e311-9752-6c3be5a87df0"
+
+      entities[1].attributes["accountid"].should == "dbe9d7c9-2c98-e311-9752-6c3be5a87df0"
+      entities[2].attributes["accountid"].should == "8ff0325c-a592-e311-b7f3-6c3be5a8a0c8"
+    end
+  end
+
+  describe "#fetch" do
+    it "uses FetchXML to retrieve multiple" do
+
+      subject.stub(:post).and_return(fixture("fetch_xml_response"))
+
+      xml = %Q{
+        <fetch version="1.0" output-format="xml-platform" mapping="logical" distinct="true">
+          <entity name="new_tinderboxdocument">
+            <attribute name="new_tinderboxdocumentid" />
+            <attribute name="new_name" />
+            <attribute name="createdon" />
+            <order attribute="new_name" descending="false" />
+            <link-entity name="systemuser" from="systemuserid" to="createdby" alias="aa">
+              <link-entity name="account" from="createdby" to="systemuserid" alias="ab">
+                <link-entity name="transactioncurrency" from="transactioncurrencyid" to="transactioncurrencyid" alias="ac"></link-entity>
+              </link-entity>
+            </link-entity>
+          </entity>
+        </fetch>
+      }
+
+      result = subject.fetch(xml)
+
+      result.should be_a(DynamicsCRM::Response::ExecuteResult)
+
+      result["EntityCollection"].size.should == 3
+
+      entity = result["EntityCollection"].first
+      entity.id.should == "9c27cf91-ada3-e311-b64f-6c3be5a87df0"
+      entity.logical_name.should == "new_tinderboxdocument"
+      entity.attributes["new_tinderboxdocumentid"].should == entity.id
+      entity.attributes["new_name"].should == "6 orders of Product SKU JJ202"
+    end
+  end
+
+
+  describe "#create" do
+    it "creates new entity with parameters" do
+
+      subject.stub(:post).and_return(fixture("create_response"))
+
+      result = subject.create("account", {name: "Adventure Works"})
+
+      result.should be_a(DynamicsCRM::Response::CreateResult)
+      result.id.should == "c4944f99-b5a0-e311-b64f-6c3be5a87df0"
+      result.Id.should == "c4944f99-b5a0-e311-b64f-6c3be5a87df0"
+    end
+  end
+
+  describe "#update" do
+    it "updates entity by id" do
+
+      subject.stub(:post).and_return(fixture("update_response"))
+
+      result = subject.update("account", "c4944f99-b5a0-e311-b64f-6c3be5a87df0", {name: "Adventure Park"})
+
+      result.should be_a(DynamicsCRM::Response::UpdateResponse)
+    end
+  end
+
+  describe "#delete" do
+    it "deletes entity by id" do
+
+      subject.stub(:post).and_return(fixture("update_response"))
+
+      result = subject.delete("account", "c4944f99-b5a0-e311-b64f-6c3be5a87df0")
+
+      result.should be_a(DynamicsCRM::Response::DeleteResponse)
+    end
+  end
+
+  # Metadata Requests
+
+  describe "#retrieve_all_entities" do
+    it "retrieve entity list" do
+
+      subject.stub(:post).and_return(fixture("retrieve_all_entities"))
+
+      result = subject.retrieve_all_entities
+
+      result.should be_a(DynamicsCRM::Metadata::RetrieveAllEntitiesResponse)
+      result.entities.should_not be_nil
+
+      entities = result.entities
+      entities.size.should == 3
+
+      entities[0].LogicalName.should == "opportunity"
+      entities[1].LogicalName.should == "new_tinderboxdocument"
+      entities[2].LogicalName.should == "new_tinderboxcontent"
+    end
+  end
+
+  describe "#retrieve_entity" do
+    it "retrieve entity metadata" do
+
+      subject.stub(:post).and_return(fixture("retrieve_entity_response"))
+
+      result = subject.retrieve_entity("opportunity")
+
+      result.should be_a(DynamicsCRM::Metadata::RetrieveEntityResponse)
+      result.entity.should_not be_nil
+      entity = result.entity
+      entity.should be_a(DynamicsCRM::Metadata::EntityMetadata)
+
+      entity.LogicalName.should == "opportunity"
+      entity.PrimaryIdAttribute.should == "opportunityid"
+      entity.PrimaryNameAttribute.should == "name"
+    end
+  end
+
+  describe "#retrieve_attribute" do
+    it "retrieve attribute metadata" do
+
+      subject.stub(:post).and_return(fixture("retrieve_attribute_response"))
+
+      result = subject.retrieve_attribute("new_tinderboxdocument", "new_value")
+
+      result.should be_a(DynamicsCRM::Metadata::RetrieveAttributeResponse)
+      result.attribute.should_not be_nil
+      attribute = result.attribute
+
+      attribute.EntityLogicalName.should == "new_tinderboxdocument"
+      attribute.LogicalName.should == "new_value"
+    end
+  end
+
+  context "many-to-many relationships" do
+    let(:contacts) {
+      [ DynamicsCRM::XML::EntityReference.new("contact", "53291AAB-4A9A-E311-B097-6C3BE5A8DD60"),
+        DynamicsCRM::XML::EntityReference.new("contact", "3DEDA796-4A9A-E311-B097-6C3BE5A8DD60")]
+    }
+
+    describe "#associate" do
+      it "associates contacts with account" do
+        subject.stub(:post).and_return(fixture("associate_response"))
+
+        subject.associate("account", "7BF2E032-AD92-E311-9752-6C3BE5A87DF0", "contact_customer_accounts", contacts)
+      end
+    end
+
+    describe "#disassociate" do
+      it "disassociates contacts with accounts" do
+        subject.stub(:post).and_return(fixture("disassociate_response"))
+
+        subject.disassociate("account", "7BF2E032-AD92-E311-9752-6C3BE5A87DF0", "contact_customer_accounts", contacts)
+      end
+    end
+  end
+
+  describe "#who_am_i" do
+    it "returns user information" do
+      subject.stub(:post).and_return(fixture("who_am_i_result"))
+
+      response = subject.who_am_i
+      response.UserId.should == "1bfa3886-df7e-468c-8435-b5adfb0441ed"
+      response.BusinessUnitId.should == "4e87d619-838a-e311-89a7-6c3be5a80184"
+      response.OrganizationId.should == "0140d597-e270-494a-89e1-bd0b43774e50"
+    end
+  end
+
+end

data/spec/lib/metadata/entity_metadata_spec.rb

@@ -0,0 +1,24 @@
+require 'spec_helper'
+
+describe DynamicsCRM::Metadata::EntityMetadata do
+
+  describe 'initialization' do
+    subject {
+      doc = REXML::Document.new(fixture("retrieve_all_entities"))
+      entity = doc.get_elements("//d:EntityMetadata").first
+      DynamicsCRM::Metadata::EntityMetadata.new(entity)
+    }
+
+    context "parse attributes according to their type" do
+      it { subject.MetadataId.should == "30b0cd7e-0081-42e1-9a48-688442277fae" }
+      it { subject.LogicalName.should == "opportunity" }
+      it { subject.ObjectTypeCode.should == "3" }
+      it { subject.OwnershipType.should == "UserOwned" }
+      it { subject.PrimaryIdAttribute.should == "opportunityid" }
+      it { subject.PrimaryNameAttribute.should == "name" }
+      it { subject.attributes.should == [] }
+    end
+
+  end
+
+end

data/spec/lib/metadata/retrieve_all_entities_response_spec.rb

@@ -0,0 +1,26 @@
+require 'spec_helper'
+
+describe DynamicsCRM::Metadata::RetrieveAllEntitiesResponse do
+
+  describe 'retrieve_all_entities' do
+    subject {
+      file = fixture("retrieve_all_entities")
+      DynamicsCRM::Metadata::RetrieveAllEntitiesResponse.new(file)
+    }
+
+    context "parse execute result" do
+      let(:opportunity) { subject.entities.first }
+      it { subject.ResponseName.should == "RetrieveAllEntities" }
+      it { subject.entities.size.should == 3 }
+      it { opportunity.MetadataId.should == "30b0cd7e-0081-42e1-9a48-688442277fae" }
+      it { opportunity.LogicalName.should == "opportunity" }
+      it { opportunity.ObjectTypeCode.should == "3" }
+      it { opportunity.OwnershipType.should == "UserOwned" }
+      it { opportunity.PrimaryIdAttribute.should == "opportunityid" }
+      it { opportunity.PrimaryNameAttribute.should == "name" }
+
+    end
+
+  end
+
+end

data/spec/lib/metadata/retrieve_attribute_response_spec.rb

@@ -0,0 +1,65 @@
+require 'spec_helper'
+
+describe DynamicsCRM::Metadata::RetrieveAttributeResponse do
+
+  describe 'retrieve_attribute_response' do
+    subject {
+      file = fixture("retrieve_attribute_response")
+      DynamicsCRM::Metadata::RetrieveAttributeResponse.new(file)
+    }
+
+    context "parse execute result" do
+      it { subject.ResponseName.should == "RetrieveAttribute" }
+      it { subject.attribute.MetadataId.should == "79194881-c699-e311-9752-6c3be5a87df0" }
+      it { subject.attribute.AttributeType.should == "Money" }
+      it { subject.attribute.LogicalName.should == "new_value" }
+      it { subject.attribute.IsPrimaryId.should == "false" }
+      it { subject.attribute.AttributeTypeName.Value.should == "MoneyType" }
+      it { subject.attribute.DisplayName.LocalizedLabels.LocalizedLabel.Label.should == "Value" }
+    end
+
+  end
+
+  describe '#picklist_attribute_metadata' do
+    subject {
+      file = fixture("retrieve_attribute_picklist_response")
+      DynamicsCRM::Metadata::RetrieveAttributeResponse.new(file)
+    }
+
+    context "parse execute result" do
+      it { subject.ResponseName.should == "RetrieveAttribute" }
+      it { subject.attribute.MetadataId.should == "ae00233e-70c0-4a1f-803f-03ff723e5440" }
+      it { subject.attribute.AttributeType.should == "Picklist" }
+      it { subject.attribute.LogicalName.should == "industrycode" }
+      it { subject.attribute.EntityLogicalName.should == "account" }
+      it { subject.attribute.AttributeTypeName.Value.should == "PicklistType" }
+      it { subject.attribute.picklist_options.should be_a(Hash) }
+      it {
+        subject.attribute.picklist_options.should have_key(1)
+        subject.attribute.picklist_options[1].should == "Accounting"
+      }
+      it {
+        subject.attribute.picklist_options.should have_key(33)
+        subject.attribute.picklist_options[33].should == "Wholesale"
+      }
+    end
+
+  end
+
+  describe '#identifier_attribute_metadata' do
+    subject {
+      file = fixture("retrieve_attribute_identifier_response")
+      DynamicsCRM::Metadata::RetrieveAttributeResponse.new(file)
+    }
+
+    context "parse execute result" do
+      it { subject.ResponseName.should == "RetrieveAttribute" }
+      it { subject.attribute.MetadataId.should == "f8cd5db9-cee8-4845-8cdd-cd4f504957e7" }
+      it { subject.attribute.AttributeType.should == "Uniqueidentifier" }
+      it { subject.attribute.LogicalName.should == "accountid" }
+      it { subject.attribute.EntityLogicalName.should == "account" }
+    end
+
+  end
+
+end

data/spec/lib/metadata/retrieve_entity_response_spec.rb

@@ -0,0 +1,24 @@
+require 'spec_helper'
+
+describe DynamicsCRM::Metadata::RetrieveEntityResponse do
+
+  describe 'retrieve_entity_response' do
+    subject {
+      file = fixture("retrieve_entity_response")
+      DynamicsCRM::Metadata::RetrieveEntityResponse.new(file)
+    }
+
+    context "parse execute result" do
+      it { subject.ResponseName.should == "RetrieveEntity" }
+      it { subject.entity.MetadataId.should == "30b0cd7e-0081-42e1-9a48-688442277fae" }
+      it { subject.entity.LogicalName.should == "opportunity" }
+      it { subject.entity.ObjectTypeCode.should == "3" }
+      it { subject.entity.OwnershipType.should == "UserOwned" }
+      it { subject.entity.PrimaryIdAttribute.should == "opportunityid" }
+      it { subject.entity.PrimaryNameAttribute.should == "name" }
+
+    end
+
+  end
+
+end

data/spec/lib/response/execute_result_spec.rb

@@ -0,0 +1,20 @@
+require 'spec_helper'
+
+describe DynamicsCRM::Response::ExecuteResult do
+
+  describe 'who_am_i' do
+    subject {
+      file = fixture("who_am_i_result")
+      DynamicsCRM::Response::ExecuteResult.new(file)
+    }
+
+    context "parse execute result" do
+      it { subject.ResponseName.should == "WhoAmI" }
+      it { subject.UserId.should == "1bfa3886-df7e-468c-8435-b5adfb0441ed" }
+      it { subject.BusinessUnitId.should == "4e87d619-838a-e311-89a7-6c3be5a80184" }
+      it { subject.OrganizationId.should == "0140d597-e270-494a-89e1-bd0b43774e50" }
+    end
+
+  end
+
+end

data/spec/lib/response/retrieve_multiple_spec.rb

@@ -0,0 +1,34 @@
+require 'spec_helper'
+
+describe DynamicsCRM::Response::RetrieveMultipleResult do
+
+  describe 'initialization' do
+    subject {
+      xml = fixture("retrieve_multiple_result")
+      DynamicsCRM::Response::RetrieveMultipleResult.new(xml)
+    }
+
+    context "parse attributes according to their type" do
+
+      it { subject.EntityName.should == "account" }
+      it { subject.MinActiveRowVersion.should == -1}
+      it { subject.MoreRecords.should == false }
+      it { subject.PagingCookie.should include("cookie page=") }
+      it { subject.TotalRecordCount.should == -1 }
+      it { subject.TotalRecordCountLimitExceeded.should == false }
+      it { subject.entities.size.should == 3 }
+
+      it { subject.entities.first.to_hash.should == {
+              :attributes => {"accountid"=>"7bf2e032-ad92-e311-9752-6c3be5a87df0"},
+              :entity_state => nil,
+              :formatted_values => nil,
+              :id => "7bf2e032-ad92-e311-9752-6c3be5a87df0",
+              :logical_name => "account",
+              :related_entities => nil}
+         }
+
+    end
+
+  end
+
+end

data/spec/lib/response/retrieve_result_spec.rb

@@ -0,0 +1,67 @@
+require 'spec_helper'
+
+describe DynamicsCRM::Response::RetrieveResult do
+
+  describe 'initialization' do
+    subject {
+      file = fixture("retrieve_account_all_columns")
+      DynamicsCRM::Response::RetrieveResult.new(file)
+    }
+
+    context "parse attributes according to their type" do
+
+      it { subject.id.should == "93f0325c-a592-e311-b7f3-6c3be5a8a0c8" }
+      it { subject.type.should == "account" }
+      it { subject.exchangerate.should == 1.0 }    # decimal
+      it { subject.modifiedon.should be_a(Time) }  # datetime
+      it { subject.territorycode.should  == 1}     # OptionType
+      it { subject.importsequencenumber.should  == 1}     # int
+      it { subject.donotemail.should == false}     # boolean
+      it { subject.revenue.should == 60000.00 }    # Money
+      it { subject.modifiedby.should == {
+            "Id" => "1bfa3886-df7e-468c-8435-b5adfb0441ed",
+            "LogicalName" => "systemuser",
+            "Name" => "Joe Heth"} }
+
+      it { subject["id"].should == "93f0325c-a592-e311-b7f3-6c3be5a8a0c8" }
+      it { subject["type"].should == "account" }
+    end
+
+    context "parses Attributes list" do
+      it { subject.name.should == "Adventure Works (sample)" }
+      it { subject.websiteurl.should == "http://www.adventure-works.com/" }
+      it { subject.address1_city.should == "Santa Cruz" }
+
+      it { subject["name"].should == "Adventure Works (sample)" }
+      it { subject["websiteurl"].should == "http://www.adventure-works.com/" }
+      it { subject["address1_city"].should == "Santa Cruz" }
+    end
+
+    context "assignment" do
+      it "should assign through hash index" do
+        subject[:nothing].should be_nil
+        subject[:nothing] = "New Value"
+        subject[:nothing].should == "New Value"
+        subject.nothing.should == "New Value"
+        subject.Nothing.should == "New Value"
+      end
+    end
+
+    context "respond to hash methods" do
+
+      it "should has_key?" do
+        subject.has_key?("name").should be_true
+        subject.has_key?("type").should be_true
+        subject.has_key?("nothing").should be_false
+      end
+
+      it "should return keys" do
+        subject.keys.should include("type", "id", "accountid", "address1_city",
+          "address1_stateorprovince", "address1_postalcode", "websiteurl", "name",
+          "address1_line1", "address1_country", "address1_composite")
+      end
+    end
+
+  end
+
+end