clearsaleID 1.0.5

data/spec/fixtures/vcr_cassettes/clearsale_get_order_status_missing.yml

@@ -0,0 +1,58 @@
+---
+- !ruby/struct:VCR::HTTPInteraction
+  request: !ruby/struct:VCR::Request
+    method: :post
+    uri: http://homologacao.clearsale.com.br:80/Integracaov2/Service.asmx
+    body: <?xml version="1.0" encoding="UTF-8"?><soap:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+      xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:int="http://www.clearsale.com.br/integration"
+      xmlns:soap="http://www.w3.org/2003/05/soap-envelope"><soap:Body><int:GetOrderStatus><int:orderID>1234567890</int:orderID><int:entityCode>0E6F0C82-FC05-4AA7-86D4-EBBFC0FDC41A</int:entityCode></int:GetOrderStatus></soap:Body></soap:Envelope>
+    headers:
+      soapaction:
+      - '"http://www.clearsale.com.br/integration/GetOrderStatus"'
+      content-type:
+      - text/xml;charset=UTF-8
+      content-length:
+      - '551'
+  response: !ruby/struct:VCR::Response
+    status: !ruby/struct:VCR::ResponseStatus
+      code: 200
+      message: !binary |-
+        T0s=
+    headers:
+      !binary "ZGF0ZQ==":
+      - !binary |-
+        TW9uLCAwOSBBcHIgMjAxMiAxOToxMjoyNyBHTVQ=
+      !binary "c2VydmVy":
+      - !binary |-
+        TWljcm9zb2Z0LUlJUy82LjA=
+      !binary "eC1wb3dlcmVkLWJ5":
+      - !binary |-
+        QVNQLk5FVA==
+      !binary "eC1hc3BuZXQtdmVyc2lvbg==":
+      - !binary |-
+        Mi4wLjUwNzI3
+      !binary "Y2FjaGUtY29udHJvbA==":
+      - !binary |-
+        cHJpdmF0ZSwgbWF4LWFnZT0w
+      !binary "Y29udGVudC10eXBl":
+      - !binary |-
+        YXBwbGljYXRpb24vc29hcCt4bWw7IGNoYXJzZXQ9dXRmLTg=
+      !binary "Y29udGVudC1sZW5ndGg=":
+      - !binary |-
+        NTk5
+    body: !binary |-
+      PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0idXRmLTgiPz48c29hcDpF
+      bnZlbG9wZSB4bWxuczpzb2FwPSJodHRwOi8vd3d3LnczLm9yZy8yMDAzLzA1
+      L3NvYXAtZW52ZWxvcGUiIHhtbG5zOnhzaT0iaHR0cDovL3d3dy53My5vcmcv
+      MjAwMS9YTUxTY2hlbWEtaW5zdGFuY2UiIHhtbG5zOnhzZD0iaHR0cDovL3d3
+      dy53My5vcmcvMjAwMS9YTUxTY2hlbWEiPjxzb2FwOkJvZHk+PEdldE9yZGVy
+      U3RhdHVzUmVzcG9uc2UgeG1sbnM9Imh0dHA6Ly93d3cuY2xlYXJzYWxlLmNv
+      bS5ici9pbnRlZ3JhdGlvbiI+PEdldE9yZGVyU3RhdHVzUmVzdWx0PiZsdDs/
+      eG1sIHZlcnNpb249IjEuMCIgZW5jb2Rpbmc9InV0Zi0xNiI/Jmd0Ow0KJmx0
+      O0NsZWFyU2FsZSZndDsNCiAgJmx0O09yZGVycyZndDsNCiAgICAmbHQ7T3Jk
+      ZXIgZDNwMTpuaWw9InRydWUiIHhtbG5zOmQzcDE9Imh0dHA6Ly93d3cudzMu
+      b3JnLzIwMDEvWE1MU2NoZW1hLWluc3RhbmNlIiAvJmd0Ow0KICAmbHQ7L09y
+      ZGVycyZndDsNCiZsdDsvQ2xlYXJTYWxlJmd0OzwvR2V0T3JkZXJTdGF0dXNS
+      ZXN1bHQ+PC9HZXRPcmRlclN0YXR1c1Jlc3BvbnNlPjwvc29hcDpCb2R5Pjwv
+      c29hcDpFbnZlbG9wZT4=
+    http_version: '1.1'

data/spec/fixtures/vcr_cassettes/clearsale_get_order_status_production.yml

