gestion 1.9.12

data/Test/ge_dfiles.rb

@@ -0,0 +1,121 @@
+require 'test/unit'
+
+class TC_DFiles < Test::Unit::TestCase
+
+  def setup
+    Entities.delete_all_data
+
+    # Seting up files for tests
+    DFiles.set_dir_base(File.join(Dir.pwd, 'dfiles.test'))
+    FileUtils.rm_rf('dfiles.test')
+    FileUtils.mkdir 'dfiles.test'
+    %w(files descs).each { |dir|
+      [dir, "#{dir}.save"].each { |d|
+        savedir = File.join('dfiles.test', d)
+        Dir.mkdir savedir
+        FileUtils.cp(Dir.glob("dfiles/#{dir}/*"), savedir)
+      }
+    }
+    Dir.glob('dfiles/*').each { |f|
+      unless File.directory?(f)
+        FileUtils.cp(f, 'dfiles.test')
+      end
+    }
+    FileUtils.cp('dfiles/priorities', 'dfiles.test')
+    DFiles.load
+    DFilePriorities.load
+    @df_avg = DFiles.find_by_name('avg$')
+    @df_avg_rescue = DFiles.find_by_name('avg_rescue')
+    @df_driver = DFiles.find_by_name('driver')
+    @files = DFiles.search_all_.size
+  end
+
+  def teardown
+    #@dirs.each{|dir| FileUtils.rm_rf dir}
+  end
+
+  def test_load
+    descs = DFiles.search_all_
+    assert_equal 4, descs.size
+    avg = descs.find { |df| df.name =~ /avg$/ }
+    assert avg
+    assert_equal 'avg-160203.exe', avg.save_file
+    assert_equal '2', avg.tags.first.first
+
+    newdir = Dir.pwd + '/descs.save'
+    FileUtils.rm Dir.glob(newdir + '/*')
+    DFiles.dir_descs = newdir
+    DFiles.changed = true
+    DFiles.save
+
+    files_saved = Dir.glob("#{newdir}/*")
+    assert_equal @files, files_saved.size
+  end
+
+  def test_update_files
+    FileUtils.rm Dir.glob(DFiles.dir_files + '/*')
+    DFiles.update_desc_from_dir(DFiles.dir_descs + '.save')
+    testfile = DFiles.dir_files + '/test.com'
+    IO.write(testfile, 'Hello there')
+    DFiles.update_files_from_dir(DFiles.dir_files + '.save')
+    assert !File.exists?(testfile)
+    assert File.exists?(DFiles.dir_files + '/avg-160203.exe')
+    assert_equal @files - 1, DFiles.search_all_.size
+  end
+
+  def test_get_files
+    dfp = DFilePriorities.find_by_priority(9)
+    assert_equal 1, dfp.get_files.size
+  end
+
+  def test_file_priorities
+    prios = DFilePriorities.search_all_
+    result = [1, 1, 0, 1]
+    prios.each { |p|
+      files = p.get_files
+      dputs(3) { [p, files, result].join('::') }
+      assert_equal result.shift, files.size, prios.collect { |p| p.inspect }
+    }
+  end
+
+  def test_get_tag_prio
+    assert_equal 2, @df_avg.get_tag_prio('windows')
+    assert_equal 1, @df_avg.get_tag_prio('avg')
+    assert_equal nil, @df_avg.get_tag_prio('avg2')
+  end
+
+  def test_files_pruning
+    files = DFilePriorities.get_most_wanted
+    assert_equal 80, files.inject(0) { |tot, f| tot + f.file_size }
+    assert_equal 3, files.size
+    files = DFiles.get_limited_files(files, 40)
+    assert_equal 38, files.inject(0) { |tot, f| tot + f.file_size }
+    assert_equal 2, files.size
+  end
+
+  def test_get_most_wanted
+    files = DFilePriorities.get_most_wanted
+    assert_equal 3, files.size
+  end
+
+
+  def test_search_by_all
+    files = DFiles.search_by_all(:tags, 'windows antivirus'.split)
+    assert_equal 2, files.size
+    files = DFiles.search_by_all(:tags, 'windows iso'.split)
+    assert_equal 1, files.size
+  end
+
+  def test_get_tags
+    tag_test = [['windows', 7], ['iso', 6], ['linux', 2]]
+    tag_test.each { |tag, count|
+      tags = DFiles.get_tags(tag)
+      assert_equal count, tags.size
+    }
+  end
+
+  def test_update_html
+    DFiles.url_html = '.'
+    DFiles.update_html
+  end
+end

