nordea-rb 0.2.0

data/test/test_account.rb

@@ -0,0 +1,168 @@
+require 'test_helper'
+
+class TestAccount < Test::Unit::TestCase
+  context Nordea::Account do
+    setup do
+      @session = Nordea::Session.new('foo', 'bar')
+      @account = Nordea::Account.new(:name => "savings account", :balance => 1234.50, :currency => 'EUR', :index => '2')
+      @account.session = @session
+    end
+  
+    context "each Account instance" do
+      should "have a description of the account for #to_s" do
+        assert_equal 'savings account: 1234.50 EUR', @account.to_s
+      end
+    
+      should "have a pointer to the current session object" do
+        assert_equal @session, @account.session
+      end
+      
+      should "request the transactions from the server" do
+        response = mock(:parse_xml => Hpricot.XML(fixture_content('account')))
+        @session.expects(:request).with('KF11TW', {}).returns(response)
+        @account.transactions
+      end
+    end
+    
+    context "transfers" do
+      setup do
+        @savings = @account
+        @checking = Nordea::Account.new(:name => "checking account", :balance => 100.0, :currency => 'EUR', :index => '1')
+        @checking.session = @session
+        @session.stubs(:request)
+        @session.stubs(:accounts)
+      end
+      
+      context "withdraw" do
+        should "query phase 1" do
+          @session.expects(:request).with(Nordea::Commands::TRANSFER_TO_OWN_ACCOUNT_PHASE_1, has_entries({
+            :from_account_info => "2:EUR:savings account",
+            :amount            => "6,5",
+            :currency_code     => "EUR",
+          }));
+        
+          @savings.withdraw(6.5, "EUR", :deposit_to => @checking)
+        end
+
+        should "query phase 2" do
+          @session.expects(:request).with(Nordea::Commands::TRANSFER_TO_OWN_ACCOUNT_PHASE_2, has_entries({
+            :from_account_info => "2:EUR:savings account",
+            :to_account_info   => "1:EUR:checking account",
+            :amount            => "6,5",
+            :currency_code     => "EUR",
+          }))
+        
+          @savings.withdraw(6.5, "EUR", :deposit_to => @checking)
+        end
+
+        should "query phase 3" do
+          @session.expects(:request).with(Nordea::Commands::TRANSFER_TO_OWN_ACCOUNT_PHASE_3, has_entries({
+            :currency_code             => "EUR",
+        		:from_account_number       => "2",
+        		:from_account_name         => "savings account",
+        		:to_account_number         => "1",
+        		:to_account_name           => "checking account",
+        		:amount                    => "6,5",
+        		:exchange_rate             => "0",
+        		:from_currency_code        => "EUR",
+        		:to_currency_code          => "EUR"
+          }))
+        
+          @savings.withdraw(6.5, "EUR", :deposit_to => @checking)
+        end
+        
+        should "reload the accounts" do
+          @session.expects(:accounts).with(true)
+          @savings.withdraw(6.5, "EUR", :deposit_to => @checking)
+        end
+      end
+      
+      context "deposit" do
+        should "should withdraw from the other account" do
+          @checking.expects(:withdraw).with(6.5, 'EUR', :deposit_to => @savings)
+          @savings.deposit(6.5, 'EUR', :withdraw_from => @checking)
+        end
+      end
+    end
+    
+    context "the list of transactions" do
+      setup do
+        response = stub(:parse_xml => Hpricot.XML(fixture_content('account')))
+        @session.stubs(:request).with('KF11TW', {}).returns(response)
+        @transactions = @account.transactions
+      end
+    
+      should "find the accounts's transactions" do
+        assert_equal 20, @transactions.length
+      end
+  
+      should "create an array with all transactions" do
+        assert_instance_of Array, @transactions
+      end
+  
+      should "setup each transaction class" do
+        assert_instance_of Nordea::Transaction, @transactions.first
+      end
+  
+      should "set transaction's date" do
+        assert_equal "2009-08-16", @transactions.first.date.to_s
+      end
+
+      should "set transaction's amount" do
+        assert_equal -52.70, @transactions.first.amount
+      end
+
+      should "set transaction's text" do
+        assert_equal "Res. köp", @transactions.first.text
+      end
+    end
+  
+    context "creating a new Account object from XML" do
+      setup do
+        @xml_node = <<-END
+          <card title="&#214;versikt">
+        	  <p>
+              <anchor title="Kontoutdrag">Sparkonto
+                <go method="get" href="https://gfs.nb.se/bin2/gfskod">
+                  <postfield name="OBJECT" value="KF11TW"/>
+                  <postfield name="sid" value="123456789"/>
+                  <postfield name="account_name" value="Sparkonto"/>
+                  <postfield name="account_index" value="1"/>
+                  <postfield name="account_type" value="001"/>
+                  <postfield name="account_currency_code" value="SEK"/>
+                  <postfield name="top_page" value="1"/>
+                </go>
+              </anchor>
+        	    <br/>&#160;&#160;2.000,00&#160;SEK<br/>
+        	  </p>
+          </card>
+        END
+        @account = Nordea::Account.new_from_xml(@xml_node, Nordea::Session.new('foo', 'bar'))
+      end
+    
+      should "create a new Account instance" do
+        assert_instance_of Nordea::Account, @account
+      end
+      
+      should "set the session object" do
+        assert_instance_of Nordea::Session, @account.session
+      end
+      
+      should "have a name" do
+        assert_equal "Sparkonto", @account.name
+      end
+    
+      should "have a currency" do
+        assert_equal "SEK", @account.currency
+      end
+    
+      should "have a balance" do
+        assert_equal 2000.0, @account.balance
+      end
+      
+      should "have an index" do
+        assert_equal "1", @account.index
+      end
+    end
+  end
+end

