africompta 1.9.10 → 1.9.11

data/test/ac_account.rb

@@ -0,0 +1,176 @@
+require 'test/unit'
+
+class TC_Account < Test::Unit::TestCase
+  def setup
+    dputs(1) { 'Setting up new data'
+    }
+    Entities.delete_all_data()
+
+    dputs(2) { 'Resetting SQLite' }
+    SQLite.dbs_close_all
+    FileUtils.cp('db.testGestion', 'data2/compta.db')
+    SQLite.dbs_open_load_migrate
+
+    dputs(2) { 'And searching for some accounts' }
+    @root = Accounts.match_by_name('Root')
+    @cash = Accounts.match_by_name('Cash')
+    @lending = Accounts.match_by_name('Lending')
+    @income = Accounts.match_by_name('Income')
+    @outcome = Accounts.match_by_name('Outcome')
+    @local = Users.match_by_name('local')
+
+    @user_1 = Users.create('user1', '', 'pass')
+    @user_2 = Users.create('user2', '', 'pass')
+  end
+
+  def teardown
+    Entities.save_all
+  end
+
+  def test_path
+    assert_equal 'Root::Cash', @cash.path
+  end
+
+  def test_del_account
+    AccountRoot.accounts.each { |a|
+      dputs(1) { "Found root-account #{a.inspect}" }
+      a.get_tree { |t|
+        dputs(1) {
+          "#{t.path} - #{t.deleted.inspect}"
+        }
+      }
+    }
+    assert_equal false, @root.delete, @root.inspect
+    assert_equal false, @income.delete
+    old_index = @lending.rev_index
+    assert_equal true, @lending.delete
+    assert_operator old_index, :<, @lending.rev_index
+
+    Accounts.create_path('Root::Cash::Foo', '')
+  end
+
+  def test_account_root
+    Accounts.create_path('Root::Archive')
+    assert_equal nil, AccountRoot.archive
+
+    Accounts.create_path('Archive')
+    assert_not_equal nil, AccountRoot.archive
+  end
+
+  def test_clean
+    Accounts.create_path('Test')
+    Accounts.dump true
+    count_mov, bad_mov, count_acc, bad_acc = AccountRoot.clean
+    assert_equal [4, 0, 19, 1],
+                 [count_mov, bad_mov, count_acc, bad_acc]
+
+    Accounts.dump
+    count_mov, bad_mov, count_acc, bad_acc = AccountRoot.clean
+    assert_equal [4, 0, 19, 0],
+                 [count_mov, bad_mov, count_acc, bad_acc]
+  end
+
+  def test_merge_two_users
+    @user_1.update_all
+    @u1 = {'user' => 'user1', 'pass' => 'pass'}
+    @user_2.update_all
+    @u2 = {'user' => 'user2', 'pass' => 'pass'}
+
+    a_id = ACaccess.post('account_get_id', @u1.merge('account' => 'Root'))
+    assert_equal '1', a_id
+
+    assert_equal '', ACaccess.get('accounts_get/user1,pass')
+    assert_equal '', ACaccess.get('accounts_get/user2,pass')
+  end
+
+  def test_merge_account_delete
+    test_merge_two_users
+
+    @lending.delete
+    dputs(3) { @lending.inspect }
+    ACaccess.post('account_put', @u1.merge('account' => @lending.to_s))
+    assert_equal '', ACaccess.get('accounts_get/user1,pass')
+    assert_equal @lending.to_s, ACaccess.get('accounts_get/user2,pass').chomp
+  end
+
+  def test_merge_account_change
+    test_merge_two_users
+
+    @lending.name = 'Lendings'
+    @lending.new_index
+    dputs(3) { @lending.inspect }
+    ACaccess.post('account_put', @u1.merge('account' => @lending.to_s))
+    assert_equal '', ACaccess.get('accounts_get/user1,pass')
+    assert_equal @lending.to_s, ACaccess.get('accounts_get/user2,pass').chomp
+
+    assert_equal 1, @lending.account_id
+  end
+
+  def test_print_pdf
+    @root.print_pdf('test.pdf', true)
+  end
+
+  def test_get_archives
+    (2011..2014).each { |y|
+      Movements.create('', Date.new(y), 1000, @income, @cash)
+    }
+    Movements.create('', Date.new(2013, 3, 3), 1000, @outcome, @cash)
+    Accounts.archive(1, 2014)
+
+    assert_equal %w(Archive::2011::Income Archive::2012::Income Archive::2013::Income),
+                 Accounts.get_by_path('Root::Income').get_archives.collect { |a|
+                   a.path }.sort
+    assert_equal %w(Archive::2012::Outcome Archive::2013::Outcome),
+                 Accounts.get_by_path('Root::Outcome').get_archives.collect { |a|
+                   a.path }.sort
+  end
+
+  def test_delete
+    acc = Accounts.create('newaccount', '', @cash)
+    assert acc.rev_index > 0
+    rindex = acc.rev_index
+    acc.delete
+    assert acc.rev_index > rindex
+  end
+
+  def test_report
+    date = Date.today
+
+    # Make a tree with depth two of accounts with movements inside
+    accs = Array.new(3) { Array.new(3) }
+    [1, 2].each { |src|
+      accs[src][0] = Accounts.create("src_#{src}", nil, @income)
+      [1, 2, 3].each { |sub|
+        accs[src][sub] = Accounts.create("sub_#{src}_#{sub}", nil, accs[src][0])
+        [1, 2, 3].each { |mov|
+          Movements.create("Mov for #{src}_#{sub} - #{mov}", date, 100 * src,
+                           accs[src][sub], @cash)
+        }
+        assert_equal -300 * src, accs[src][sub].total
+      }
+    }
+
+    reportAccount = ReportAccounts.create(account: @income, level: 1)
+    report = Reports.create(name: 'test', accounts: [reportAccount])
+
+    line = report.print_account_monthly(reportAccount, date, 1, 1)
+    dp line
+  end
+
+  def test_report_man
+    SQLite.dbs_close_all
+    FileUtils.cp('db.man', 'data2/compta.db')
+    SQLite.dbs_open_load
+    dputs(0) { 'Finished loading' }
+    #Accounts.search_all_.each{|acc|dp acc.path}
+    AccountRoot.actual.dump
+    entry = Accounts.get_by_path('Root::SaS::MaN Repos II::Entrés')
+    assert_not_nil entry
+
+    reportAccount = ReportAccounts.create(account: entry, level: 1)
+    report = Reports.create(name: 'test', accounts: [reportAccount])
+
+    line = report.print_account_monthly(reportAccount, Date.new(2014, 6), 1, 1)
+    dp line
+  end
+end