data/Test/ge_filesmanage.rb

@@ -0,0 +1,180 @@
+require 'test/unit'
+
+class TC_FilesManage < Test::Unit::TestCase
+
+  def setup
+    Entities.delete_all_data
+
+    # Seting up files for tests
+    dir = 'fmdirs.test'
+    FMDirs.dir_base = File.join(Dir.pwd, dir)
+    FileUtils.rm_rf(dir)
+    FileUtils.mkdir dir
+    counter = 1
+    @fmdirs = []
+    @fmentries = []
+    %w( windows mac ).each { |base|
+      FileUtils.mkdir File.join(dir, base)
+      @fmdirs.push FMDirs.create({name: base})
+      %w( office utils ).each { |sub|
+        subdir = File.join(dir, base, sub)
+        @fmdirs.push FMDirs.create({name: sub, parent: base})
+        FileUtils.mkdir subdir
+        fname = "Test#{counter}.zip"
+        FileUtils.touch(File.join(subdir, fname))
+        File.open(File.join(subdir, fname + '.file'), 'w') { |f|
+          f.write("#{fname}\nhttp://base.com\n\n"+
+                      "Description #{counter}\n\n#{base}\n#{sub}\ntag1, tag2")
+        }
+        counter += 1
+      }
+    }
+    FMEntries.load
+    @fmentries = FMEntries.search_all_
+  end
+
+  def teardown
+    #@dirs.each{|dir| FileUtils.rm_rf dir}
+  end
+
+  def test_search_by_path
+    dir = FMDirs.search_by_path('office', 'windows')
+    assert dir
+    assert dir.path.size > 0
+  end
+
+  def test_search_by_directory
+    entries = FMEntries.search_by_directory(@fmdirs[1])
+    assert_equal 1, entries.size
+    assert_equal 'Test1.zip.file', entries[0]._name
+  end
+
+  def test_load_fmdirs
+    assert_equal %w(windows mac), FMDirs.base_dirs.collect { |bd| bd._name }
+    assert_equal %w(office utils), FMDirs.sub_dirs('windows').collect { |bd| bd._name }
+    assert_equal %w(office utils), FMDirs.sub_dirs(FMDirs.base_dirs[0]).collect { |bd| bd._name }
+  end
+
+  def test_load_fmentries
+    assert_equal 4, FMEntries.search_all.count
+    FMEntries.save
+    FMDirs.save
+    FMEntries.delete_all_data(true)
+    assert_equal 0, FMEntries.search_all.count
+    dir = 'fmdirs.test'
+    FMDirs.dir_base = File.join(Dir.pwd, dir)
+    FMDirs.load
+    FMEntries.load
+    assert_equal 4, FMEntries.search_all.count
+    e = FMEntries.find_by_name('Test1.zip.file')
+    assert_equal 'Test1.zip', e._url_file
+    assert_equal %w(tag1 tag2), e._tags
+  end
+
+  def test_create
+    FMEntries.create(name: 'new.com', url_file: 'http://localhost/new.com', url_page: 'http://new.com',
+                     description: 'desc', directory: @fmdirs[2], tags: %w(one two three))
+    assert_equal 5, FMEntries.search_all.count
+    reload
+    assert_equal 5, FMEntries.search_all.count
+    e = FMEntries.find_by_name('new.com.file')
+    assert_equal 'http://localhost/new.com', e._url_file
+    assert_equal %w(one two three), e._tags
+
+  end
+
+  def test_entries
+    assert_equal 0, @fmdirs[0].entries.size
+    assert_equal 1, @fmdirs[1].entries.size
+    assert_equal 0, @fmdirs[1].update_files.size
+    File.open(File.join(@fmdirs[1].path, 'newfile.exe'), 'w') { |f|}
+    assert_equal 1, @fmdirs[1].entries.size
+    newentries = @fmdirs[1].update_files
+    assert_equal 1, newentries.size
+    entries = @fmdirs[1].entries
+    assert_equal 2, entries.size
+    assert_equal 'newfile.exe.file', entries[1]._name
+    assert_equal 0, @fmdirs[1].update_files.size
+  end
+
+  def test_update
+    assert_equal 2, @fmdirs[0].sub_dirs.size
+    Dir.mkdir(File.join(@fmdirs[0].path, 'games'))
+    @fmdirs[0].update_dirs
+    dirs = @fmdirs[0].sub_dirs
+    assert_equal 3, dirs.size
+    assert_equal 'games', dirs[2]._name
+  end
+
+  def test_update_speed
+
+  end
+
+  def test_filename
+    assert_equal 'Test1.zip', @fmentries[0].file_name
+    @fmentries[0]._url_file = ':win.zip:http://localhost/test1.zip'
+    assert_equal 'win.zip', @fmentries[0].file_name
+  end
+
+  def test_delete
+    assert_equal 1, @fmdirs[1].entries.size
+    @fmentries[0].delete
+    assert_equal 0, @fmdirs[1].entries.size
+
+    reload
+
+    assert_equal 0, @fmdirs[1].entries.size
+  end
+
+  def test_double
+    assert_equal 6, FMDirs.search_all_.size
+    FMDirs.create(name: 'windows')
+    assert_equal 6, FMDirs.search_all_.size
+    FMDirs.create(parent: 'windows', name:'utils')
+    assert_equal 6, FMDirs.search_all_.size
+    FMDirs.create(parent: 'windows', name:'utils2')
+    assert_equal 7, FMDirs.search_all_.size
+    FMDirs.create(name: 'windows2')
+    assert_equal 8, FMDirs.search_all_.size
+  end
+
+  def test_spaces
+    FileUtils.touch(File.join(@fmdirs[1].path, 'éducation française verbes.exe'))
+    FileUtils.touch(File.join(@fmdirs[1].path, 'éducation française mots.exe'))
+    f = @fmdirs[1].update_files
+    assert_equal 2, f.size
+    f.each{|fi|
+      assert fi.name !~ / /
+      assert fi.file_name !~ / /
+      assert fi.description.size > 0
+      assert File.exists?(File.join(@fmdirs[1].path, fi.file_name))
+    }
+  end
+
+  def test_rename
+    @fmentries[0].rename('newname.zip')
+    reload
+    f = @fmentries[0]
+    assert_equal 'http://localhost/newname.zip', f._url_file
+    assert_equal 'newname.zip.file', f._name
+    assert File.exist?(f.full_path)
+    assert File.exist?(f._directory.path(f.file_name))
+  end
+
+  def test_subdirs
+    Dir.mkdir(@fmdirs[1].path('subdir'))
+    assert_equal [], @fmdirs[1].update_files
+    assert_equal 1, @fmdirs[1].entries.size
+  end
+
+  def reload
+    FMEntries.save
+    FMDirs.save
+    FMEntries.delete_all_data(true)
+    assert_equal 0, FMEntries.search_all.count
+    dir = 'fmdirs.test'
+    FMDirs.dir_base = File.join(Dir.pwd, dir)
+    FMDirs.load
+    FMEntries.load
+  end
+end