data/test/test_functional.rb

@@ -0,0 +1,63 @@
+require "test_helper"
+
+class FunctionalTest < Test::Unit::TestCase
+  context "functional testing" do
+    class ::Nordea::Request
+      alias_method :orig_connection, :connection
+      def faked_connection
+        FakedConnection.new(@command)
+      end
+    end
+    
+    setup do
+      Nordea::Request.send :alias_method, :connection, :faked_connection
+    end
+
+    teardown do
+      Nordea::Request.send :alias_method, :connection, :orig_connection
+    end
+    
+    should "login and display the number of accounts" do
+      def assert_requests_made(session, num_requests = 1, msg = nil, &blk)
+        before = session.num_requests
+        yield
+        after = session.num_requests
+        assert_equal before + num_requests, after, msg
+      end
+      
+      Nordea.new('1234567890', '0987') do |n|
+        
+        # logging in
+        assert_equal 2, n.num_requests # requires 2 requests to login
+        
+        # listing the accounts
+        assert_requests_made(n, 1) { n.accounts.size }
+        assert_requests_made(n, 0) do
+          assert_equal %w[Sparkonto Huvudkonto Betalkonto], n.accounts.map(&:name)
+        end
+        
+        assert_requests_made(n, 1, "reloading the accounts cache") { n.accounts(true) }
+        
+        # getting one of the account's transactions
+        assert_requests_made(n, 1) do
+          assert_equal 5, n.accounts.first.transactions.size # we use the same ficture so all accounts have 20 transactions
+        end
+        
+        # re-ask for the num of transactions
+        assert_requests_made(n, 0) do
+          assert_equal 5, n.accounts['Sparkonto'].transactions.size
+        end
+        
+        assert_requests_made(n, 1, "reload the cached transactions list") { 
+          n.accounts['Sparkonto'].transactions(true).size 
+        }
+        
+        # ask for the other accounts's transactions
+        assert_requests_made(n, 2) do
+          assert_equal 10, n.accounts['Huvudkonto'].transactions.size
+          assert_equal 20, n.accounts['Betalkonto'].transactions.size
+        end
+      end
+    end
+  end
+end

data/test/test_helper.rb

@@ -0,0 +1,58 @@
+require File.join(File.dirname(__FILE__), *%w".. lib nordea")
+require 'shoulda'
+gem 'mocha', '=0.9.5'
+require 'mocha'
+require "test/unit"
+require 'ostruct'
+
+class FakedConnection
+  def initialize(command)
+    @command = command
+  end
+  
+  def post(script, query, headers)
+    @fixture = {
+      Nordea::Commands::LOGIN_PHASE_1 => 'login',
+      Nordea::Commands::RESOURCE      => 'accounts',
+      Nordea::Commands::TRANSACTIONS  => 'account'
+    }[@command]
+    @query = query
+    OpenStruct.new(:body => _body_from_fixture)
+  end
+  
+  def _body_from_fixture
+    @fixture = case @query
+      when /account_name=Betalkonto/ then fixture = 'account'
+      when /account_name=Huvudkonto/ then fixture = 'account_10_transactions'
+      when /account_name=Sparkonto/  then fixture = 'account_5_transactions'
+    end if @fixture == 'account'
+    @fixture ? fixture_contents(@fixture) : ""
+  end
+  
+  # yes we redefined this for now
+  def fixture_contents(fixture)
+    IO.read(File.join(File.expand_path(File.join(File.dirname(__FILE__), "fixtures")), "#{fixture}.wml"))
+  end
+end
+
+class Test::Unit::TestCase
+  FIXTURES_PATH = File.expand_path(File.join(File.dirname(__FILE__), "fixtures")) unless defined?(FIXTURES_PATH)
+  
+  def fixture_content(filename)
+    IO.read(File.join(FIXTURES_PATH, "#{filename}.wml"))
+  end
+  
+  # From Rails ActiveSupport::Testing::Declarative
+  def self.test(name, &block)
+    test_name = "test_#{name.gsub(/\s+/,'_')}".to_sym
+    defined = instance_method(test_name) rescue false
+    raise "#{test_name} is already defined in #{self}" if defined
+    if block_given?
+      define_method(test_name, &block)
+    else
+      define_method(test_name) do
+        flunk "No implementation provided for #{name}"
+      end
+    end
+  end
+end