data/test/ac_merge.rb

@@ -0,0 +1,177 @@
+require 'test/unit'
+require 'net/http'
+
+class TC_Merge < Test::Unit::TestCase
+  def setup
+    dputs(1) { 'Setting up new data' }
+
+    Entities.delete_all_data()
+
+    start_other
+    @remote = Remotes.get_db('http://localhost:3303/acaccess', 'other', 'other')
+
+    dputs(2) { 'And searching for some accounts' }
+    @root = Accounts.match_by_name('Root')
+    @cash = Accounts.match_by_name('Cash')
+    @lending = Accounts.match_by_name('Lending')
+    @income = Accounts.match_by_name('Income')
+    @outcome = Accounts.match_by_name('Outcome')
+    @local = Users.match_by_name('local')
+
+    @user_1 = Users.create('user1', '', 'pass')
+    @user_2 = Users.create('user2', '', 'pass')
+  end
+
+  def teardown
+    Entities.save_all
+    if @other
+      dputs(3) { "Killing #{@other}" }
+      Process.kill(9, @other)
+      Process.wait
+      dputs(3) { "Joined #{@other}" }
+    end
+  end
+
+  def test_path
+    assert_equal 'Root::Cash', @cash.path
+  end
+
+  def start_other(wait=true)
+    dir = 'thread1'
+    FileUtils.rm_rf(dir)
+    FileUtils.mkdir(dir)
+    FileUtils.cp('other.rb', dir)
+    FileUtils.cp('other.conf', dir)
+    @other = Process.spawn('./other.rb')
+
+    while wait
+      begin
+        Net::HTTP.get(URI('http://localhost:3303/acaccess'))
+        return
+      rescue Errno::ECONNREFUSED
+        dputs(3) { 'Waiting on -other-' }
+        sleep 0.5
+      end
+    end
+  end
+
+  def post_form(path, hash)
+    dputs(4) { "postForm with path #{path}" }
+    Net::HTTP.post_form(URI.parse(@remote.url + "/merge/#{path}"),
+                        {'user' => @remote.name, 'pass' => @remote.pass}.merge(hash))
+  end
+
+  def get_form(path)
+    url = URI.parse(@remote.url)
+    dputs(4) { "Starting getForm with path #{path} - #{url.inspect}" }
+    Net::HTTP.get(url.host, "#{url.path}/merge/#{path}/#{@remote.name},#{@remote.pass}", url.port)
+  end
+
+  def test_start_other
+    assert Net::HTTP.get(URI('http://localhost:3303'))
+  end
+
+  def test_remote
+    @remote.check_version
+  end
+
+  def test_copied
+    # We test with a second user
+    @remote = Remotes.create(url: 'http://localhost:3303/acaccess', name: 'other2',
+                             pass: 'other2')
+
+    assert_equal 5, get_form('accounts_get').split("\n").count
+    @remote.do_copied
+    assert_equal '5,0', get_form('index')
+    assert_equal 0, get_form('accounts_get').split("\n").count
+  end
+
+  def test_check_versions
+    assert @remote.check_version
+    oldversion = $VERSION
+    $VERSION = 0
+    assert_raise RuntimeError do
+      @remote.check_version(false)
+    end
+    $VERSION = oldversion
+  end
+
+  def print_remote_accounts
+    get_form('accounts_get_all').split("\n").each { |a| p a }
+  end
+
+  def print_accounts
+    Accounts.search_all_.each { |a| p a.to_s }
+  end
+
+  def print_remote_movements
+    get_form('movements_get_all').split("\n").each { |a| p a }
+  end
+
+  def print_movements
+    Movements.search_all_.each { |m| p m.to_json }
+  end
+
+  def test_get_remote_accounts
+    #p Accounts.search_all_.last.to_s
+    @remote.do_copied
+    post_form('account_put',
+              account: "Initialisation\r27d1cfc78ed2ae03109b8963707b18f2-10\t"+
+                  "0.000\tNewAccount\t1\t#{AccountRoot.current.global_id}\tfalse\tfalse",
+              debug: true)
+    assert_equal 0, Accounts.search_by_name('NewAccount').count
+    @remote.get_remote_accounts
+    assert_equal 1, Accounts.search_by_name('NewAccount').count
+  end
+
+  def test_send_accounts
+    @remote.do_copied
+
+    Accounts.create('Salaries', 'salaries', @outcome)
+    remote_count = get_form('accounts_get_all').split("\n").count
+    @remote.setup_instance
+    @remote.send_accounts
+    assert_equal remote_count + 1,
+                 get_form('accounts_get_all').split("\n").count
+    assert_equal 0, get_form('accounts_get').split("\n").count
+  end
+
+  def test_get_remote_movements
+    @remote.do_copied
+
+    @remote.get_remote_movements
+    assert_equal 0, Movements.search_all_.count
+
+    mov_str = "{\"str\":\"new\\r62f7b25f8dc249a7d2af9e96809e1a38-1\\t"+
+        "1000.000\\t2015-01-02\\t#{@cash.global_id}\\t#{@outcome.global_id}\"}"
+    post_form('movements_put',
+              movements: [mov_str].to_json,
+              debug: true)
+    assert_equal 0, Movements.search_all_.count
+    @remote.get_remote_movements
+    assert_equal 1, Movements.search_all_.count
+  end
+
+  def test_send_movements
+    @remote.do_copied
+
+    Movements.create('new', '2015-01-02', 1000, @cash, @outcome)
+    assert_equal 0, get_form('movements_get_all').split("\n").count
+    @remote.setup_instance
+    @remote.send_movements
+    assert_equal 1, get_form('movements_get_all').split("\n").count
+    @remote.get_remote_movements
+    assert_equal 1, Movements.search_all_.count
+  end
+
+  def test_get_db
+    Entities.delete_all_data()
+    assert_equal 0, Accounts.search_all_.count
+    @remote = Remotes.get_db('http://localhost:3303/acaccess', 'other', 'other')
+
+    assert_equal 1, Users.search_all_.count
+    assert_equal 1, Remotes.search_all_.count
+
+    assert @remote.check_version
+  end
+end

