klarna-xmlrpc 0.2.0

data/test/fixtures/api/persons.yml

@@ -0,0 +1,144 @@
+# Here are Klarnas test PERSONS.
+# All approved persons have unlimited credit and the system will never accept purchases from the not approved ones.
+#
+# Purchases done with the test persons will be displayed in Klarna Online as regular invoices, although they will
+# unvisible unless you have "Yes" selected next to "Display test invoices" when searching for invoices.
+#
+# We will not pay for the invoices created with the test persons nor companies and we will not collect any fees as well.
+
+persons:
+  se:
+    approved:
+      pno: "4304158399"
+      first_name: "Karl"
+      last_name: "Lidin"
+      street_address: "Junibackg. 42"
+      postal_code: "23634"
+      city: "Hollviken"
+      country: "SE"
+      cell_phone: "076 526 00 00"
+      currency: "SEK"
+      language: "SV"
+    unapproved:
+      pno: "5311096845"
+      first_name: "Maud"
+      last_name: "Johansson"
+      street_address: "Köpmansgatan 7"
+      postal_code: "12149"
+      city: "Johanneshov"
+      country: "SE"
+      cell_phone: "076 526 00 00"
+      currency: "SEK"
+      language: "SV"
+
+  no:
+    approved:
+      pno: "18106500157"
+      first_name: "Petter"
+      last_name: "Testmann"
+      street_address: "Hundremeterskogen 100"
+      postal_code: "0563"
+      city: "Oslo"
+      country: "NO"
+      cell_phone: "40 123 456"
+      currency: "NOK"
+      language: "NO"
+    unapproved:
+      pno: "18106500076"
+      first_name: "Petra"
+      last_name: "Testdame"
+      street_address: "Sofienberggate 56"
+      postal_code: "0563"
+      city: "Oslo"
+      country: "NO"
+      cell_phone: "40 123 456"
+      currency: "NOK"
+      language: "NO"
+
+  dk:
+    approved:
+      pno: "0505610059"
+      first_name: "Rasmus Jens-Peter"
+      last_name: "Lybert"
+      street_address: "Godthåbvej 8,-2"
+      postal_code: "3900"
+      city: "Godthåb"
+      country: "DK"
+      cell_phone: "20 123 456"
+      currency: "DKK"
+      language: "DA"
+    unapproved:
+      # N/A
+
+  # fi:
+  #   approved:
+  #     pno: "230246-8989"
+  #     first_name: "Suvi"
+  #     last_name: "Aurinkoinen"
+  #     street_address: "Planeettatie 2"
+  #     postal_code: "01450"
+  #     city: "Vantaa"
+  #     country: "FI"
+  #     cell_phone: "0401234567
+  #     currency: "EUR"
+  #     language: "FI"
+  #   unapproved:
+  #     pno: "010130-887T"
+  #     first_name: "Mikael"
+  #     last_name: "Miehinen"
+  #     street_address: "Tikkuritie 11"
+  #     postal_code: "01370"
+  #     city: "Vantaa"
+  #     country: "FI"
+  #     cell_phone: "0401234567"
+  #     currency: "EUR"
+  #     language: "FI"
+  #
+  de:
+    approved:
+      pno: "070719601"
+      first_name: "Uno"
+      last_name: "Eins"
+      street_address: "Hellersbergstrasse 14"
+      postal_code: "41460"
+      city: "Neuss"
+      country: "DE"
+      cell_phone: "015 2211 3356"
+      currency: "EUR"
+      language: "DE"
+    unapproved:
+      pno: "07071950"
+      first_name: "Uno"
+      last_name: "Vier"
+      street_address: "Hellersbergstrasse 14"
+      postal_code: "41460"
+      city: "Neuss"
+      cell_phone: "015 2211 3356"
+      country: "DE"
+      currency: "EUR"
+      language: "DE"
+
+  nl:
+    approved:
+      pno:
+      first_name: "Test"
+      last_name: "Persoon"
+      street_address: "Neherkade 1"
+      postal_code: "2521VA"
+      city: "Gravenhage"
+      country: "NL"
+      cell_phone: "0612345678"
+      currency: "EUR"
+      language: "NL"
+    unapproved:
+      # Only a few details available.
+      pno:
+      first_name:
+      last_name:
+      street_address:
+      postal_code:
+      city:
+      country: "NL"
+      cell_phone: "0612345678"
+      currency: "EUR"
+      language: "NL"