data/test/test_nordea.rb

@@ -0,0 +1,49 @@
+require 'test_helper'
+
+class TestNordea < Test::Unit::TestCase
+  context "Setting personnummer and pincode" do
+    should "raise an error if no pnr and pin code are given" do
+      assert_raise(ArgumentError) { Nordea.new }
+    end
+  
+    should "raise an ArgumentError if pnr is not exactly 10 digits" do
+      assert_raise(ArgumentError) { Nordea.new({ :pnr => "1234", :pin => "1234" }) }
+    end
+  
+    should "raise an ArgumentError if the pin code is not exactly 4 digits" do
+      assert_raise(ArgumentError) { Nordea.new({ :pnr => "1234567890", :pin => "1" }) }
+    end
+  
+    should "allow to set the pnr and pin code using two arguments" do
+      n = Nordea.new("1234567890", "1234")
+      assert_equal "1234567890", n.pnr
+      assert_equal "1234", n.pin
+    end
+  
+    should "allow to set the pnr and pin using a hash" do
+      n = Nordea.new({ :pnr => '1234567890', :pin => '1234' })
+      assert_equal "1234567890", n.pnr
+      assert_equal "1234", n.pin
+    end
+  
+    should "set the pnr and pin as strings" do
+      n = Nordea.new({ :pnr => 1234567890, :pin => "1234" })
+      assert_equal "1234567890", n.pnr
+      assert_equal "1234", n.pin
+    end
+
+    should "allow to set the pnr with seperators" do
+      n = Nordea.new({ :pnr => "12-34 56-7890", :pin => "1234" })
+      assert_equal "1234567890", n.pnr
+    end
+
+    should "allow to set the pin with seperators" do
+      n = Nordea.new({ :pnr => "1234567890", :pin => "12 - 34" })
+      assert_equal "1234", n.pin
+    end
+    
+    should "raise an error if there is no pin provided" do
+      assert_raise(ArgumentError) { Nordea.new("1234567890") }
+    end
+  end
+end

data/test/test_request.rb

@@ -0,0 +1,44 @@
+require "test_helper"
+
+class TestRequest < Test::Unit::TestCase
+  context "a request in general" do
+    setup do
+      @http = mock("Net::HTTP")
+      @response = mock("Net::HTTPResponse")
+      @response.stubs(:body => 'the body')
+      @http.stubs(:use_ssl= => true, :post => @response)
+      Net::HTTP.stubs(:new).returns(@http)
+    end
+    
+    should "use create a new Net:HTTP instance" do
+      Net::HTTP.expects(:new).returns(@http)
+      request = Nordea::Request.new('foo')
+    end
+    
+    should "use ssl" do
+      @http.expects(:use_ssl=).with(true)
+      request = Nordea::Request.new('foo')
+    end
+    
+    context "the query string" do
+      should "include the command as OBJECT" do
+        request = Nordea::Request.new('foo')
+        assert_match /OBJECT=foo/, request.query
+      end
+      
+      should "include extra params if sent" do
+        request = Nordea::Request.new('cmd', { :foo => 'bar', :boo => 'far' })
+        assert_match /OBJECT=cmd/, request.query
+        assert_match /foo=bar/, request.query
+        assert_match /boo=far/, request.query
+      end
+    end
+    
+    should "parse the xml" do
+      Hpricot.expects(:XML).with("foo")
+      @response.stubs(:body).returns("foo")
+      request = Nordea::Request.new('cmd')
+      request.parse_xml
+    end
+  end
+end