@@ -0,0 +1,60 @@
+---
+- !ruby/struct:VCR::HTTPInteraction
+  request: !ruby/struct:VCR::Request
+    method: :post
+    uri: https://www.clearsale.com.br/integracaov2/service.asmx
+    body: <?xml version="1.0" encoding="UTF-8"?><soap:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+      xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:int="http://www.clearsale.com.br/integration"
+      xmlns:soap="http://www.w3.org/2003/05/soap-envelope"><soap:Body><int:GetOrderStatus><int:orderID>TS1234</int:orderID><int:entityCode>0E6F0C82-FC05-4AA7-86D4-EBBFC0FDC41A</int:entityCode></int:GetOrderStatus></soap:Body></soap:Envelope>
+    headers:
+      soapaction:
+      - '"http://www.clearsale.com.br/integration/GetOrderStatus"'
+      content-type:
+      - text/xml;charset=UTF-8
+      content-length:
+      - '505'
+  response: !ruby/struct:VCR::Response
+    status: !ruby/struct:VCR::ResponseStatus
+      code: 200
+      message: !binary |-
+        T0s=
+    headers:
+      !binary "ZGF0ZQ==":
+      - !binary |-
+        V2VkLCAxMSBBcHIgMjAxMiAyMDozODowMCBHTVQ=
+      !binary "c2VydmVy":
+      - !binary |-
+        TWljcm9zb2Z0LUlJUy82LjA=
+      !binary "eC1wb3dlcmVkLWJ5":
+      - !binary |-
+        QVNQLk5FVA==
+      !binary "eC1hc3BuZXQtdmVyc2lvbg==":
+      - !binary |-
+        Mi4wLjUwNzI3
+      !binary "Y2FjaGUtY29udHJvbA==":
+      - !binary |-
+        cHJpdmF0ZSwgbWF4LWFnZT0w
+      !binary "Y29udGVudC10eXBl":
+      - !binary |-
+        YXBwbGljYXRpb24vc29hcCt4bWw7IGNoYXJzZXQ9dXRmLTg=
+      !binary "Y29udGVudC1sZW5ndGg=":
+      - !binary |-
+        NjYz
+    body: !binary |-
+      PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0idXRmLTgiPz48c29hcDpF
+      bnZlbG9wZSB4bWxuczpzb2FwPSJodHRwOi8vd3d3LnczLm9yZy8yMDAzLzA1
+      L3NvYXAtZW52ZWxvcGUiIHhtbG5zOnhzaT0iaHR0cDovL3d3dy53My5vcmcv
+      MjAwMS9YTUxTY2hlbWEtaW5zdGFuY2UiIHhtbG5zOnhzZD0iaHR0cDovL3d3
+      dy53My5vcmcvMjAwMS9YTUxTY2hlbWEiPjxzb2FwOkJvZHk+PEdldE9yZGVy
+      U3RhdHVzUmVzcG9uc2UgeG1sbnM9Imh0dHA6Ly93d3cuY2xlYXJzYWxlLmNv
+      bS5ici9pbnRlZ3JhdGlvbiI+PEdldE9yZGVyU3RhdHVzUmVzdWx0PiZsdDs/
+      eG1sIHZlcnNpb249IjEuMCIgZW5jb2Rpbmc9InV0Zi0xNiI/Jmd0Ow0KJmx0
+      O0NsZWFyU2FsZSZndDsNCiAgJmx0O09yZGVycyZndDsNCiAgICAmbHQ7T3Jk
+      ZXImZ3Q7DQogICAgICAmbHQ7SUQmZ3Q7VFMxMjM0Jmx0Oy9JRCZndDsNCiAg
+      ICAgICZsdDtTdGF0dXMmZ3Q7QU1BJmx0Oy9TdGF0dXMmZ3Q7DQogICAgICAm
+      bHQ7U2NvcmUmZ3Q7MjEuMTEwMCZsdDsvU2NvcmUmZ3Q7DQogICAgJmx0Oy9P
+      cmRlciZndDsNCiAgJmx0Oy9PcmRlcnMmZ3Q7DQombHQ7L0NsZWFyU2FsZSZn
+      dDs8L0dldE9yZGVyU3RhdHVzUmVzdWx0PjwvR2V0T3JkZXJTdGF0dXNSZXNw
+      b25zZT48L3NvYXA6Qm9keT48L3NvYXA6RW52ZWxvcGU+
+    http_version: '1.1'
+