data/{Test → test}/ac_movement.rb

@@ -7,7 +7,7 @@ class TC_Movement < Test::Unit::TestCase
 
     dputs(2) { 'Resetting SQLite' }
     SQLite.dbs_close_all
-    FileUtils.cp('db.testGestion', 'data/compta.db')
+    FileUtils.cp('db.testGestion', 'data2/compta.db')
     SQLite.dbs_open_load_migrate
 
     dputs(2) { 'And searching for some accounts' }
@@ -56,4 +56,17 @@ class TC_Movement < Test::Unit::TestCase
     assert_equal Movement, res.first.class
     assert_equal [2, 3], res.map { |m| m.rev_index }
   end
+
+  def test_date
+    Movements.create('newmov', '2015-01-02', 100, @income, @cash)
+    Entities.reload
+    assert_equal Date, Movements.find_by_desc('newmov').date.class
+
+    Entities.delete_all_data
+    Entities.load_all
+    Movements.create('newmov', '2015-01-02', 100, @income, @cash)
+    Entities.reload
+
+    assert_equal Date, Movements.find_by_desc('newmov').date.class
+  end
 end

data/{Test → test}/config_test.yaml

@@ -1,6 +1,5 @@
 StorageType:
-  CSV:
-    csv_dir: ./data2/
+  data_dir: ./data2/
 
 #autologin: linus
 #autologin: admin