data/test/test_session.rb

@@ -0,0 +1,129 @@
+require "test_helper"
+
+class TestSession < Test::Unit::TestCase
+  context "a session in general" do
+    setup do
+      user, code = "1234567890", "1234"
+      @session = Nordea::Session.new(user, code)
+      @phase1_params = { :kundnr => user, :pinkod => code, :sid => "0" }
+      @response = stub(:parse_xml => '<foo></foo>')
+    end
+    
+    context "logging in" do
+      setup do
+        @xml_fixture = fixture_content('login')
+        @xml_data = Hpricot.XML(@xml_fixture)
+        @response.stubs(:parse_xml).returns(@xml_data)
+        Nordea::Request.stubs(:new).returns(@response)
+      end
+      
+      should "send the first request (login phase #1)" do
+        Nordea::Request.expects(:new).with('WAP00', @phase1_params).returns(@response)
+        @session.login
+      end
+      
+      should "parse the response xml" do
+        @response.expects(:parse_xml).returns(@xml_data)
+        @session.login
+      end
+      
+      should 'set the token from the response xml' do
+        @session.login
+        assert_equal "123456789", @session.token
+      end
+      
+      should "make the second request (login phase #2)" do
+        Nordea::Request.expects(:new).with('KK10', {
+          :bank => "mobile_light", :sid => '123456789', 
+          :no_prev => "1", :contract => "0000000:HI:FOO+BAR" })
+        @session.login
+      end
+    end
+    
+    context "invalid login" do
+      setup do
+        @xml_fixture = fixture_content('error')
+        @xml_data = Hpricot.XML(@xml_fixture)
+        @response.stubs(:parse_xml).returns(@xml_data)
+        Nordea::Request.stubs(:new).returns(@response)
+      end
+      
+      should "raise Nordea::InvalidLogin if login is invalid" do
+        assert_raise(Nordea::InvalidLogin) { @session.login }
+      end
+      
+      should "get the error message from the xml doc" do
+        begin
+          @session.login
+        rescue Nordea::InvalidLogin => e
+          assert_equal "Pinkoden ni angivit är spärrad", e.message
+        end
+      end
+    end
+    
+    should "use the sid param as token if set" do
+      Nordea::Request.expects(:new).with('cmd', { :sid => 't0k3n' })
+      @session.request('cmd', { :sid => 't0k3n' })
+    end
+    
+    should "request a token unless there is one" do
+      @session.expects(:token).returns('my-token')
+      Nordea::Request.expects(:new).with('cmd', { :sid => 'my-token' })
+      @session.request('cmd')
+    end
+
+    should "logout" do
+      Nordea::Request.expects(:new).with('LL99', { :sid => 'token'})
+      @session.token = 'token'
+      @session.logout
+    end
+  end
+  
+  context "creating the account objects" do
+    setup do
+      @session = Nordea::Session.new('1234567890', '1234')
+      @response = stub(:parse_xml => Hpricot.XML(fixture_content('accounts')))
+      Nordea::Request.stubs(:new).returns(@response)
+    end
+  
+    should "should setup the accounts" do
+      assert_equal 3, @session.accounts.size
+    end
+  
+    should "set each account's name" do
+      names = @session.accounts.map(&:name)
+      assert_equal ["Betalkonto", "Huvudkonto", "Sparkonto"], names.sort
+    end
+  
+    should "find each accounts's balance" do
+      balances = { "Sparkonto"  => 2000.00,
+  			           "Huvudkonto" => 5643.50,
+  			           "Betalkonto" =>  179.05 }
+      @session.accounts.each do |account|
+        assert_equal balances[account.name], account.balance
+      end
+    end
+  
+    should "find each accounts's currency" do
+      assert_equal ["SEK"], @session.accounts.map(&:currency).uniq
+    end
+    
+    should "respond to #to_command_params with the extra parameters" do
+      assert_equal({
+        'account_name'          => 'Sparkonto',
+        'account_index'         => '1',
+        'account_type'          => '001',
+        'account_currency_code' => 'SEK',
+        'top_page'              => '1'
+      }, @session.accounts.first.to_command_params)
+    end
+    
+    should "access the account by name using #[]" do
+      assert_equal @session.accounts[1], @session.accounts["Huvudkonto"]
+    end
+
+    should "find the account's name by pattern when using #[] with a regexp" do
+      assert_equal @session.accounts[1], @session.accounts[/huvud/i]
+    end
+  end
+end

data/test/test_transaction.rb