data/spec/fixtures/vcr_cassettes/clearsale_send_orders.yml

@@ -0,0 +1,76 @@
+---
+- !ruby/struct:VCR::HTTPInteraction
+  request: !ruby/struct:VCR::Request
+    method: :post
+    uri: http://homologacao.clearsale.com.br:80/Integracaov2/Service.asmx
+    body: <?xml version="1.0" encoding="UTF-8"?><soap:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+      xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:int="http://www.clearsale.com.br/integration"
+      xmlns:soap="http://www.w3.org/2003/05/soap-envelope"><soap:Body><int:SendOrders><int:xml>&lt;ClearSale&gt;&lt;Orders&gt;&lt;Order&gt;&lt;ID&gt;TS1234&lt;/ID&gt;&lt;Date&gt;2012-04-11T20:36:11&lt;/Date&gt;&lt;Email&gt;petergriffin@abc.com&lt;/Email&gt;&lt;TotalItens&gt;25.0&lt;/TotalItens&gt;&lt;TotalOrder&gt;20.0&lt;/TotalOrder&gt;&lt;QtyInstallments&gt;3&lt;/QtyInstallments&gt;&lt;QtyItems&gt;3&lt;/QtyItems&gt;&lt;IP&gt;127.0.0.1&lt;/IP&gt;&lt;CollectionData&gt;&lt;ID&gt;8888&lt;/ID&gt;&lt;Type&gt;1&lt;/Type&gt;&lt;LegalDocument1&gt;24878346337&lt;/LegalDocument1&gt;&lt;Name&gt;Peter
+      Löwenbräu Griffin&lt;/Name&gt;&lt;BirthDate&gt;1972-04-11T20:36:11&lt;/BirthDate&gt;&lt;Email&gt;petergriffin@abc.com&lt;/Email&gt;&lt;Genre&gt;m&lt;/Genre&gt;&lt;Address&gt;&lt;Street&gt;Bla
+      St&lt;/Street&gt;&lt;Number&gt;123&lt;/Number&gt;&lt;Comp&gt;&lt;/Comp&gt;&lt;County&gt;Rhode
+      Island&lt;/County&gt;&lt;City&gt;Mayland&lt;/City&gt;&lt;State&gt;Maryland&lt;/State&gt;&lt;ZipCode&gt;00100-011&lt;/ZipCode&gt;&lt;/Address&gt;&lt;Phones&gt;&lt;Phone&gt;&lt;Type&gt;0&lt;/Type&gt;&lt;DDD&gt;11&lt;/DDD&gt;&lt;Number&gt;80011002&lt;/Number&gt;&lt;/Phone&gt;&lt;/Phones&gt;&lt;/CollectionData&gt;&lt;ShippingData&gt;&lt;ID&gt;8888&lt;/ID&gt;&lt;Type&gt;1&lt;/Type&gt;&lt;LegalDocument1&gt;24878346337&lt;/LegalDocument1&gt;&lt;Name&gt;Peter
+      Löwenbräu Griffin&lt;/Name&gt;&lt;BirthDate&gt;1972-04-11T20:36:11&lt;/BirthDate&gt;&lt;Email&gt;petergriffin@abc.com&lt;/Email&gt;&lt;Genre&gt;m&lt;/Genre&gt;&lt;Address&gt;&lt;Street&gt;Bla
+      St&lt;/Street&gt;&lt;Number&gt;123&lt;/Number&gt;&lt;Comp&gt;&lt;/Comp&gt;&lt;County&gt;Rhode
+      Island&lt;/County&gt;&lt;City&gt;Mayland&lt;/City&gt;&lt;State&gt;Maryland&lt;/State&gt;&lt;ZipCode&gt;00100-011&lt;/ZipCode&gt;&lt;/Address&gt;&lt;Phones&gt;&lt;Phone&gt;&lt;Type&gt;0&lt;/Type&gt;&lt;DDD&gt;11&lt;/DDD&gt;&lt;Number&gt;80011002&lt;/Number&gt;&lt;/Phone&gt;&lt;/Phones&gt;&lt;/ShippingData&gt;&lt;Payments&gt;&lt;Payment&gt;&lt;Date&gt;2012-04-11T20:36:09&lt;/Date&gt;&lt;Amount&gt;20.0&lt;/Amount&gt;&lt;PaymentTypeID&gt;1&lt;/PaymentTypeID&gt;&lt;QtyInstallments&gt;3&lt;/QtyInstallments&gt;&lt;CardNumber&gt;2222&lt;/CardNumber&gt;&lt;CardBin&gt;1234432&lt;/CardBin&gt;&lt;CardType&gt;3&lt;/CardType&gt;&lt;CardExpirationDate&gt;05/2012&lt;/CardExpirationDate&gt;&lt;Name&gt;Peter
+      Löwenbräu Griffin&lt;/Name&gt;&lt;LegalDocument&gt;24878346337&lt;/LegalDocument&gt;&lt;Address&gt;&lt;Street&gt;Bla
+      St&lt;/Street&gt;&lt;Number&gt;123&lt;/Number&gt;&lt;Comp&gt;&lt;/Comp&gt;&lt;County&gt;Rhode
+      Island&lt;/County&gt;&lt;City&gt;Mayland&lt;/City&gt;&lt;State&gt;Maryland&lt;/State&gt;&lt;ZipCode&gt;00100-011&lt;/ZipCode&gt;&lt;/Address&gt;&lt;/Payment&gt;&lt;/Payments&gt;&lt;Items&gt;&lt;Item&gt;&lt;ID&gt;5555&lt;/ID&gt;&lt;Name&gt;Pogobol&lt;/Name&gt;&lt;ItemValue&gt;5.0&lt;/ItemValue&gt;&lt;Qty&gt;2&lt;/Qty&gt;&lt;CategoryID&gt;7777&lt;/CategoryID&gt;&lt;CategoryName&gt;Disney&lt;/CategoryName&gt;&lt;/Item&gt;&lt;Item&gt;&lt;ID&gt;5555&lt;/ID&gt;&lt;Name&gt;Pogobol&lt;/Name&gt;&lt;ItemValue&gt;5.0&lt;/ItemValue&gt;&lt;Qty&gt;2&lt;/Qty&gt;&lt;CategoryID&gt;7777&lt;/CategoryID&gt;&lt;CategoryName&gt;Disney&lt;/CategoryName&gt;&lt;/Item&gt;&lt;/Items&gt;&lt;/Order&gt;&lt;/Orders&gt;&lt;/ClearSale&gt;</int:xml><int:entityCode>0E6F0C82-FC05-4AA7-86D4-EBBFC0FDC41A</int:entityCode></int:SendOrders></soap:Body></soap:Envelope>
+    headers:
+      soapaction:
+      - '"http://www.clearsale.com.br/integration/SendOrders"'
+      content-type:
+      - text/xml;charset=UTF-8
+      content-length:
+      - '3645'
+  response: !ruby/struct:VCR::Response
+    status: !ruby/struct:VCR::ResponseStatus
+      code: 200
+      message: !binary |-
+        T0s=
+    headers:
+      !binary "ZGF0ZQ==":
+      - !binary |-
+        V2VkLCAxMSBBcHIgMjAxMiAyMDozNjoxNSBHTVQ=
+      !binary "c2VydmVy":
+      - !binary |-
+        TWljcm9zb2Z0LUlJUy82LjA=
+      !binary "eC1wb3dlcmVkLWJ5":
+      - !binary |-
+        QVNQLk5FVA==
+      !binary "eC1hc3BuZXQtdmVyc2lvbg==":
+      - !binary |-
+        Mi4wLjUwNzI3
+      !binary "c2V0LWNvb2tpZQ==":
+      - !binary |-
+        QVNQLk5FVF9TZXNzaW9uSWQ9aXkyNG4wNTV1NXVrM3hpMDJtZ3Bwd25sOyBw
+        YXRoPS87IEh0dHBPbmx5
+      !binary "Y2FjaGUtY29udHJvbA==":
+      - !binary |-
+        cHJpdmF0ZSwgbWF4LWFnZT0w
+      !binary "Y29udGVudC10eXBl":
+      - !binary |-
+        YXBwbGljYXRpb24vc29hcCt4bWw7IGNoYXJzZXQ9dXRmLTg=
+      !binary "Y29udGVudC1sZW5ndGg=":
+      - !binary |-
+        ODE4
+    body: !binary |-
+      PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0idXRmLTgiPz48c29hcDpF
+      bnZlbG9wZSB4bWxuczpzb2FwPSJodHRwOi8vd3d3LnczLm9yZy8yMDAzLzA1
+      L3NvYXAtZW52ZWxvcGUiIHhtbG5zOnhzaT0iaHR0cDovL3d3dy53My5vcmcv
+      MjAwMS9YTUxTY2hlbWEtaW5zdGFuY2UiIHhtbG5zOnhzZD0iaHR0cDovL3d3
+      dy53My5vcmcvMjAwMS9YTUxTY2hlbWEiPjxzb2FwOkJvZHk+PFNlbmRPcmRl
+      cnNSZXNwb25zZSB4bWxucz0iaHR0cDovL3d3dy5jbGVhcnNhbGUuY29tLmJy
+      L2ludGVncmF0aW9uIj48U2VuZE9yZGVyc1Jlc3VsdD4mbHQ7P3htbCB2ZXJz
+      aW9uPSIxLjAiIGVuY29kaW5nPSJ1dGYtMTYiPyZndDsNCiZsdDtQYWNrYWdl
+      U3RhdHVzJmd0Ow0KICAmbHQ7VHJhbnNhY3Rpb25JRCZndDtiMTg0NjQ0Zi1m
+      YmI1LTRjNWQtYTA0Zi1iZDE1NjRkZGYyYTgmbHQ7L1RyYW5zYWN0aW9uSUQm
+      Z3Q7DQogICZsdDtTdGF0dXNDb2RlJmd0OzAwJmx0Oy9TdGF0dXNDb2RlJmd0
+      Ow0KICAmbHQ7TWVzc2FnZSZndDtPSyZsdDsvTWVzc2FnZSZndDsNCiAgJmx0
+      O09yZGVycyZndDsNCiAgICAmbHQ7T3JkZXImZ3Q7DQogICAgICAmbHQ7SUQm
+      Z3Q7VFMxMjM0Jmx0Oy9JRCZndDsNCiAgICAgICZsdDtTdGF0dXMmZ3Q7QU1B
+      Jmx0Oy9TdGF0dXMmZ3Q7DQogICAgICAmbHQ7U2NvcmUmZ3Q7MjEuMTEwMCZs
+      dDsvU2NvcmUmZ3Q7DQogICAgJmx0Oy9PcmRlciZndDsNCiAgJmx0Oy9PcmRl
+      cnMmZ3Q7DQombHQ7L1BhY2thZ2VTdGF0dXMmZ3Q7PC9TZW5kT3JkZXJzUmVz
+      dWx0PjwvU2VuZE9yZGVyc1Jlc3BvbnNlPjwvc29hcDpCb2R5Pjwvc29hcDpF
+      bnZlbG9wZT4=
+    http_version: '1.1'

