klarna-xmlrpc 0.2.0

data/test/klarna/api/methods/reservation_test.rb

@@ -0,0 +1,66 @@
+# encoding: utf-8
+require 'test_helper'
+
+describe Klarna::API::Methods::Reservation do
+
+   # TODO: Mock responses using VCR.
+
+  before do
+    valid_credentials!
+    @client = Klarna::API::Client.new
+
+    @protocol_version = ::Klarna::API::PROTOCOL_VERSION.to_s
+    @user_agent = ::XMLRPC::Client::USER_AGENT.to_s
+
+    expose_protected_methods_in @client.class
+  end
+
+  # Spec: http://integration.klarna.com/en/api/advanced-integration/functions/reserveamount
+  describe '#reserve_amount' do
+    it 'should be defined' do
+      assert_respond_to @client, :reserve_amount
+    end
+  end
+
+  # Spec: http://integration.klarna.com/en/api/advanced-integration/functions/activatereservation
+  describe '#activate_reservation' do
+    it 'should be defined' do
+      assert_respond_to @client, :activate_reservation
+    end
+  end
+
+  # Spec: http://integration.klarna.com/en/api/advanced-integration/functions/cancelreservation
+  describe '#cancel_reservation' do
+    it 'should be defined' do
+      assert_respond_to @client, :cancel_reservation
+    end
+  end
+
+  describe '#split_reservation' do
+    it 'should be defined' do
+      assert_respond_to @client, :split_reservation
+    end
+  end
+
+  # Spec: http://integration.klarna.com/en/api/advanced-integration/functions/changereservation
+  describe '#change_reservation' do
+    it 'should be defined' do
+      assert_respond_to @client, :change_reservation
+    end
+  end
+
+  # Spec: http://integration.klarna.com/en/api/advanced-integration/functions/reserveocrnums
+  describe '#reserve_ocr_numbers' do
+    it 'should be defined' do
+      assert_respond_to @client, :reserve_ocr_numbers
+    end
+  end
+
+  # http://integration.klarna.com/en/api/advanced-integration/functions/mkaddress
+  describe '#make_reservation_address' do
+    it 'should be defined' do
+      assert_respond_to @client, :make_reservation_address
+    end
+  end
+
+end

data/test/klarna/api/methods/standard_test.rb