@@ -0,0 +1,58 @@
+require 'test_helper'
+
+class TestTransaction < Test::Unit::TestCase
+  def setup
+    @xml_node = <<-END
+    <anchor>090816&#160;&#160;-52,70
+			<go href="#trans">
+				<setvar name="date" value="2009-08-16"/>
+				<setvar name="amount" value="-52,70"/>
+				<setvar name="text" value="Res. k&#246;p"/>
+			</go>
+		</anchor>
+    END
+    @transaction = Nordea::Transaction.new_from_xml(@xml_node)
+  end
+  
+  should "create a new transaction from a XML node" do
+    assert_instance_of Nordea::Transaction, @transaction
+  end
+
+  should "have a date" do
+    assert_instance_of Date, @transaction.date
+    assert_equal "2009-08-16", @transaction.date.to_s
+  end
+  
+  should "have an amount" do
+    assert_equal -52.70, @transaction.amount
+  end
+  
+  should "have a text" do
+    assert_equal "Res. köp", @transaction.text
+  end
+  
+  # should "allow to create a Transaction using a hash for params" do
+  #   transaction = Nordea::Transaction.new(:date => '2009-10-11', :text => "foo", :amount => -13.37)
+  #   assert_equal '2009-10-11', transaction.date.to_s
+  #   assert_equal 'foo', transaction.text
+  #   assert_equal -13.37, transaction.amount
+  # end
+
+  should "raise an ArgumentError if not enough arguments are given" do
+    assert_raise(ArgumentError) { Nordea::Transaction.new }
+    assert_raise(ArgumentError) { Nordea::Transaction.new('foo') }
+    assert_raise(ArgumentError) { Nordea::Transaction.new('foo', 'bar') }
+  end
+  
+  should "know if it is a withdrawal" do
+    t = Nordea::Transaction.new('2009-01-01', -100.00, 'ACME Store')
+    assert t.withdrawal?
+    assert !t.deposit?
+  end
+
+  should "know if it is a deposit" do
+    t = Nordea::Transaction.new('2009-01-01', 10.00, 'Salery')
+    assert t.deposit?
+    assert !t.withdrawal?
+  end
+end

metadata

@@ -0,0 +1,99 @@
+--- !ruby/object:Gem::Specification 
+name: nordea-rb
+version: !ruby/object:Gem::Version 
+  version: 0.2.0
+platform: ruby
+authors: 
+- "Martin Str\xC3\xB6m"
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-10-24 00:00:00 -04:00
+default_executable: nordea
+dependencies: []
+
+description: Ruby library for accessing your Nordea Bank account and transferring money between your own accounts.
+email: name@my-domain.se
+executables: 
+- nordea
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE
+- README.markdown
+files: 
+- LICENSE
+- README.markdown
+- Rakefile
+- VERSION
+- bin/nordea
+- lib/nordea.rb
+- lib/nordea/request.rb
+- lib/nordea/resources.rb
+- lib/nordea/resources/account.rb
+- lib/nordea/resources/card.rb
+- lib/nordea/resources/fund.rb
+- lib/nordea/resources/loan.rb
+- lib/nordea/resources/resource.rb
+- lib/nordea/session.rb
+- lib/nordea/support.rb
+- lib/nordea/transaction.rb
+- lib/nordea/version.rb
+- test/fixtures/account.wml
+- test/fixtures/account_10_transactions.wml
+- test/fixtures/account_15_transactions.wml
+- test/fixtures/account_5_transactions.wml
+- test/fixtures/accounts.wml
+- test/fixtures/accounts_overview.wml
+- test/fixtures/error.wml
+- test/fixtures/logged_in_main_menu.wml
+- test/fixtures/login.wml
+- test/fixtures/transfer_to_own_account.wml
+- test/fixtures/transfers.wml
+- test/fixtures/transfers_1.wml
+- test/fixtures/transfers_2.wml
+- test/fixtures/transfers_3.wml
+- test/test_account.rb
+- test/test_functional.rb
+- test/test_helper.rb
+- test/test_nordea.rb
+- test/test_request.rb
+- test/test_session.rb
+- test/test_transaction.rb
+has_rdoc: true
+homepage: http://github.com/haraldmartin/nordea-rb
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: Ruby library for accessing your Nordea Bank account and transferring money between your own accounts.
+test_files: 
+- test/test_account.rb
+- test/test_functional.rb
+- test/test_helper.rb
+- test/test_nordea.rb
+- test/test_request.rb
+- test/test_session.rb
+- test/test_transaction.rb