data/spec/logger_formatter_spec.rb

@@ -0,0 +1,56 @@
+require 'spec_helper'
+require 'logger'
+require 'tempfile'
+
+describe Clearsale::LoggerFormatterFilter do
+  let(:tmp_file) { Tempfile.new('tagfilter') }
+  let(:logger)   { Logger.new tmp_file }
+
+  let(:order_xml)          { File.read('./spec/fixtures/clearsale.xml').chomp }
+  let(:filtered_order_xml) { File.read('./spec/fixtures/filtered_clearsale.xml').chomp }
+
+  after do
+    tmp_file.close
+  end
+
+  context "Initialize using tags and block" do
+    before do
+      logger.formatter = described_class.new(%w(CardNumber CardBin)) do |severity, datetime, progname, filtered_msg|
+        "#{severity} #{filtered_msg}"
+      end
+    end
+
+    it "filters the configured tag names using block" do
+      logger.info(order_xml)
+      tmp_file.rewind
+      tmp_file.read.should == "INFO #{filtered_order_xml}"
+    end
+  end
+
+  context "Initialize without block" do
+    before do
+      logger.formatter = described_class.new(%w(CardNumber CardBin))
+    end
+
+    it "filters the configured tag names" do
+      logger.info(order_xml)
+      tmp_file.rewind
+      tmp_file.read.end_with?(filtered_order_xml).should be_true
+    end
+  end
+
+  context "Initialize without tags" do
+    before do
+      logger.formatter = described_class.new do |severity, datetime, progname, filtered_msg|
+        "#{severity} #{filtered_msg}"
+      end
+    end
+
+    it "filters the configured tag names" do
+      logger.info(order_xml)
+      tmp_file.rewind
+      tmp_file.read.should == "INFO #{order_xml}"
+    end
+  end
+end
+