data/Test/ge_info.rb

@@ -0,0 +1,27 @@
+require 'test/unit'
+require_relative '../Paths/Info.rb'
+
+class TC_info < Test::Unit::TestCase
+  def setup
+    @info = Info.new
+    Entities.delete_all_data()
+
+    dputs(1){ 'Resetting SQLite' }
+    SQLite.dbs_close_all
+    FileUtils.cp( 'db.testGestion', 'data/compta.db')
+    SQLite.dbs_open_load_migrate
+
+    ConfigBases.init_load
+
+    Entities.Persons.create( :first_name => 'admin', :password => 'super123', :permissions => ['admin'], :groups => [] )
+    Entities.Persons.create( :first_name => 'josue', :password => 'super', :permissions => ['secretary'] )
+    Entities.Persons.create( :first_name => 'surf', :password => 'super', :permissions => ['internet'] )
+  end
+
+  def teardown
+  end
+
+  def test_clientuse
+    dputs(1){ Info.clientUse({:user => 'admin'}).to_s }
+  end
+end

data/Test/ge_internet.rb

@@ -0,0 +1,246 @@
+require 'test/unit'
+require 'network'
+include Network
+
+class Web_req
+  attr_reader :peeraddr, :header
+
+  def initialize(ip)
+    @peeraddr = [0, 0, 0, ip]
+  end
+end
+
+class TC_Internet < Test::Unit::TestCase
+  def setup
+    Entities.delete_all_data
+    ConfigBase.store(functions:[:internet_captive])
+    @test = Persons.create(:login_name => 'test', :internet_credit => 50)
+    Sessions.create(@test).web_req = Web_req.new(10)
+    @test2 = Persons.create(:login_name => 'test2', :internet_credit => 50)
+    @free = Persons.create(:login_name => 'free', :internet_credit => 50,
+      :groups => ['freesurf'])
+    dputs(1) { "#{@test.inspect}" }
+    @device = Device::Simulation.load
+    @operator = @device.operator
+
+    ConfigBase.captive_dev = 'simul0'
+    ConfigBase.cost_base = 5
+    ConfigBase.cost_shared = 10
+    ConfigBase.send_config
+    Captive.cleanup_skip = true
+    Internet.setup
+    Captive.setup
+  end
+
+  def teardown
+  end
+
+  def libnet_isp_gprs
+    @operator.connection_type = Operator::CONNECTION_ONDEMAND
+    ConfigBase.allow_free = ['false']
+  end
+
+  def libnet_isp_vsat
+    @operator.connection_type = Operator::CONNECTION_ALWAYS
+    ConfigBase.allow_free = ['true']
+  end
+
+  def test_take_money
+    libnet_isp_gprs
+
+    @device.connection_status = Device::DISCONNECTED
+
+    assert_equal 50, @test.internet_credit
+
+    Internet.take_money
+    assert_equal 50, @test.internet_credit
+
+    @device.connection_status = Device::CONNECTED
+
+    Captive.user_connect :test, 10
+    Internet.take_money
+    assert_equal 35, @test.internet_credit
+
+    Captive.user_connect :test2, 11
+    Internet.take_money
+    assert_equal 25, @test.internet_credit
+    assert_equal 40, @test2.internet_credit
+
+    Captive.user_connect :free, 12
+    Internet.take_money
+    assert_equal 17, @test.internet_credit
+    assert_equal 32, @test2.internet_credit
+    assert_equal 42, @free.internet_credit
+
+    Captive.user_disconnect( :free, 12 )
+    Captive.user_disconnect( :test2, 11 )
+    Internet.take_money
+    assert_equal 2, @test.internet_credit
+    Internet.take_money
+    assert_equal [], Captive.users_connected
+  end
+
+
+  def test_take_money_perm
+    libnet_isp_vsat
+
+    assert_equal 50, @test.internet_credit
+
+    Internet.take_money
+    assert_equal 50, @test.internet_credit
+
+    @device.connection_status = Device::CONNECTED
+
+    Captive.user_connect :test, 10
+    Internet.take_money
+    assert_equal 35, @test.internet_credit
+
+    Captive.user_connect :test2, 11
+    Internet.take_money
+    assert_equal 25, @test.internet_credit
+    assert_equal 40, @test2.internet_credit
+
+    assert_equal 50, @free.internet_credit
+    Captive.user_connect :free, 12
+    Internet.take_money
+    assert_equal 17, @test.internet_credit
+    assert_equal 32, @test2.internet_credit
+    assert_equal 50, @free.internet_credit
+
+    Captive.user_disconnect :free, 12
+    Captive.user_disconnect :test2, 11
+    Internet.take_money
+    assert_equal 2, @test.internet_credit
+    Internet.take_money
+    assert_equal [], Captive.users_connected
+  end
+
+  def test_users_str
+    assert_equal "one, three, two",
+      SelfInternet.make_users_str(%w( one two three).join("\n"))
+
+    assert_equal "four, one, three, two",
+      SelfInternet.make_users_str(%w( one two three four ).join("\n"))
+
+    assert_equal "five, four, one, six,<br>three, two",
+      SelfInternet.make_users_str(%w( one two three four five six ).join("\n"))
+  end
+
+  def test_atimes
+    ag1 = AccessGroups.create(:name => "office", :members => %w( test free ),
+      :action => %w( allow_else_block ), :priority => 20, :limit_day_mo => 200,
+      :access_times => %w( lu-ve;08:00;10:00 lu-ve;10:30;13:00 lu-ve;16:00;18:00 ))
+    assert_equal false,
+      AccessGroup.time_in_atime(Time.parse("2012/1/1 10:00"), "lu-ve;8:00;12:00")
+    assert_equal true,
+      AccessGroup.time_in_atime(Time.parse("2012/1/2 10:00"), "lu-ve;8:00;12:00")
+    assert_equal true,
+      AccessGroup.time_in_atime(Time.parse("2012/1/2 10:00"), "lu,ma;8:00;12:00")
+    assert_equal false,
+      AccessGroup.time_in_atime(Time.parse("2012/1/2 10:00"), "me;8:00;12:00")
+    assert_equal true,
+      AccessGroup.time_in_atime(Time.parse("2012/1/2 10:00"), "lu-di;8:00;12:00")
+    assert_equal true,
+      AccessGroup.time_in_atime(Time.parse("2012/1/3 4:00"), "lu;22:00;6:00")
+    assert_equal false,
+      AccessGroup.time_in_atime(Time.parse("2012/1/3 6:00"), "lu;22:00;6:00")
+
+    assert_equal false,
+      ag1.time_in_atimes(Time.parse("2012/1/1 8:0"))
+    assert_equal true,
+      ag1.time_in_atimes(Time.parse("2012/1/2 8:0"))
+  end
+
+  def test_access_groups
+    ag1 = AccessGroups.create(:name => "office", :members => %w( test free ),
+      :action => %w( allow_else_block ), :priority => 20, :limit_day_mo => 200,
+      :access_times => %w( lu-ve;08:00;10:00 lu-ve;10:30;13:00 lu-ve;16:00;18:00 ))
+
+    assert_equal [true, 'office'], AccessGroups.allow_user("test",
+      Time.parse("1/2/2012 8:0"))
+    assert_equal [true, 'default'], AccessGroups.allow_user("test2",
+      Time.parse("1/2/2012 8:0"))
+
+    assert_equal [true, 'default'], AccessGroups.allow_user("test2",
+      Time.parse("1/2/2012 10:0"))
+    ag2 = AccessGroups.create(:name => "block", :members => %w(  ),
+      :action => %w( block ), :priority => 30, :limit_day_mo => 200,
+      :access_times => %w( lu,ma,me,je,ve,sa,di;8:0;10:30 ))
+    assert_equal [false, 'Blocked by rule **block**'], AccessGroups.allow_user("test2",
+      Time.parse("1/2/2012 10:0"))
+    assert_equal [false, 'Blocked by rule **block**'], AccessGroups.allow_user("test",
+      Time.parse("1/2/2012 8:0"))
+    ag2.priority = 10
+    assert_equal [true, 'office'], AccessGroups.allow_user("test",
+      Time.parse("1/2/2012 8:0"))
+
+    assert_equal [false, 'Blocked by rule **block**'], AccessGroups.allow_user("test2",
+      Time.parse("1/2/2012 10:0"))
+    ag3 = AccessGroups.create(:name => "director", :members => %w( test2 ),
+      :action => %w( allow ), :priority => 40, :limit_day_mo => 200,
+      :access_times => %w( lu-di;8:0;10:30 ))
+    assert_equal [true, 'director'], AccessGroups.allow_user("test2",
+      Time.parse("1/2/2012 10:0"))
+    assert_equal [true, 'director'], AccessGroups.allow_user("test2",
+      Time.parse("1/3/2012 10:0"))
+
+    ag2.priority = 30
+    assert_equal [false, 'Blocked by rule **block**'], AccessGroups.allow_user("test",
+      Time.parse("1/2/2012 8:0"))
+    ag4 = AccessGroups.create(:name => "everybody", :members => %w( test ),
+      :action => %w( allow ), :priority => 60, :limit_day_mo => 200)
+    assert_equal [true, 'everybody'], AccessGroups.allow_user("test",
+      Time.parse("1/2/2012 8:0"))
+
+  end
+
+  def test_header
+    #assert_fail "Shall test for ip-address in header"
+  end
+
+  def test_active_course
+    user_1 = Persons.create( login_name: 'user1' )
+    user_2 = Persons.create( login_name: 'user1' )
+    course = Courses.create( name: 'internet', students: [user_1.login_name, user_2.login_name])
+
+    assert_equal false, Internet.active_course_for( user_1 )
+    assert_equal false, Internet.active_course_for( user_2 )
+
+    course.start = Date.yesterday.strftime('%d.%m.%Y')
+    course.end = Date.tomorrow.strftime('%d.%m.%Y')
+
+    assert_equal true, Internet.active_course_for( user_1 )
+    assert_equal true, Internet.active_course_for( user_2 )
+  end
+
+  def test_internet_person
+    ic_inf = InternetClasses.create(name: 'unlimited', type: ['unlimited'])
+    ic_lim = InternetClasses.create(name: 'daily', type: ['limit_daily_mo'])
+    ip = InternetPersons.create(person:@test, iclass: ic_inf)
+    t = Date.today
+    tr = Captive.traffic
+
+    assert ip.is_active?
+    ip.start = (t - 10).to_web
+    assert ip.is_active?
+    ip.duration = 1
+    assert !ip.is_active?
+    ip.duration = 10
+    assert !ip.is_active?
+    ip.duration = 11
+    assert ip.is_active?
+
+    tr.traffic_init(:test, [0,0])
+    assert_equal 0, tr.get_day(:test, 1).first.inject(:+)
+    assert ic_inf.in_limits?(:test)
+    assert !ic_lim.in_limits?(:test)
+    ic_lim.limit = 1
+    assert ic_lim.in_limits?(:test)
+
+    ip.iclass = ic_lim
+    assert ip.in_limits?
+    tr.update_host(:test, [500_000, 500_000])
+    assert !ip.in_limits?
+  end
+
+end