data/test/fixtures/api/stores.yml

@@ -0,0 +1,6 @@
+# Public test stores.
+
+stores:
+  test:
+    id: 2
+    secret: lakrits

data/test/fixtures/klarna.yml

@@ -0,0 +1,10 @@
+---
+test:
+  store_id: 2
+  store_secred: lakrits
+  store_pclasses:
+
+production:
+  store_id: 2
+  store_secred: lakrits
+  store_pclasses:

data/test/klarna/api/client_test.rb

@@ -0,0 +1,288 @@
+# encoding: utf-8
+require 'test_helper'
+
+describe Klarna::API::Client do
+
+  before do
+    Klarna.reset!
+    @client = Klarna::API::Client.new(VALID_STORE_ID, VALID_STORE_SECRET)
+  end
+
+  describe 'Initialization' do
+    it 'should require store-ID and store-secret' do
+      assert_raises(Klarna::API::Errors::KlarnaCredentialsError) do
+        @client = Klarna::API::Client.new
+      end
+
+      assert_raises(Klarna::API::Errors::KlarnaCredentialsError) do
+        @client = Klarna::API::Client.new(VALID_STORE_ID)
+      end
+
+      assert @client = Klarna::API::Client.new(VALID_STORE_ID, VALID_STORE_SECRET)
+    end
+  end
+
+  describe "Configuration" do
+    describe "Configurable" do
+
+      describe '#store_id' do
+        it 'should be defined' do
+          assert_respond_to @client, :store_id
+        end
+      end
+
+      describe '#store_secret' do
+        it 'should be defined' do
+          assert_respond_to @client, :store_secret
+        end
+      end
+
+      describe '#mode' do
+        it 'should be defined' do
+          assert_respond_to @client, :mode
+        end
+
+        it 'should have default value: :test' do
+          assert_equal :test, Klarna::API::Client.new(VALID_STORE_ID, VALID_STORE_SECRET).mode
+        end
+
+        it 'should use default value unless specified' do
+          swap Klarna, :mode => :test do
+            client = Klarna::API::Client.new(VALID_STORE_ID, VALID_STORE_SECRET)
+            assert_equal :test, client.mode
+          end
+
+          swap Klarna, :mode => :production do
+            client = Klarna::API::Client.new(VALID_STORE_ID, VALID_STORE_SECRET)
+            assert_equal :production, client.mode
+          end
+        end
+
+        it 'could override default value' do
+          swap Klarna, :mode => :test do
+            client = Klarna::API::Client.new(VALID_STORE_ID, VALID_STORE_SECRET, :mode => :production)
+            assert_equal :production, client.mode
+          end
+
+          swap Klarna, :mode => :production do
+            client = Klarna::API::Client.new(VALID_STORE_ID, VALID_STORE_SECRET, :mode => :test)
+            assert_equal :test, client.mode
+          end
+        end
+      end
+
+      describe '#timeout' do
+        it 'should be defined' do
+          assert_respond_to @client, :timeout
+        end
+
+        it 'should have default value: 10 seconds' do
+          assert_equal 10, @client.timeout
+        end
+      end
+    end
+
+    describe "Mode-specific Attributes" do
+      describe '#ssl?' do
+        it 'should be defined' do
+          assert_respond_to @client, :ssl?
+        end
+
+        it 'should be true only if protocol is HTTPS' do
+          # TODO
+        end
+      end
+
+      describe "Autodetected attributes" do
+        describe '#protocol' do
+          it 'should be defined' do
+            assert_respond_to @client, :protocol
+          end
+
+          describe 'mode: test' do
+            before do
+              @client.mode = :test
+            end
+
+            it 'should be: http' do
+              assert_equal 'http', @client.protocol
+            end
+          end
+
+          describe 'mode: test' do
+            before do
+              @client.mode = :production
+            end
+
+            it 'should be: https' do
+              assert_equal 'https', @client.protocol
+            end
+          end
+        end
+
+        describe '#host' do
+          it 'should be defined' do
+            assert_respond_to @client, :host
+          end
+
+          describe 'mode: test' do
+            before do
+              @client.mode = :test
+            end
+
+            it 'should be: beta-test.klarna.com' do
+              assert_equal @client.host, 'payment-beta.klarna.com'
+            end
+          end
+
+          describe 'mode: production' do
+            before do
+              @client.mode = :production
+            end
+
+            it 'should be: payment.klarna.com' do
+              assert_equal @client.host, 'payment.klarna.com'
+            end
+          end
+        end
+
+        describe '#port' do
+          it 'should be defined' do
+            assert_respond_to @client, :port
+          end
+
+          describe 'mode: test' do
+            before do
+              @client.mode = :test
+            end
+
+            it 'should be: 80' do
+              assert_equal 80, @client.port
+            end
+          end
+
+          describe 'mode: production' do
+            before do
+              @client.mode = :production
+            end
+
+            it 'should be: 443' do
+              assert_equal 443, @client.port
+            end
+          end
+        end
+
+        describe '#endpoint_uri' do
+          describe 'mode: test' do
+            before do
+              @client.mode = :test
+            end
+
+            it 'should be: http://beta-test.klarna.com:80' do
+              assert_equal 'http://payment-beta.klarna.com:80', @client.endpoint_uri
+            end
+          end
+
+          describe 'mode: production' do
+            before do
+              @client.mode = :production
+            end
+
+            it 'should be: https://payment.klarna.com:443' do
+              assert_equal 'https://payment.klarna.com:443', @client.endpoint_uri
+            end
+          end
+
+        end
+      end
+    end
+  end
+
+  describe "Helpers" do
+
+    describe '#call' do
+      it 'should be defined' do
+        assert_respond_to @client, :call
+      end
+
+      it 'should raise Klarna service error for dummie method: -99' do
+        assert_raises Klarna::API::Errors::KlarnaServiceError do
+          begin
+            @client.call(:hello)
+          rescue Klarna::API::Errors::KlarnaServiceError => e
+            assert_equal -99, e.error_code
+            raise e
+          end
+        end
+      end
+    end
+
+    describe '#digest' do
+      it 'should be defined' do
+        assert_respond_to @client, :digest
+      end
+
+      describe 'default behaviour' do
+        it 'should calculate a valid digest secret for one value' do
+          swap @client, :store_id => 123, :store_secret => "secret" do
+            assert_equal ::Klarna::API.digest(123, "value 123", "secret"), @client.send(:digest, "value 123")
+          end
+        end
+
+        it 'should calculate a valid digest secret for an array of values' do
+          swap @client, :store_id => 123, :store_secret => "secret" do
+            assert_equal ::Klarna::API.digest(123, "value 1", "value 2", "value 3", "secret"), @client.send(:digest, "value 1", "value 2", "value 3")
+          end
+        end
+      end
+
+      describe 'without estore-ID - some methods apparently need this' do
+        it 'should calculate a valid digest secret for one value' do
+          swap @client, :store_id => 123, :store_secret => "secret" do
+            assert_equal ::Klarna::API.digest("value 123", "secret"), @client.send(:digest, "value 123", :store_id => false)
+          end
+        end
+
+        it 'should calculate a valid digest secret for an array of values' do
+          swap @client, :store_id => 123, :store_secret => "secret" do
+            assert_equal ::Klarna::API.digest("value 1", "value 2", "value 3", "secret"), @client.send(:digest, "value 1", "value 2", "value 3", :store_id => false)
+          end
+        end
+      end
+    end
+
+    describe '#content_type_headers' do
+      it 'should be defined' do
+        assert_respond_to @client, :content_type_headers
+      end
+
+      it 'should have header: Accept-Charset: iso-8859-1' do
+        assert_equal 'iso-8859-1', @client.send(:content_type_headers)['Accept-Charset']
+      end
+
+      it 'should have header: Content-Type: text/xml;charset=iso-8859-1' do
+        assert_equal 'text/xml;charset=iso-8859-1', @client.send(:'content_type_headers')['Content-Type']
+      end
+
+      it 'should have header: Connection: close' do
+        assert_equal 'close', @client.send(:content_type_headers)['Connection']
+      end
+
+      it 'should have header: Accept-Charset: iso-8859-1' do
+        assert_equal 'ruby/xmlrpc', @client.send(:content_type_headers)['User-Agent']
+      end
+    end
+
+    describe '#add_meta_params' do
+      it 'should be defined' do
+        assert_respond_to @client, :add_meta_params
+      end
+
+      it %Q{should push default RPC-params/arguments: protocol version + client version ("1.0", "#{::XMLRPC::Client::USER_AGENT}")} do
+        assert_equal ["#{::Klarna::API::PROTOCOL_VERSION}", "#{::XMLRPC::Client::USER_AGENT}"], @client.send(:add_meta_params)
+      end
+    end
+
+  end
+
+end