data/spec/object_spec.rb

@@ -0,0 +1,82 @@
+require 'spec_helper'
+
+module Clearsale
+  describe Object do
+    describe "behavior it inherits from OpenStruct" do
+      it "can represent arbitrary data objects" do
+        ros = Object.new
+        ros.blah = "John Smith"
+        ros.blah.should == "John Smith"
+      end
+
+      it "can be created from a hash" do
+        h = { :asdf => 'John Smith' }
+        ros = Object.new(h)
+        ros.asdf.should == "John Smith"
+      end
+
+      it "can modify an existing key" do
+        h = { :blah => 'John Smith' }
+        ros = Object.new(h)
+        ros.blah = "George Washington"
+        ros.blah.should == "George Washington"
+      end
+
+      describe "handling of arbitrary attributes" do
+        before(:each) do
+          @object = Object.new
+          @object.blah = "John Smith"
+        end
+
+        describe "#respond?" do
+          it { @object.should respond_to :blah }
+          it { @object.should respond_to :blah= }
+          it { @object.should_not respond_to :asdf }
+          it { @object.should_not respond_to :asdf= }
+        end
+
+        describe "#methods" do
+          it { @object.methods.should include :blah }
+          it { @object.methods.should include :blah= }
+          it { @object.methods.should_not include :asdf }
+          it { @object.methods.should_not include :asdf= }
+        end
+      end
+    end
+
+    describe "recursive behavior" do
+      before(:each) do
+        h = { :blah => { :another => 'value'}, :list => [ { :foo => :bar } ] }
+        @object = Object.new(h)
+      end
+
+      it "returns accessed hashes as Objects instead of hashes" do
+        @object.blah.another.should == 'value'
+      end
+
+      it "uses #key_as_a_hash to return key as a Hash" do
+        @object.blah_as_a_hash.should == { :another => 'value' }
+      end
+
+      it "return access hash as Object instead of hash even if it is inside a list" do
+        @object.list.first.foo.should == :bar
+      end
+
+      describe "handling loops in the origin Hashes" do
+        before(:each) do
+          h1 = { :a => 'a'}
+          h2 = { :a => 'b', :h1 => h1 }
+          h1[:h2] = h2
+          @object = Object.new(h2)
+        end
+
+        it { @object.h1.a.should == 'a' }
+        it { @object.h1.h2.a.should == 'b' }
+        it { @object.h1.h2.h1.a.should == 'a' }
+        it { @object.h1.h2.h1.h2.a.should == 'b' }
+        it { @object.h1.should == @object.h1.h2.h1 }
+        it { @object.h1.should_not == @object.h1.h2 }
+      end
+    end
+  end
+end