data/Test/ge_login.rb

@@ -0,0 +1,55 @@
+require 'test/unit'
+
+class SimulWebReq
+  def self.header
+    {}
+  end
+  
+  def self.peeraddr
+    [0,0,0,0]
+  end
+end
+
+class TC_Login < Test::Unit::TestCase
+  def setup
+    Entities.delete_all_data()
+
+    dputs(1){ 'Resetting SQLite'
+    }
+    SQLite.dbs_close_all
+    FileUtils.cp( 'db.testGestion', 'data/compta.db')
+    SQLite.dbs_open_load_migrate
+
+    ConfigBases.init_load
+
+    Entities.Persons.create( :first_name => 'admin', :password => 'super123', :permissions => ['admin'] )
+    Entities.Persons.create( :first_name => 'josue', :password => 'super', :permissions => ['secretary'] )
+    Entities.Persons.create( :first_name => 'surf', :password => 'super', :permissions => ['internet'] )
+  end
+
+  def teardown
+  end
+
+  def test_login
+    admin = Entities.Persons.match_by_login_name('admin')
+    assert_not_nil admin, "Couldn't get 'admin'"
+
+    reply = RPCQooxdooHandler.request( 1, 'View.Welcome', 'button', [['default', 'simple_connect',
+        {'username' => 'admin', 'password' => 'super123'}]], SimulWebReq )
+    assert_not_nil reply
+    assert_not_equal nil, reply['result'].index{|i| i[:cmd] == :session_id}, reply.inspect
+
+    reply = RPCQooxdooHandler.request( 1, 'View.Welcome', 'button', [['default', 'simple_connect',
+        {'username' => 'josue', 'password' => 'false'}]])
+    assert_not_nil reply
+    assert_equal [{:data=>:login_failed, :cmd=>:window_show},
+        {:data=>{:reason=> 'Password wrong'}, :cmd=>:update}], reply['result'], "#{reply.inspect}"
+
+    reply = RPCQooxdooHandler.request( 1, 'View.Welcome', 'button', [['default', 'simple_connect',
+        {'username' => 'foo', 'password' => 'false'}]])
+    assert_not_nil reply
+    assert_equal [{:data=>:login_failed, :cmd=>:window_show},
+        {:data=>{:reason=>"User doesn't exist"}, :cmd=>:update}], reply['result'], "#{reply.inspect}"
+  end
+
+end