@@ -0,0 +1,244 @@
+# encoding: utf-8
+require 'test_helper'
+
+describe Klarna::API::Methods::Standard do
+
+   # TODO: Mock responses using VCR.
+
+  before do
+    valid_credentials!
+    @klarna = Klarna::API::Client.new
+    @klarna.client_ip = '127.0.0.1'
+
+    @protocol_version = ::Klarna::API::PROTOCOL_VERSION.to_s
+    @user_agent = ::XMLRPC::Client::USER_AGENT.to_s
+
+    @pno_format_sweden = ::Klarna::API::COUNTRIES[:SE]
+    @country_sweden = ::Klarna::API::COUNTRIES[:SE]
+
+    expose_protected_methods_in @klarna.class
+  end
+
+  # Spec:
+  #   http://integration.klarna.com/en/api/standard-integration/functions/getaddresses
+  describe '#get_addresses' do
+    it 'should be defined' do
+      assert_respond_to @klarna, :get_addresses
+    end
+
+    # it 'should require: pno, country'
+
+    it 'should handle pno-format as integer (pno-format ID)' do
+      assert @klarna.get_addresses("4304158399", 2) # a.k.a. ::Klarna::API::PNO_FORMATS[:SE]
+    end
+
+    it 'should handle pno-format as integer (pno-format ID)' do
+      assert @klarna.get_addresses("4304158399", :SE)
+    end
+
+    # it 'should pre-validate the specified pno, and raise validation error if it s invalid without any service call'
+
+    describe "SE" do
+      it 'should return address for a valid pno' do
+        result = @klarna.get_addresses("4304158399", :SE)
+        assert_equal [@protocol_version, @user_agent, "4304158399", @klarna.store_id, @klarna.digest("4304158399"), 2, 5, '127.0.0.1'], @klarna.last_request_params
+        assert_equal [["Karl", "Lidin", "Junibacksg 42", "23634", "Hollviken", 209]], result
+
+        result = @klarna.get_addresses("5311096845", :SE)
+        assert_equal [@protocol_version, @user_agent, "5311096845", @klarna.store_id, @klarna.digest("5311096845"), 2, 5, '127.0.0.1'], @klarna.last_request_params
+        assert_equal [["Maud", "Johansson", "Köpmansg 7", "12149", "Johanneshov", 209]], result
+      end
+
+      it 'should ignore format symbols in pno' do
+        result = @klarna.get_addresses("430415-8399", :SE)
+        assert_equal [@protocol_version, @user_agent, "4304158399", @klarna.store_id, @klarna.digest("4304158399"), 2, 5, '127.0.0.1'], @klarna.last_request_params
+      end
+    end
+  end
+
+  describe '#get_address' do
+    it 'should be defined' do
+      assert_respond_to @klarna, :get_address
+    end
+
+    it 'should only return first returned address for a valid SSN' do
+      result = @klarna.get_address("4304158399", :SE)
+      assert_equal ["Karl", "Lidin", "Junibacksg 42", "23634", "Hollviken", 209], result
+    end
+  end
+
+  # Spec:
+  #   http://integration.klarna.com/en/api/standard-integration/functions/mkaddr
+  describe '#make_address' do
+    it 'should be defined' do
+      assert_respond_to @klarna, :make_address
+    end
+
+    describe "SE" do
+      it 'should generate an valid address array' do
+        assert_equal ({
+            'careof'  => "c/o Lidin",
+            'street'  => "Junibackg. 42",
+            'postno'  => "23634",
+            'city'    => "Hollviken",
+            'country' => 209,
+            'telno'   => "0765260000",
+            'cellno'  => "0765260000",
+            'email'   => "karl.lidin@klarna.com"
+          }),
+          @klarna.make_address("c/o Lidin", "Junibackg. 42", "23634", "Hollviken", :SE, "076 526 00 00", "076 526 00 00", "karl.lidin@klarna.com")
+      end
+
+      # TODO
+      describe 'argument constraints: raise argument error if not true (no API-call)' do
+        describe 'care_of' do
+          # it 'should be a string or nil'
+        end
+
+        describe 'street' do
+          # it 'should be a string'
+        end
+
+        describe 'postal code' do
+          # it 'should be a string/integer'
+        end
+
+        describe 'city' do
+          # it 'should be a string'
+        end
+
+        describe 'country' do
+          # it 'should be a string/symbol/integer (-> valid Klarna country ID)'
+        end
+
+        describe 'phone' do
+          # it 'should be a string/integer'
+
+          # it 'should ignore whitespace'
+        end
+
+        describe 'cell_phone' do
+          # it 'should be a string/integer'
+
+          # it 'should ignore whitespace'
+        end
+
+        describe 'email' do
+          # it 'should be a valid email (string)'
+        end
+      end
+    end
+  end
+
+  # Spec:
+  #   http://integration.klarna.com/en/api/standard-integration/functions/mkgoodsflags
+  describe '#make_goods' do
+    it 'should be defined' do
+      assert_respond_to @klarna, :make_goods
+    end
+
+    # it 'should require: quantity, artno vs title, price, vat'
+
+    # it 'should pre-validate the specified address values, and raise validation error if it s invalid without any service call'
+
+    describe 'argument constraints: raise argument error if not true (no API-call)' do
+      describe 'quantity' do
+        # it 'should be a integer/string'
+
+        # it 'should be >= 1'
+      end
+
+      describe 'artno' do
+        # it 'should be a integer/string if no title is specified'
+      end
+
+      describe 'title' do
+        # it 'should be a integer/string if no artno is specified'
+      end
+
+      describe 'price' do
+        # it 'should be a integer/string/decimal if no artno is specified'
+
+        # it 'should convert to cents if decimal (assumption)'
+      end
+
+      describe 'vat' do
+        # it 'should be a integer/string/decimal if no artno is specified'
+      end
+    end
+
+    it 'should generate an valid address structure: quantity, artno, title, price, vat' do
+      assert_equal ({
+          'goods' => {
+              'artno'     => "ABC123",
+              'title'     => "T-shirt",
+              'price'     => 2500,
+              'vat'       => 25.00,
+              'discount'  => 0.00,
+              'flags'     => 0
+            },
+          'qty' => 5
+        }),
+        @klarna.make_goods(5, "ABC123", "T-shirt", 25.00 * 100, 25)
+    end
+
+    it 'should generate an valid address structure: quantity, artno, title, price, vat, discount' do
+      assert_equal ({
+          'goods' => {
+              'artno'     => "ABC123",
+              'title'     => "T-shirt",
+              'price'     => 2500,
+              'vat'       => 25.00,
+              'discount'  => 10.00,
+              'flags'     => 0
+            },
+          'qty' => 5
+        }),
+        @klarna.make_goods(5, "ABC123", "T-shirt", 25.00 * 100, 25, 10)
+    end
+
+    it 'should generate an valid address structure: quantity, artno, title, price, vat, discount, flags' do
+      assert_equal ({
+          'goods' => {
+              'artno'     => "ABC123",
+              'title'     => "T-shirt",
+              'price'     => 2500,
+              'vat'       => 25.00,
+              'discount'  => 10.00,
+              'flags'     => 32
+            },
+          'qty' => 5
+        }),
+        @klarna.make_goods(5, "ABC123", "T-shirt", 25.00 * 100, 25, 10, ::Klarna::API::GOODS[:INC_VAT])
+    end
+
+    it 'should be possible to set flags via options' do
+      assert_equal ({
+          'goods' => {
+              'artno'     => "ABC123",
+              'title'     => "T-shirt",
+              'price'     => 2500,
+              'vat'       => 25.00,
+              'discount'  => 0.00,
+              'flags'     => 48
+            },
+          'qty' => 5
+        }),
+        @klarna.make_goods(5, "ABC123", "T-shirt", 25.00 * 100, 25, 0, :inc_vat => true, :is_handling => true)
+    end
+  end
+
+  # Spec:
+  #   http://integration.klarna.com/en/api/advanced-integration/functions/hasaccount
+  describe '#has_account?' do
+    it 'should be defined' do
+      assert_respond_to @klarna, :has_account?
+    end
+
+    # FIXME: Throws error "Unknown call (-99)". :S
+    it 'should be true' # do
+    #   assert_equal true, @klarna.has_account?("4304158399", :SE)
+    # end
+  end
+
+end