data/spec/order_response_spec.rb

@@ -0,0 +1,35 @@
+require 'spec_helper'
+
+module Clearsale
+  describe OrderResponse do
+    describe "#approved?" do
+      let(:response) { {:orders=>{:order=>{:id=>"TS1234", :score=>"21.1100"}}} }
+
+      %w(APA APM).each do |status|
+        it "should return true if status return is: #{status}" do
+          response[:orders][:order][:status] = status
+          OrderResponse.new(response).should be_approved
+        end
+      end
+    end
+
+    describe "#rejected?" do
+      let(:response) { {:orders=>{:order=>{:id=>"TS1234", :score=>"21.1100"}}} }
+
+      %w(RPM SUS CAN).each do |status|
+        it "should return true if status return is: #{status}" do
+          response[:orders][:order][:status] = status
+          OrderResponse.new(response).should be_rejected
+        end
+      end
+    end
+
+    describe "#fraud?" do
+      let(:response) { {:orders=>{:order=>{:id=>"TS1234", :score=>"21.1100", :status => "FRD"}}} }
+
+      it "should return true if status return is FRD" do
+        OrderResponse.new(response).should be_fraud
+      end
+    end
+  end
+end

data/spec/order_spec.rb

@@ -0,0 +1,45 @@
+# encoding: utf-8
+require 'spec_helper'
+require 'timecop'
+
+module Clearsale
+  describe Order do
+    before :each do
+      Timecop.freeze Time.parse('2012-07-01 11:13')
+    end
+
+    let(:_order) { Object.new(order) }
+    let(:_payment) { Object.new(payment) }
+    let(:_user) { Object.new(user) }
+
+    describe ".to_xml" do
+      it "converts the order to xml successfully" do
+        described_class.to_xml(_order, _payment, _user).should eq '<ClearSale><Orders><Order><ID>1234</ID><Date>2012-07-01T11:13:00</Date><Email>petergriffin@abc.com</Email><TotalItens>20.0</TotalItens><TotalOrder>25.0</TotalOrder><QtyInstallments>3</QtyInstallments><QtyItems>3</QtyItems><IP>127.0.0.1</IP><CollectionData><ID>8888</ID><Type>1</Type><LegalDocument1>24878346337</LegalDocument1><Name>Peter Löwenbräu Griffin</Name><BirthDate>1972-07-01T11:13:00</BirthDate><Email>petergriffin@abc.com</Email><Genre>m</Genre><Address><Street>Billing Street</Street><Number>123</Number><Comp></Comp><County>Rhode Island</County><City>Mayland</City><State>Maryland</State><ZipCode>00100-011</ZipCode></Address><Phones><Phone><Type>0</Type><DDD>11</DDD><Number>80011002</Number></Phone></Phones></CollectionData><ShippingData><ID>8888</ID><Type>1</Type><LegalDocument1>24878346337</LegalDocument1><Name>Peter Löwenbräu Griffin</Name><BirthDate>1972-07-01T11:13:00</BirthDate><Email>petergriffin@abc.com</Email><Genre>m</Genre><Address><Street>Shipping Street</Street><Number>123</Number><Comp></Comp><County>Rhode Island</County><City>Mayland</City><State>Maryland</State><ZipCode>00100-011</ZipCode></Address><Phones><Phone><Type>0</Type><DDD>11</DDD><Number>80011002</Number></Phone></Phones></ShippingData><Payments><Payment><Date>2012-07-01T11:12:58</Date><Amount>50.0</Amount><PaymentTypeID>1</PaymentTypeID><QtyInstallments>3</QtyInstallments><CardNumber>1234432111112222</CardNumber><CardBin>123443</CardBin><CardType>3</CardType><CardExpirationDate>05/2012</CardExpirationDate><Name/><LegalDocument>24878346337</LegalDocument><Address><Street>Billing Street</Street><Number>123</Number><Comp></Comp><County>Rhode Island</County><City>Mayland</City><State>Maryland</State><ZipCode>00100-011</ZipCode></Address></Payment></Payments><Items><Item><ID>5555</ID><Name>Pogobol</Name><ItemValue>5.0</ItemValue><Qty>2</Qty><CategoryID>7777</CategoryID><CategoryName>Disney</CategoryName></Item><Item><ID>5555</ID><Name>Pogobol</Name><ItemValue>5.0</ItemValue><Qty>2</Qty><CategoryID>7777</CategoryID><CategoryName>Disney</CategoryName></Item></Items></Order></Orders></ClearSale>'
+      end
+
+      context "about credit card acquirer" do
+        it "should accept symbol" do
+          _payment.acquirer = :amex
+          described_class.to_xml(_order, _payment, _user).should include "<CardType>#{Clearsale::Order::CARD_TYPE_MAP[:amex]}</CardType>"
+        end
+
+        it "should accept string" do
+          _payment.acquirer = 'amex'
+          described_class.to_xml(_order, _payment, _user).should include "<CardType>#{Clearsale::Order::CARD_TYPE_MAP[:amex]}</CardType>"
+        end
+      end
+
+      context "when birthdate is empty" do
+        it "should not send birthdate" do
+          _user.birthdate = nil
+          described_class.to_xml(_order, _payment, _user).should_not include "<BirthDate>"
+        end
+
+        it "should not send birthdate" do
+          _user.birthdate = nil
+          expect{ described_class.to_xml(_order, _payment, _user) }.to_not raise_error
+        end
+      end
+    end
+  end
+end