@@ -25,7 +24,3 @@ AfriCompta:
 
 DiplomaDir: Diplomas
 
-Entities:
-  LogActions:
-    logging: false
-    

data/test/other.conf

@@ -0,0 +1 @@
+DATA_DIR=thread1

data/test/other.rb

@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+# encoding: UTF-8
+Encoding.default_external = Encoding::UTF_8
+
+require 'bundler/setup'
+require 'africompta'
+
+QooxView::init('entities', 'views')
+
+webrick_port = 3303
+dputs(2) { "Starting at port #{webrick_port}" }
+
+# Set default functions to use africompta
+ConfigBase.set_functions(%w(accounting accounting_standalone))
+Welcome.nologin
+Users.create(name:'other', pass:'other')
+Users.create(name:'other2', pass:'other2')
+QooxView::startWeb(webrick_port)

data/test/test.conf

@@ -0,0 +1 @@
+DATA_DIR=.

data/{Test → test}/test.rb

@@ -1,23 +1,16 @@
 #!/usr/bin/env ruby
-##!/usr/local/bin/ruby -I.
-##!/usr/bin/ruby -I.. -I../../QooxView -I../../AfriCompta -I../../LibNet -I. -wKU
-%w( QooxView AfriCompta HelperClasses/lib ).each{|l|
-  $LOAD_PATH.push "../../#{l}"
-}
-$LOAD_PATH.push '.'
 
+require 'bundler/setup'
 require 'test/unit'
 require 'fileutils'
 
-FileUtils.rm_rf('data/')
 FileUtils.rm_rf('data2/')
 
-CONFIG_FILE='config_test.yaml'
-DEBUG_LVL=0
+$config_file='config_test.yaml'
+DEBUG_LVL=1
 
 require 'QooxView'
-require 'ACQooxView'
-require 'ACaccess'
+require 'africompta'
 
 Permission.add( 'default', 'View,Welcome' )
 Permission.add( 'admin', '.*', '.*' )
@@ -30,10 +23,10 @@ qooxView = QooxView.init( '../Entities', '../Views' )
 
 tests = %w( africompta account movement sqlite )
 #tests = %w( africompta )
-#tests = %w( sqlite )
-#tests = %w( big )
+tests = %w( account )
+#tests = %w( merge )
 tests.each{|t|
-  require "ac_#{t}"
+  require_relative "ac_#{t}"
 }
 
 # Fails test_archive_sum_up