data/test/klarna/api_test.rb

@@ -0,0 +1,184 @@
+# encoding: utf-8
+require 'test_helper'
+require 'iconv'
+
+describe ::Klarna::API do
+
+  before do
+    ::Klarna.setup do |c|
+      c.store_id = VALID_STORE_ID
+      c.store_secret = VALID_STORE_SECRET
+    end
+  end
+
+  describe "Helpers" do
+
+    describe '.client' do
+      it 'should be defined' do
+        assert_respond_to ::Klarna::API, :client
+      end
+
+      it 'should create a new ::Klarna RPC-API client with default settings' do
+        client = ::Klarna::API.client
+        assert_instance_of ::Klarna::API::Client, client
+      end
+
+      it 'should reuse existing ::Klarna RPC-API client instance if exists' do
+        assert_equal ::Klarna::API.client, ::Klarna::API.client
+      end
+
+      it 'should be possible to force-re-initialize the client even though it is already initialized' do
+        client_1 = ::Klarna::API.client(true)
+        client_2 = ::Klarna::API.client(true)
+        refute_equal client_1, client_2
+      end
+    end
+
+    describe '.validated_kind' do
+      it 'should be defined' do
+        assert_respond_to ::Klarna::API, :validated_kind
+      end
+
+      it 'should only allow kinds: :country, :currency, :language, :pno_format, :address_format' do
+        assert_equal :COUNTRIES, ::Klarna::API.validated_kind(:country)
+        assert_equal :COUNTRIES, ::Klarna::API.validated_kind('country')
+
+        assert_equal :CURRENCIES, ::Klarna::API.validated_kind(:currency)
+        assert_equal :CURRENCIES, ::Klarna::API.validated_kind('currency')
+
+        assert_equal :LANGUAGES, ::Klarna::API.validated_kind(:language)
+        assert_equal :LANGUAGES, ::Klarna::API.validated_kind('language')
+
+        assert_equal :PNO_FORMATS, ::Klarna::API.validated_kind(:pno_format)
+        assert_equal :PNO_FORMATS, ::Klarna::API.validated_kind('pno_format')
+
+        assert_equal :ADDRESS_FORMATS, ::Klarna::API.validated_kind(:address_format)
+        assert_equal :ADDRESS_FORMATS, ::Klarna::API.validated_kind('address_format')
+
+        assert_raises ::Klarna::API::KlarnaArgumentError do
+          ::Klarna::API.validated_kind(:hello)
+        end
+      end
+    end
+
+    describe '.key_for' do
+      it 'should be defined' do
+        assert_respond_to ::Klarna::API, :key_for
+      end
+
+      it 'should return valid format KEY for a specified kind-key' do
+        assert_equal :SE, ::Klarna::API.key_for(:pno_format, 'SE')
+        assert_equal :SE, ::Klarna::API.key_for(:pno_format, :SE)
+      end
+
+      it 'should return valid format KEY for a specified kind-value' do
+        assert_equal :SE, ::Klarna::API.key_for(:pno_format, '2')
+        assert_equal :SE, ::Klarna::API.key_for(:pno_format, 2)
+      end
+    end
+
+    describe '.id_for' do
+      it 'should be defined' do
+        assert_respond_to ::Klarna::API, :id_for
+      end
+
+      it 'should return valid format ID for a specified kind-key' do
+        assert_equal 2, ::Klarna::API.id_for(:pno_format, 'SE')
+        assert_equal 2, ::Klarna::API.id_for(:pno_format, :SE)
+      end
+
+      it 'should return valid format ID for a specified kind-value' do
+        assert_equal 2, ::Klarna::API.id_for(:pno_format, '2')
+        assert_equal 2, ::Klarna::API.id_for(:pno_format, 2)
+      end
+    end
+
+    describe '.validate_arg' do
+      it 'should be defined' do
+        assert_respond_to ::Klarna::API, :validate_arg
+      end
+
+      # TODO: Add missing specs.
+    end
+
+    describe '.parse_flags' do
+      it 'should be defined' do
+        assert_respond_to ::Klarna::API, :parse_flags
+      end
+
+      it 'should calculate value for one flag properly' do
+        assert_equal 0, ::Klarna::API.parse_flags(:GOODS, :IS_SHIPMENT => false)
+        assert_equal 8, ::Klarna::API.parse_flags(:GOODS, :IS_SHIPMENT => true)
+      end
+
+      it 'should calculate value for multiple flags properly using hash (bitwise OR - a.k.a sum)' do
+        # Maybe overkill, but here we go... ;)
+
+        # Uppercase
+        assert_equal 0,   ::Klarna::API.parse_flags(:GOODS, :IS_SHIPMENT => false,  :IS_HANDLING => false,  :INC_VAT => false)
+        assert_equal 8,   ::Klarna::API.parse_flags(:GOODS, :IS_SHIPMENT => true,   :IS_HANDLING => false,  :INC_VAT => false)
+        assert_equal 16,  ::Klarna::API.parse_flags(:GOODS, :IS_SHIPMENT => false,  :IS_HANDLING => true,   :INC_VAT => false)
+        assert_equal 32,  ::Klarna::API.parse_flags(:GOODS, :IS_SHIPMENT => false,  :IS_HANDLING => false,  :INC_VAT => true)
+        assert_equal 24,  ::Klarna::API.parse_flags(:GOODS, :IS_SHIPMENT => true,   :IS_HANDLING => true,   :INC_VAT => false)
+        assert_equal 48,  ::Klarna::API.parse_flags(:GOODS, :IS_SHIPMENT => false,  :IS_HANDLING => true,   :INC_VAT => true)
+        assert_equal 56,  ::Klarna::API.parse_flags(:GOODS, :IS_SHIPMENT => true,   :IS_HANDLING => true,   :INC_VAT => true)
+
+        # Lowercase (for readability)
+        assert_equal 0,   ::Klarna::API.parse_flags(:goods, :is_shipment => false,  :is_handling => false,  :inc_vat => false)
+        assert_equal 8,   ::Klarna::API.parse_flags(:goods, :is_shipment => true,   :is_handling => false,  :inc_vat => false)
+        assert_equal 16,  ::Klarna::API.parse_flags(:goods, :is_shipment => false,  :is_handling => true,   :inc_vat => false)
+        assert_equal 32,  ::Klarna::API.parse_flags(:goods, :is_shipment => false,  :is_handling => false,  :inc_vat => true)
+        assert_equal 24,  ::Klarna::API.parse_flags(:goods, :is_shipment => true,   :is_handling => true,   :inc_vat => false)
+        assert_equal 48,  ::Klarna::API.parse_flags(:goods, :is_shipment => false,  :is_handling => true,   :inc_vat => true)
+        assert_equal 56,  ::Klarna::API.parse_flags(:goods, :is_shipment => true,   :is_handling => true,   :inc_vat => true)
+      end
+    end
+
+    describe '.digest' do
+      it 'should be defined' do
+        assert_respond_to ::Klarna::API, :digest
+      end
+
+      it 'should calculate a valid digest secret for single value' do
+        assert_equal "RvaNtGgJzI4FLDLz7dH4PIwWl3vYwR6qpx/whgCf7qkxj4+0prU0zXOAw9Jc\nSQw+iMqzgAMyjq79azKmp40uWg==", ::Klarna::API.digest("secret 123")
+      end
+
+      it 'should calculate a valid digest secret for an array of values' do
+        assert_equal ::Klarna::API.digest("secret 1:secret 2:secret 3"), ::Klarna::API.digest("secret 1", "secret 2", "secret 3")
+        assert_equal "yKMen8LPEev5yLYUTjFvJdWY/t2tTx3JsK2s1nIgwu3wFfrdu6Kzce1VcGfo\nC/6OXQtR6nGVntYhEP7KUmtADw==", ::Klarna::API.digest("secret 1", "secret 2", "secret 3")
+      end
+    end
+
+    describe '.encode' do
+      it 'should be defined' do
+        assert_respond_to ::Klarna::API, :encode
+      end
+
+      it 'should encode a specified string from "UTF-8" to "ISO-8859-1" properly' do
+        if RUBY_VERSION > '1.9'
+          assert_equal 'ISO-8859-1', ::Klarna::API.encode("ÅÄÖ".force_encoding('UTF-8')).encoding.name
+        else
+          ::Iconv rescue require 'iconv'
+          assert_equal 1, ::Klarna::API.encode("Ö").length # if it is UTF-8 String#length returns 2 bytes in Ruby < 1.9
+        end
+      end
+    end
+
+    describe '.decode' do
+      it 'should be defined' do
+        assert_respond_to ::Klarna::API, :decode
+      end
+
+      it 'should encode a specified string from "ISO-8859-1" to "UTF-8" properly' do
+        if RUBY_VERSION > '1.9'
+          assert_equal 'UTF-8', ::Klarna::API.decode("ÅÄÖ".force_encoding('ISO-8859-1')).encoding.name
+        else
+          ::Iconv rescue require 'iconv'
+          assert_equal 2, ::Klarna::API.decode("Ö").length # if it is UTF-8 String#length returns 2 bytes in Ruby < 1.9
+        end
+      end
+    end
+
+  end
+
+end