data/spec/requests/clearsale_spec.rb

@@ -0,0 +1,70 @@
+# encoding: utf-8
+require 'spec_helper'
+require 'clearsale'
+require 'webmock/rspec'
+
+describe 'Risk Analysis with ClearSale' do
+  let!(:vcs_params) { {:record => :none, :match_requests_on => [:method, :uri, :headers]} }
+
+  describe 'sending orders' do
+    it "returns the package response" do
+      VCR.use_cassette('clearsale_send_orders', vcs_params) do
+        response = Clearsale::Analysis.send_order(order, payment, user)
+
+        response.should be_manual_analysis
+        response.score.should be_within(0.01).of(21.11)
+        response.order_id.should eq(1234)
+      end
+    end
+  end
+
+  describe "updating order status" do
+    context "existing order" do
+      it "returns the package response" do
+        VCR.use_cassette('clearsale_get_order_status', vcs_params) do
+          response = Clearsale::Analysis.get_order_status('1234')
+          response.should be_manual_analysis
+          response.score.should be_within(0.01).of(21.11)
+          response.order_id.should eq(1234)
+        end
+      end
+    end
+
+    context "missing order" do
+      it "returns the package response" do
+        VCR.use_cassette('clearsale_get_order_status_missing', vcs_params) do
+          order = double('Order', :id => 1234567890)
+
+          response = Clearsale::Analysis.get_order_status(order)
+          response.should be_inexistent_order
+        end
+      end
+    end
+  end
+
+  describe "setting the environment" do
+    context "when CLEARSALE_ENV is production" do
+      it "should access production url" do
+        VCR.use_cassette('clearsale_get_order_status_production', vcs_params) do
+          Clearsale::Analysis.clear_connector
+          ENV["CLEARSALE_ENV"] = 'production'
+          Clearsale::Analysis.get_order_status('1234')
+
+          a_request(:post, "https://www.clearsale.com.br/integracaov2/service.asmx").should have_been_made
+        end
+      end
+    end
+
+    context "when CLEARSALE_ENV isn't production" do
+      it "should access production url" do
+        VCR.use_cassette('clearsale_get_order_status', vcs_params) do
+          Clearsale::Analysis.clear_connector
+          ENV["CLEARSALE_ENV"] = 'any'
+          Clearsale::Analysis.get_order_status('1234')
+
+          a_request(:post, "http://homologacao.clearsale.com.br/Integracaov2/Service.asmx").should have_been_made
+        end
+      end
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,23 @@
+require 'rubygems'
+require 'bundler'
+Bundler.setup(:default)
+require 'clearsale'
+require 'vcr'
+require 'savon'
+
+HTTPI.log = false
+
+Dir["./spec/support/**/*.rb"].each {|f| require f}
+
+VCR.config do |c|
+  c.cassette_library_dir     = File.expand_path('../../spec/fixtures/vcr_cassettes', __FILE__)
+  c.stub_with :webmock
+  c.default_cassette_options = { :record => :none }
+  c.allow_http_connections_when_no_cassette = false
+end
+
+RSpec.configure do |config|
+  config.mock_with :rspec
+end
+
+Clearsale::Config.log = false

