klarna 0.1.3

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,137 @@
+# encoding: utf-8
+require 'test_helper'
+
+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
+
+      # it 'should...'
+    end
+
+    describe '.digest' do
+      it 'should be defined' do
+        assert_respond_to ::Klarna::API, :digest
+      end
+
+      it 'should calculate a valid digest secret for one value' do
+        # TODO
+        # skip
+      end
+
+      it 'should calculate a valid digest secret for an array of values' do
+        # TODO
+        # skip
+      end
+
+      it 'should raise error if specified value is nor a string or an array' do
+        # TODO
+        # skip
+      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
+        # TODO
+        # skip
+      end
+    end
+
+  end
+
+end

data/test/klarna_test.rb

@@ -0,0 +1,204 @@
+# encoding: utf-8
+require 'test_helper'
+
+describe Klarna do
+
+  before do
+    Klarna.reset!
+    Klarna.store_config_file = File.join(File.dirname(__FILE__), 'fixtures', 'klarna.yml')
+  end
+
+  describe "Constants" do
+
+    describe 'VALID_COUNTRIES' do
+      it 'should be defined' do
+        assert defined?(Klarna::VALID_COUNTRIES)
+      end
+
+      # TODO: Add additional countries
+      it 'should have values: SE, NO, FI, DK' do
+        assert_equal [:SE, :NO, :FI, :DK], Klarna::VALID_COUNTRIES
+      end
+    end
+
+    describe 'DEFAULT_COUNTRY' do
+      it 'should be defined' do
+        assert defined?(Klarna::DEFAULT_COUNTRY)
+      end
+
+      it 'should have value: SE' do
+        assert_equal :SE, Klarna::DEFAULT_COUNTRY
+      end
+    end
+
+  end
+
+  describe "Configuration" do
+
+    describe '.mode' do
+      it 'should be defined' do
+        assert_respond_to Klarna, :mode
+      end
+
+      it 'should have default setting: :test' do
+        assert_equal :test, Klarna.mode
+      end
+
+      it 'should be configurable' do
+        swap Klarna, :mode => :production do
+          assert_equal :production, Klarna.mode
+        end
+      end
+    end
+
+    describe '.country' do
+      it 'should be defined' do
+        assert_respond_to Klarna, :country
+      end
+
+      it 'should have default setting: SE' do
+        assert_equal :SE, Klarna.country
+      end
+
+      it 'should be configurable' do
+        swap Klarna, :country => :NO do
+          assert_equal :NO, Klarna.country
+        end
+      end
+    end
+
+    describe '.store_id' do
+      it 'should be defined' do
+        assert_respond_to Klarna, :store_id
+      end
+
+      it 'should have default setting: nil' do
+        assert_equal nil, Klarna.store_id
+      end
+
+      it 'should be configurable' do
+        swap Klarna, :store_id => '123' do
+          assert_equal 123, Klarna.store_id
+        end
+      end
+    end
+
+    describe '.store_secret' do
+      it 'should be defined' do
+        assert_respond_to Klarna, :store_secret
+      end
+
+      it 'should have default setting: nil' do
+        assert_equal nil, Klarna.store_secret
+      end
+
+      it 'should be configurable' do
+        swap Klarna, :store_secret => 'ABC123' do
+          assert_equal 'ABC123', Klarna.store_secret
+        end
+      end
+    end
+
+    describe '.store_pclasses' do
+      it 'should be defined' do
+        assert_respond_to Klarna, :store_pclasses
+      end
+
+      it 'should have default setting: SE' do
+        assert_equal nil, Klarna.store_pclasses
+      end
+
+      # TODO:
+      # it 'should be configurable' do
+      # end
+    end
+
+    describe '.store_config_file' do
+      it 'should be defined' do
+        assert_respond_to Klarna, :mode
+      end
+
+      it 'should have default setting: nil' do
+        Klarna.reset!
+        assert_equal File.join(ENV['HOME'], '.klarna.yml'), Klarna.store_config_file
+      end
+
+      it 'should be configurable' do
+        swap Klarna, :store_config_file => '/path/to/a/file' do
+          assert_equal '/path/to/a/file', Klarna.store_config_file
+        end
+      end
+    end
+
+    describe '.logger' do
+      it 'should be defined' do
+        assert_respond_to Klarna, :logger
+      end
+
+      it 'should have default logger' do
+        assert_instance_of Logger, Klarna.logger
+      end
+
+      it 'should be configurable' do
+        custom_logger = ::Logger.new(::STDOUT)
+        swap Klarna, :logger => custom_logger do
+          assert_equal custom_logger, Klarna.logger
+        end
+      end
+    end
+
+    describe '.http_logging' do
+      it 'should be defined' do
+        assert_respond_to Klarna, :http_logging
+      end
+
+      it 'should have default setting: false' do
+        assert_equal false, Klarna.http_logging
+      end
+
+      it 'should be configurable' do
+        swap Klarna, :http_logging => true do
+          assert_equal true, Klarna.http_logging
+        end
+      end
+    end
+
+  end
+
+  describe "Helpers" do
+
+    describe '.setup' do
+      it 'should be defined' do
+        assert_respond_to Klarna, :setup
+      end
+
+      it 'should be possible to change settings in a block' do
+        Klarna.http_logging = false
+        assert_equal false, Klarna.http_logging
+
+        Klarna.setup do |c|
+          c.http_logging = true
+        end
+        assert_equal true, Klarna.http_logging
+      end
+    end
+
+    describe '.log' do
+      it 'should be defined' do
+        assert_respond_to Klarna, :log
+      end
+    end
+
+    describe '.load_credentials_from_file' do
+      it 'should be defined' do
+        assert_respond_to Klarna, :load_credentials_from_file
+      end
+
+      it 'should load settings from a external YAML config file' do
+        # TODO: Test loading settings from fixtures/klarna.yml
+      end
+    end
+
+  end
+
+end