qooxview 1.9.9

data/test/qv_print.rb

@@ -0,0 +1,73 @@
+require 'test/unit'
+
+class TC_Print < Test::Unit::TestCase
+  def setup
+    dputs(2){ 'Deleting everything'
+    }
+    Entities.delete_all_data
+    Entities.load_all
+    Entities.ConfigBases.load
+  end
+
+  def teardown
+  end
+  
+  def test_print_nup
+    card = OpenPrint.new('Files/student_card.odg')
+    if true
+      card_1_pdf = card.print( [[/--NAME1--/, 'card1']], nil, 'name-1')
+      card_2_pdf = card.print( [[/--NAME1--/, 'card2']], nil, 'name-2')
+    else
+      card_1_pdf = '/tmp/name-1.pdf'
+      card_2_pdf = '/tmp/name-1.pdf'
+    end
+    assert_equal %w(/tmp/name-nup-front.pdf /tmp/name-nup-back.pdf),
+      OpenPrint.pdf_nup_duplex( [card_1_pdf, card_2_pdf], 'name-nup')
+
+    assert_equal %w(/tmp/name-nup-front.pdf /tmp/name-nup-back.pdf),
+      OpenPrint.pdf_nup_duplex( [card_1_pdf], 'name-nup')
+  end
+
+  def test_print_formulas
+    op = OpenPrint.new('Files/print_formulas_2.ods')
+    op.print([%w(101 1), %w(102 2), %w(1002 1), %w(1003 2),
+             %w(2010-08-20 2015-01-07)])
+  end
+
+  def test_openprint
+    @admin = Entities.Persons.create( :login_name => 'admin', :password => 'super123',
+                                      :permissions => ['default'] )
+    @josue = Entities.Persons.create( :login_name => 'josue', :password => 'super',
+                                      :permissions => ['default'] )
+
+    mm = RPCQooxdooService.services['View.PrintView']
+    sa = Sessions.create( @admin )
+    sj = Sessions.create( @josue )
+    PrintView.class_eval('
+      def call_lpstat(ip)
+        return []
+      end ')
+
+    assert_equal [:print_student], mm.printer_buttons
+
+    assert_equal mm.reply(:update, :print_student => 'print_student PDF'),
+                 mm.reply_print( sa )
+
+    assert_equal mm.reply(:update, :print_student => 'print_student HP_LaserJet'),
+                 mm.rpc_print( sa, :print_student, 'menu' => 'HP_LaserJet')
+
+    assert_equal mm.reply(:update, :print_student => 'print_student HP_LaserJet'),
+                 mm.rpc_print( sa, :print_student, {} )
+
+    assert_equal mm.reply(:update, :print_student => 'print_student HP_LaserJet'),
+                 mm.rpc_print( sa, :print_student, 'menu' => '')
+
+    assert_equal 'HP_LaserJet', mm.stat_printer( sa, :print_student ).data_str
+    assert_equal 'PDF', mm.stat_printer( sj, :print_student ).data_str
+
+    assert_equal mm.reply(:update, :print_student => 'print_student HP_LaserJet2'),
+                 mm.rpc_print( sj, :print_student, 'menu' => 'HP_LaserJet2')
+    assert_equal 'HP_LaserJet', mm.stat_printer( sa, :print_student ).data_str
+    assert_equal 'HP_LaserJet2', mm.stat_printer( sj, :print_student ).data_str
+  end
+end

data/test/qv_session.rb

@@ -0,0 +1,29 @@
+require 'test/unit'
+
+class TC_Session < Test::Unit::TestCase
+  def setup
+    Entities.delete_all_data
+    @admin = Entities.Persons.create( :first_name => "admin", :pass => "super123",
+    :address => "cdlf 24", :credit => 10000 )
+    Entities.Courses.create( :first_name => "base_1010", :start => "1.10.2010")
+    Entities.Courses.create( :first_name => "base_1011", :start => "1.11.2010")
+    @dummies_one = Entities.Dummies.create( :first_name => "one", :phone => "111",
+    :no_cache => "123" )
+  end
+
+  def teardown
+  end
+
+  def test_new_session
+    session = Sessions.create( @admin )
+    dputs( 1 ){ "#{session.inspect}" }
+    assert_equal @admin.session_id, session.sid
+    assert_equal "admin", session.owner.first_name
+    
+    search = Sessions.match_by_sid( session.sid )
+    assert_equal session.sid, search.sid
+    
+    search.close
+    assert_equal nil, Sessions.match_by_sid( session.sid )
+  end
+end

data/test/qv_sqlite.rb

@@ -0,0 +1,73 @@
+require 'test/unit'
+require 'benchmark'
+
+class TC_SQLite < Test::Unit::TestCase
+  def setup
+    Entities.delete_all_data
+    @m1 = Entities.Movements.create( :desc => 'salaire', :money => 100 )
+    @m2 = Entities.Movements.create( :desc => 'pain', :money => 200 )
+    Entities.save_all
+  end
+
+  def teardown
+  end
+
+  def test_create
+    one = Entities.Movements.match_by_desc('salaire')
+    assert_not_nil one
+    two = Entities.Movements.match_by_desc('pain')
+    assert_not_nil two
+    assert_equal 100, one.money
+    assert_equal 200, two.money
+  end
+  
+  def test_load
+    Entities.Movements.load
+    test_create
+  end
+  
+  def test_speed
+    Entities.delete_all_data
+    dputs( 1 ){ 'Creation of 250 entities: ' }
+    (1..4).each{|f|
+      dputs( 1 ){ Benchmark.measure{
+          (1..250).each{|e|
+            Entities.Movements.create( :desc => 'test', :money => e)
+          }
+        }.to_s
+      }
+    }
+    dputs( 1 ){ 'Loading 1000 entities: ' }
+    dputs( 1 ){ Benchmark.measure{ Entities.Movements.load }.to_s }
+    dputs( 1 ){ 'Searching in 1000 entities: ' }
+    dputs( 1 ){ Benchmark.measure{ Entities.Movements.matches_by_desc('test')}.to_s }
+    dputs( 1 ){ 'Searching test gives ' +
+        "#{Entities.Movements.matches_by_desc('test').count}"}
+  end
+  
+  def test_set_value
+    Entities.Movements.load
+    @m1.money = 300
+    @m2.money = 500
+    assert_equal 300, @m1.money
+    assert_equal 500, @m2.money
+    Entities.Movements.delete_all(true)
+    Entities.Movements.load
+    one = Entities.Movements.match_by_desc('salaire')
+    two = Entities.Movements.match_by_desc('pain')
+    assert_equal 100, one.money
+    assert_equal 200, two.money
+
+    one.money = 300
+    Entities.Movements.save
+    two.money = 500
+    Entities.Movements.save
+    assert_equal 300, one.money
+    assert_equal 500, two.money
+    Entities.Movements.load
+    one = Entities.Movements.match_by_desc('salaire')
+    two = Entities.Movements.match_by_desc('pain')
+    assert_equal 300, one.money
+    assert_equal 500, two.money
+  end
+end

data/test/qv_store_csv.rb

@@ -0,0 +1,86 @@
+require 'benchmark'
+
+class TC_Store_CSV < Test::Unit::TestCase
+  def setup
+    dputs(2) { 'Deleting everything' }
+    Entities.delete_all_data
+
+    dputs(2) { 'Setting up data' }
+    @admin = Persons.create(:first_name => 'admin', :pass => 'super123',
+                                     :address => 'cdlf 24', :credit => 10000)
+    Courses.create(:first_name => 'base_1010', :start => '1.10.2010')
+    @base_1011 = Courses.create(:first_name => 'base_1011', :start => '1.11.2010',
+                                         :teacher => @admin)
+    @dummies_one = Dummies.create(:first_name => 'one', :phone => '111',
+                                           :no_cache => '123')
+    dputs(2) { 'Finished setting up data' }
+  end
+
+  def teardown
+  end
+
+  def test_dirty_flag
+    Entities.save_all
+    assert !@admin.changed
+    assert !Persons.changed
+
+    @admin.first_name = 'addmin'
+    assert @admin.changed
+    assert Persons.changed
+
+    Entities.save_all
+    assert !Persons.changed
+
+    surf = Persons.create(:first_name => 'surfer')
+    assert Persons.changed
+    assert surf.changed
+  end
+
+  def get_persons_csv
+    (Dir.glob('data/Persons.csv') +
+        Dir.glob('data/backup/Persons.csv.*')).sort
+  end
+
+  def test_backup_count
+    (0..5).each { |i|
+      assert( get_persons_csv.size == i,
+              "We don't have #{i} files, but #{get_persons_csv.size}: #{get_persons_csv.inspect}")
+      @admin.first_name = "admin#{i}"
+      Entities.save_all
+    }
+    assert get_persons_csv.size == 6
+  end
+
+  def test_dirty_data
+    (0..5).each { |i|
+      assert( get_persons_csv.size == i,
+              "We don't have #{i} files, but #{get_persons_csv.size}: #{get_persons_csv.inspect}")
+      @admin.first_name = "admin#{i}"
+      Entities.save_all
+    }
+
+    Entities.load_all
+    assert_equal 'admin5', Persons.find_by_pass('super123').first_name
+    assert_equal 6, get_persons_csv.count
+
+    # Test an invalid file - will the second-last be taken?
+    File.open('data/Persons.csv', 'a') { |f|
+      f.write('--no--valid--json--')
+    }
+    Entities.delete_all_data(true)
+    Entities.load_all
+    assert_equal 'admin4', Persons.find_by_pass('super123').first_name
+    assert_equal 6, get_persons_csv.count
+
+    # Invalidate everything
+    get_persons_csv.each { |name|
+      File.open(name, 'a') { |f|
+        f.write('--no--valid--json--')
+      }
+    }
+
+    Entities.delete_all_data(true)
+    Entities.load_all
+    assert_equal 1, get_persons_csv.count, get_persons_csv
+  end
+end

data/test/qv_stype.rb

@@ -0,0 +1,41 @@
+require 'test/unit'
+
+class TC_SType < Test::Unit::TestCase
+  def setup
+    Entities.delete_all_data()
+    @one = Entities.Dummies.create( :first_name => "one", :phone => "111" )
+    @two = Entities.Dummies.create( :first_name => "two", :phone => "222" )
+  end
+  
+  def teardown
+  end
+  
+  def test_type    
+    assert_equal "111", @one.phone
+    assert_equal "222", @two.phone
+    
+    assert_equal [ :dummy_id, :first_name ], @one.get_storage[:STdummy1].fields.keys.sortk
+    assert_equal [ :address, :dummy_id, :phone ], @one.get_storage[:STdummy2].fields.keys.sortk
+    
+    assert_equal [ :address, :dummy_id, :first_name, :no_cache, :phone ],
+      Entities.Dummies.get_field_names.sortk
+  end
+  
+  def test_config
+    assert_equal "passit", @one.get_storage[:STdummy1].conf
+    assert_equal "hello_", @two.get_storage[:STdummy2].conf
+    
+    assert_equal 20, @two.field_args( :phone )[:length]
+  end
+  
+  # Look whether a new data-set get's the data_create called
+  def test_create
+    
+  end
+  
+  def test_all
+    assert @one.get_storage[:STdummy1].has_field( :dummy_id )
+    assert @one.get_storage[:STdummy2].has_field( :dummy_id )
+    assert @one.get_storage[:STdummy3].has_field( :dummy_id )
+  end
+end

data/test/qv_view.rb

@@ -0,0 +1,204 @@
+require 'test/unit'
+
+class SimulWebReq
+  def self.header
+    {}
+  end
+
+  def self.peeraddr
+    [0, 0, 0, 0]
+  end
+end
+
+class TC_View < Test::Unit::TestCase
+  def setup
+    Entities.delete_all_data()
+    @admin = Entities.Persons.create(:first_name => 'admin', :pass => 'super123',
+                                     :permissions => 'admin')
+    @surf = Entities.Persons.create(:first_name => 'surf', :pass => 'surf',
+                                    :permissions => 'internet', :credit => 5000)
+    @autre = Entities.Persons.create(:first_name => 'autre', :pass => 'surf',
+                                     :permissions => 'internet', :credit => 5000)
+    @base = Entities.Courses.create(:first_name => 'base_10', :teacher => @surf)
+    @session_admin = Sessions.create(@admin, '0.1')
+    @session_surf = Sessions.create(@surf, '0.2')
+  end
+
+  def teardown
+  end
+
+  def request(service, method, args)
+    RPCQooxdooHandler.request(1, service, method, args, SimulWebReq)
+  end
+
+  def make_list(configs = [])
+    ([%w(BView BView),
+      %w(CView CView),
+      %w(CourseShow CourseShow),
+      %w(AView AView),
+      %w(PrintView PrintView)] +
+        configs.collect { |c|
+          %W(ConfigView#{c} ConfigView#{c}) }).sort
+  end
+
+  def test_order
+    View.update_configured_all
+    reply = request('View', 'list', [['0.1']])
+    dputs(1) { reply['result'].inspect }
+    assert_equal [%w(BView BView),
+                  %w(CView CView),
+                  %w(ConfigView2 ConfigView2),
+                  %w(CourseShow CourseShow),
+                  %w(PrintView PrintView),
+                  %w(AView AView)],
+                 reply['result'][0][:data][:views]
+  end
+
+  def test_update
+    reply = request('View.AView', 'update', [['0.1']])
+    result = reply['result'][0][:data][0][:data]
+    dputs(4) { "Reply is #{reply.inspect} - result is #{result.inspect}" }
+    assert_equal 'admin', result[:first_name], result.inspect
+    assert !result.key(:permission)
+  end
+
+  def test_show
+    reply = request('View.CView', 'show', [['0.1']])
+    result = reply['result']
+    assert_equal [{:cmd => 'show',
+                   :data =>
+                       {:view_class => 'CView',
+                        layout: ['group',
+                                 [['vbox',
+                                   [['group',
+                                     [['hbox',
+                                       [['group',
+                                         [['fields', [['int', :person_id, 'person_id', {:id => true}]]],
+                                          ['vbox', [[:button, :new, 'new', {}]]]]]]]]],
+                                    ['group',
+                                     [['hbox',
+                                       [['group',
+                                         [['fields',
+                                           [['str', :first_name, 'first_name', {:callback => 'yes', :width => 300}],
+                                            ['str', :pass, 'pass', {:width => 300}]]]]]]]]],
+                                    ['window:cview',
+                                     [['group',
+                                       [['fields',
+                                         [['int', :counter, 'counter', {:min => 10, :max => 20}],
+                                          ['str', :street, 'street', {:hidden => true}]]]]]]]]]]],
+                        :data_class => 'Persons'}}],
+                 result
+  end
+
+  def test_config
+    assert_equal true, View.Welcome.need_pass
+    assert_equal false, View.Welcome.hide_pass
+  end
+
+  def test_layout
+    assert_equal ['group',
+                  [['fields',
+                    [['int', :person_id, 'person_id', {:id => true}],
+                     ['str', :first_name, 'first_name', {}],
+                     ['str', :pass, 'pass', {}],
+                     ['str', :address, 'address', {}],
+                     ['int', :credit, 'credit', {}],
+                     ['int', :ro_int, 'ro_int', {:ro => true}],
+                     ['list', :ro_list, 'ro_list', {:ro => true, :list_values => [1, 2, 3]}],
+                     ['list', :ro_list2, 'ro_list2', {:ro => true}],
+                     ['fromto', :duration, 'duration', {}],
+                     ['list', :worker, 'worker', {:list_values => %w(admin autre surf)}]]]]],
+                 View.AView.layout_eval
+  end
+
+  def test_list_update
+    assert_equal ['list', :worker, 'worker', {:list_values => %w(admin autre surf)}],
+                 View.AView.layout_eval[1][0][1][9],
+                 View.AView.layout_eval.inspect
+    Entities.Persons.create(:first_name => 'foo', :pass => 'foo',
+                            :session_id => '0.3', :permission => 'internet')
+    assert_equal ['list', :worker, 'worker', {:list_values => %w(admin autre foo surf)}],
+                 View.AView.layout_eval[1][0][1][9]
+  end
+
+  def test_filter_from_entity
+    data = Hash[*%w( l_a 1 l_b 2 l_c 3 l_d 4 )]
+    assert_equal Hash[*%w( l_b 2 )], View.AView.filter_from_entity(data)
+    assert_equal Hash.new, View.AView.filter_from_entity(Hash.new)
+    assert_equal Hash.new, View.AView.filter_from_entity(nil)
+    data.delete('l_b')
+    assert_equal Hash.new, View.AView.filter_from_entity(Hash.new)
+  end
+
+  def test_view_subclass
+    assert_equal 2, View.AView.test_sub
+  end
+
+  def test_view_entities
+    assert_equal ['group',
+                  [['fields',
+                    [['list',
+                      :teacher,
+                      'teacher',
+                      {:list_type => :drop,
+                       :all => true,
+                       :list_values => [[3, 'autre'], [2, 'surf']]}],
+                     ['list',
+                      :assistant,
+                      'assistant',
+                      {:list_type => :drop,
+                       :all => true,
+                       :list_values => [[0, '---'], [1, 'admin'], [3, 'autre'], [2, 'surf']],
+                       :empty => true}],
+                     ['list',
+                      :students,
+                      'students',
+                      {:list_type => :single, :list_values => []}]]]]],
+                 View.CourseShow.layout_eval
+    @admin.credit = 2000
+    assert_equal ['group',
+                  [['fields',
+                    [['list',
+                      :teacher,
+                      'teacher',
+                      {:list_type => :drop,
+                       :all => true,
+                       :list_values => [[1, 'admin'], [3, 'autre'], [2, 'surf']]}],
+                     ['list',
+                      :assistant,
+                      'assistant',
+                      {:list_type => :drop,
+                       :all => true,
+                       :list_values => [[0, '---'], [1, 'admin'], [3, 'autre'], [2, 'surf']],
+                       :empty => true}],
+                     ['list',
+                      :students,
+                      'students',
+                      {:list_type => :single, :list_values => []}]]]]],
+                 View.CourseShow.layout_eval
+  end
+
+  def test_parse_request
+    params = View.CourseShow.parse_request(0, 0, ['test', {'one' => 2,
+                                                           'teacher' => @surf.id}])
+    assert_equal @surf.id, params[1]['teacher']
+  end
+
+  def test_configured
+    ConfigBase.store(function: [])
+    assert_equal make_list([2]), View.list(@session_admin)[:views].sort
+
+    ConfigBase.store(functions: [1])
+    assert_equal make_list([1, 2]),
+                 View.list(@session_admin)[:views].sort
+
+    ConfigBase.value = :one
+    ConfigBase.store
+    assert_equal make_list([1, 2, 3]),
+                 View.list(@session_admin)[:views].sort
+
+    ConfigBase.store(functions: [1, 2])
+    assert_equal make_list([1]),
+                 View.list(@session_admin)[:views].sort
+  end
+end

data/test/st_dummy.rb

@@ -0,0 +1,30 @@
+class STdummy1 < StorageType
+  attr_accessor :conf, :fields
+  
+  def load
+    {}
+  end
+  
+  def save( data, notmp: false )
+    
+  end
+
+end
+
+class STdummy2 < STdummy1
+  
+  def configure( config )
+    dputs( 3 ){ "Configuration of STdummy2 is: #{config.inspect}" }
+    @conf = config[:conf] + '_'
+  end
+end
+
+class STdummy3 < STdummy2
+  def configure( config )
+    @data_cache = false
+  end
+
+  def get_entry( id, field )
+    return field.to_s
+  end
+end

data/test/test.rb

@@ -0,0 +1,49 @@
+#!/usr/bin/env ruby
+#!/usr/local/bin/ruby -I.. -I.
+
+require 'bundler/setup'
+$LOAD_PATH.push '.'
+
+require 'test/unit'
+#require 'test/unit/testsuite'
+DEBUG_LVL = 0
+CONFIG_FILE='config.yaml'
+require 'QooxView'
+require 'st_dummy'
+
+Permission.add('default', 'View,View.Login')
+Permission.add('admin', '.*', '.*')
+Permission.add('internet', 'Internet,PersonShow', 'default')
+Permission.add('student', '', 'internet')
+Permission.add('professor', '', 'student')
+Permission.add('cybermanager', '', '')
+Permission.add('secretary', 'PersonModify,FlagAddInternet', 'professor,cybermanager')
+
+QooxView.init('entities', 'views')
+
+tests = Dir.glob('qv_*.rb')
+#tests = %w( permission )
+#tests = %w( entity )
+#tests = %w( configbase )
+
+tests.each { |t|
+  begin
+    require "qv_#{t}"
+  rescue LoadError => e
+    require t
+  end
+}
+
+$profiling = get_config(nil, :profiling)
+if $profiling
+  require 'rubygems'
+  require 'perftools'
+  PerfTools::CpuProfiler.start("/tmp/#{$profiling}") do
+    Test::Unit::UI::Console::TestRunner.run(TC_Helpers)
+  end
+  puts "Now run the following:
+    pprof.rb --pdf /tmp/#{$profiling} > /tmp/#{$profiling}.pdf
+    open /tmp/#{$profiling}.pdf
+    CPUPROFILE_FREQUENCY=500
+  "
+end

data/test/views/aview.rb

@@ -0,0 +1,24 @@
+class AView < View
+  def layout
+    set_data_class :Persons
+    
+    show_find :person_id
+    show_block :block_one
+    show_block :block_two
+    show_int_ro :ro_int
+    show_list_ro :ro_list, '[1,2,3]'
+    show_list_ro :ro_list2
+    show_fromto :duration
+    show_list :worker, 'Entities.Persons.list_first_name'
+    
+    @order = 60
+  end
+  
+  def test_sub
+    return 2
+  end
+  
+  def update( session )
+    update_form_data( session.owner )
+  end
+end

data/test/views/bview.rb

@@ -0,0 +1,10 @@
+class BView < View
+  def layout
+    set_data_class :Persons
+
+    show_find :person_id
+    show_block :block_one
+
+    @order = 30
+  end
+end

data/test/views/configviews.rb

@@ -0,0 +1,19 @@
+class ConfigView1 < View
+  def layout
+    @functions_need = [ :take ]
+  end
+end
+
+class ConfigView2 < View
+  def layout
+    @functions_reject = [ :over ]
+  end
+end
+
+class ConfigView3 < View
+  def layout
+    @functions_need = [ :take ]
+    @functions_reject = [ :over ]
+    @values_need = { :value => :one }
+  end
+end

data/test/views/courseshow.rb

@@ -0,0 +1,11 @@
+# Also test automatical base-class creation
+
+class CourseShow < View
+  def layout
+    show_block :names
+  end
+  
+  def rpc_test( m, s, p )
+    dputs( 0 ){ p.inspect }
+  end
+end

data/test/views/cview.rb

@@ -0,0 +1,22 @@
+class CView < View
+  def layout
+    set_data_class :Persons
+    
+    gui_vbox do
+      gui_hbox do
+        show_find :person_id
+        show_button :new
+      end
+      gui_hbox do
+        show_block :block_one, :width => 300
+        show_arg :first_name, :callback => 'yes'
+      end
+      gui_window :cview do
+        show_int :counter, :min => 10, :max => 20
+        show_str_hidden :street
+      end
+    end
+    
+    @order = 40
+  end
+end