data/spec/support/helpers.rb

@@ -0,0 +1,81 @@
+# encoding: utf-8
+
+def product
+  {
+    :id => 5555,
+    :name => 'Pogobol',
+    :category => { :id => 7777, :name => 'Disney' }
+  }
+end
+
+def item1
+  {
+    :product => product,
+    :price => 5.00,
+    :quantity => 2,
+  }
+end
+
+def billing_address
+  {
+    :street_name => 'Billing Street',
+    :number => '123',
+    :complement => '',
+    :neighborhood => 'Rhode Island',
+    :city => 'Mayland',
+    :state => 'Maryland',
+    :postal_code => '00100-011'
+  }
+end
+
+def shipping_address
+  {
+    :street_name => 'Shipping Street',
+    :number => '123',
+    :complement => '',
+    :neighborhood => 'Rhode Island',
+    :city => 'Mayland',
+    :state => 'Maryland',
+    :postal_code => '00100-011'
+  }
+end
+
+def user
+  {
+    :email     => 'petergriffin@abc.com',
+    :id        => 8888,
+    :cpf       => '248.783.463-37',
+    :full_name => 'Peter Löwenbräu Griffin',
+    :birthdate => 40.years.ago,
+    :phone     => '11 8001 1002',
+    :gender    => 'm',
+    :last_sign_in_ip => '127.0.0.1',
+  }
+end
+
+def order
+  {
+    :id => 1234,
+    :paid_at => 2.seconds.ago,
+    :billing_address => billing_address,
+    :shipping_address => shipping_address,
+    :installments => 3,
+    :total_items => 20.00,
+    :total_order => 25.00,
+    :items_count => 3,
+    :created_at => Time.current,
+    :user => user,
+    :order_items => [item1, item1],
+  }
+end
+
+def payment
+  {
+    :card_holder => 'Petter L Griffin',
+    :card_number => '1234432111112222',
+    :card_expiration => '05/2012',
+    :card_security_code => '123',
+    :acquirer => 'visa',
+    :amount => 50.00,
+  }
+end