November 2005 - Projects

[ranch] 64: Regression chart handle the system.
by Nicolas Despr�s 26 Nov '05

26 Nov '05

https://svn.lrde.epita.fr/svn/ranch/trunk Index: ChangeLog from Nicolas Despr�s <nicolas.despres(a)gmail.com> Regression chart handle the system. * web/ranch/test/unit/system_test.rb: Test find_id_by_hostname. * web/ranch/test/functional/benches_controller_test.rb: Make test more strict. * web/ranch/test/fixtures/outputs.yml: Generate measure for quotient on several changing systems and several revision. * web/ranch/test/fixtures/systems.yml: Generate two systems that change three times. * web/ranch/app/helpers/graph_helper.rb: Give the chosen hostname to the graph controller. * web/ranch/app/helpers/benches_helper.rb: Add an helper that render the system modification table. * web/ranch/app/models/system.rb: Add the find_id_by_hostname class method. * web/ranch/app/controllers/graph_controller.rb: Handle the system hostname and do not query the database with raw SQL. * web/ranch/app/controllers/benches_controller.rb: Query the systems modification. * web/ranch/app/views/benches/regression.rhtml: Render the system changes if needed. app/controllers/benches_controller.rb | 31 +++++++++++-- app/controllers/graph_controller.rb | 41 +++++++++++------ app/helpers/benches_helper.rb | 47 ++++++++++++++++++++ app/helpers/graph_helper.rb | 4 + app/models/system.rb | 8 +++ app/views/benches/regression.rhtml | 30 ++++++------ test/fixtures/outputs.yml | 31 +++++++------ test/fixtures/systems.yml | 56 ++++------------------- test/functional/benches_controller_test.rb | 68 +++++++++++++++-------------- test/unit/system_test.rb | 5 ++ 10 files changed, 195 insertions(+), 126 deletions(-) Index: web/ranch/test/unit/system_test.rb --- web/ranch/test/unit/system_test.rb (revision 63) +++ web/ranch/test/unit/system_test.rb (working copy) @@ -22,4 +22,9 @@ assert 1, system.errors.count end + def test_find_id_by_hostname + systems = System.find_id_by_hostname "ouagadougou" + assert_equal 3, systems.size + end + end Index: web/ranch/test/functional/benches_controller_test.rb --- web/ranch/test/functional/benches_controller_test.rb (revision 63) +++ web/ranch/test/functional/benches_controller_test.rb (working copy) @@ -17,7 +17,7 @@ get :index, { :project_id => 1 } assert_response :redirect assert_redirected_to(:action => 'show', :bench_id => 1) - assert_not_nil assigns(:project) + assert_equal 1, assigns(:project).id assert_not_nil assigns(:benches) end @@ -25,9 +25,9 @@ get :show, { :bench_id => 1 } assert_response :success assert_template 'show' - assert_not_nil assigns(:project) - assert_not_nil assigns(:benches) - assert_not_nil assigns(:bench) + assert_equal 1, assigns(:project).id + assert ! assigns(:benches).empty? + assert_equal 1, assigns(:bench).id end def test_regression @@ -35,11 +35,11 @@ assert_response :success assert_template 'regression' - assert_not_nil assigns(:project) - assert_not_nil assigns(:bench) + assert_equal 1, assigns(:project).id + assert_equal 1, assigns(:bench).id assert_not_nil assigns(:output_arg_num) - assert_not_nil assigns(:inputs) - assert_not_nil assigns(:systems) + assert ! assigns(:inputs).empty? + assert ! assigns(:systems).empty? assert_kind_of Hash, assigns(:revision) assert assigns(:revision)[:start] < assigns(:revision)[:stop] assert assigns(:revision)[:start] >= 1 @@ -53,12 +53,12 @@ assert_response :success assert_template 'regression' - assert_not_nil assigns(:project) - assert_not_nil assigns(:bench) + assert_equal 1, assigns(:project).id + assert_equal 1, assigns(:bench).id assert_not_nil assigns(:output_arg_num) - assert_not_nil assigns(:inputs) + assert ! assigns(:inputs).empty? assert_not_nil assigns(:input_set_num) - assert_not_nil assigns(:systems) + assert ! assigns(:systems).empty? assert_kind_of Hash, assigns(:revision) assert_equal 2, assigns(:revision)[:start] assert_equal 8, assigns(:revision)[:stop] @@ -73,12 +73,12 @@ assert_response :success assert_template 'regression' - assert_not_nil assigns(:project) - assert_not_nil assigns(:bench) + assert_equal 1, assigns(:project).id + assert_equal 1, assigns(:bench).id assert_not_nil assigns(:output_arg_num) - assert_not_nil assigns(:inputs) + assert ! assigns(:inputs).empty? assert_not_nil assigns(:input_set_num) - assert_not_nil assigns(:systems) + assert ! assigns(:systems).empty? assert_kind_of Hash, assigns(:revision) assert_equal 1, assigns(:revision)[:start] assert_equal assigns(:project).head_revision, assigns(:revision)[:stop] @@ -94,12 +94,12 @@ assert_template 'regression' assert_equal 1, assigns(:project).id - assert_equal 'determinize', assigns(:bench).name + assert_equal 1, assigns(:bench).id assert(flash.has_key?(:error)) assert_not_nil assigns(:output_arg_num) - assert_not_nil assigns(:inputs) + assert ! assigns(:inputs).empty? assert_not_nil assigns(:input_set_num) - assert_not_nil assigns(:systems) + assert ! assigns(:systems).empty? assert_not_nil flash[:error] end @@ -113,12 +113,12 @@ assert_template 'regression' assert_equal 1, assigns(:project).id - assert_equal 'determinize', assigns(:bench).name + assert_equal 1, assigns(:bench).id assert_equal 0, assigns(:output_arg_num) assert_equal 3, assigns(:output_arg_nb) - assert_not_nil assigns(:inputs) + assert ! assigns(:inputs).empty? assert_not_nil assigns(:input_set_num) - assert_not_nil assigns(:systems) + assert ! assigns(:systems).empty? assert_nil flash[:error] end @@ -131,25 +131,29 @@ assert_template 'regression' assert_equal 1, assigns(:project).id - assert_equal 'determinize', assigns(:bench).name + assert_equal 1, assigns(:bench).id assert(flash.has_key?(:error)) - assert_not_nil assigns(:output_arg_num) - assert_not_nil assigns(:inputs) + assert_equal 0, assigns(:output_arg_num) + assert ! assigns(:inputs).empty? assert_not_nil assigns(:input_set_num) - assert_not_nil assigns(:systems) + assert ! assigns(:systems).empty? assert_not_nil flash[:error] end def test_systems_list_is_grouped_by_hostname - post :regression, { :bench_id => 2 } + post :regression, { + :bench_id => 2, + :revision => { :range => "1-10" } + } assert_response :success assert_template 'regression' - assert_not_nil assigns(:project) - assert_not_nil assigns(:bench) - assert_not_nil assigns(:output_arg_num) - assert_not_nil assigns(:inputs) - assert_equal 1, assigns(:systems).size + assert_equal 1, assigns(:project).id + assert_equal 2, assigns(:bench).id + assert_equal 0, assigns(:output_arg_num) + assert ! assigns(:inputs).empty? + assert_equal 2, assigns(:systems).size + assert_equal 10, assigns(:system_changes).size end end Index: web/ranch/test/fixtures/outputs.yml --- web/ranch/test/fixtures/outputs.yml (revision 63) +++ web/ranch/test/fixtures/outputs.yml (working copy) @@ -34,24 +34,27 @@ # Outputs for the quotient (id = 2) bench. -quotient_r1_utime_1: - id: <%= id += 1 %> - name: utime - unit: sec - value: 5 - bench_id: 2 - arg_num: 1 - set_num: 0 - system_id: 1 - revision: 1 +<% (0..1).each do |sys| %> + + <% 10.downto(1) do |rev| %> -quotient_r2_utime_1: +<%= "quotient_r#{rev}_utime_1_sys#{sys}:" %> id: <%= id += 1 %> name: utime unit: sec - value: 10 + value: <%= rev * 5 + sys * 10 %> bench_id: 2 arg_num: 1 set_num: 0 - system_id: 2 - revision: 2 + system_id: <%= sys * 3 + (if rev <= 3 + 1 + elsif rev <= 6 + 2 + else + 3 + end) %> + revision: <%= rev %> + + <% end %> +<% end %> + Index: web/ranch/test/fixtures/systems.yml --- web/ranch/test/fixtures/systems.yml (revision 63) +++ web/ranch/test/fixtures/systems.yml (working copy) @@ -1,6 +1,8 @@ <% id = 0 %> -ouagadougou1: +<% (1..3).each do |i| %> + +<%= "ouagadougou#{i}:" %> id: <%= id += 1 %> hostname: ouagadougou kernel_name: Linux @@ -13,7 +15,7 @@ comp_flags: -02 -W -Wall mem_size: 256664 cpu_name: "AMD Athlon(tm) XP 2000+" - cpu_frequency: 1661.957 + cpu_frequency: <%= 1000.10 * i %> info: | Running action system SYSTEM UNAME: CYGWIN_NT-5.1 pau 1.5.18(0.132/4/2) 2005-07-02 20:30 i686 unknown unknown Cygwin @@ -44,51 +46,11 @@ This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -ouagadougou2: - id: <%= id += 1 %> - hostname: ouagadougou - kernel_name: Linux - kernel_revision: "2.4.27-2-k7" - kernel_version: "#1 Tue Aug 16 17:30:14" - host_type: i686 - os_name: GNU/Linux - comp_name: g++ - comp_version: 4.0.3 - comp_flags: -02 -W -Wall - mem_size: 256664 - cpu_name: "AMD Athlon(tm) XP 2000+" - cpu_frequency: 3000.00 - info: | - Running action system - SYSTEM UNAME: CYGWIN_NT-5.1 pau 1.5.18(0.132/4/2) 2005-07-02 20:30 i686 unknown unknown Cygwin - BUILD DATE: Mon Nov 14 10:13:51 2005 - BUILD SHORTDATE: 14/11 10:13 - HIGHEST SVN REVISION: 26 - BUILD REVISION: 6 - PKG_CONFIG_PATH: - PATH: /cygdrive/d/build_farm/prefix/monoburg/bin:/usr/local/bin:/bin:/cygdrive/c/ghc/ghc-6.4/bin:/cygdrive/c/program files/imagemagick-6.2.5-q16:/cygdrive/c/WINDOWS/system32:/cygdrive/c/WINDOWS:/cygdrive/c/WINDOWS/System32/Wbem:/cygdrive/c/Program Files/Intel/DMIX:/bin - BF_DEPS: - - CFLAGS: - CXXFLAGS: - CC: ccache gcc - CXX: ccache g++ - CONFIGURE OPTIONS: --prefix=/cygdrive/d/build_farm/prefix/ranch - DISTCHECK_CONFIGURE_FLAGS: +<% end %> - --- gcc (/bin/gcc) --- - gcc (GCC) 3.4.4 (cygming special) (gdc 0.12, using dmd 0.125) - Copyright (C) 2004 Free Software Foundation, Inc. - This is free software; see the source for copying conditions. There is NO - warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. - - --- g++ (/bin/g++) --- - g++ (GCC) 3.4.4 (cygming special) (gdc 0.12, using dmd 0.125) - Copyright (C) 2004 Free Software Foundation, Inc. - This is free software; see the source for copying conditions. There is NO - warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. +<% (1..3).each do |i| %> -vaucanson: +<%= "vaucanson#{i}:" %> id: <%= id += 1 %> hostname: vaucanson kernel_name: Linux @@ -101,7 +63,7 @@ comp_flags: -02 -W -Wall mem_size: 4151600 cpu_name: "Intel(R) Xeon(TM) CPU 3.20GHz" - cpu_frequency: 3194.224 + cpu_frequency: <%= 2000.10 * i %> info: | Running action system SYSTEM UNAME: CYGWIN_NT-5.1 pau 1.5.18(0.132/4/2) 2005-07-02 20:30 i686 unknown unknown Cygwin @@ -131,3 +93,5 @@ Copyright (C) 2004 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +<% end %> Index: web/ranch/app/helpers/graph_helper.rb --- web/ranch/app/helpers/graph_helper.rb (revision 63) +++ web/ranch/app/helpers/graph_helper.rb (working copy) @@ -5,6 +5,7 @@ rev_stop, arg_num, input_set_num, + system_hostname, options={}) url = { :controller => 'graph', @@ -13,7 +14,8 @@ :rev_start => rev_start, :rev_stop => rev_stop, :arg_num => arg_num, - :input_set_num => input_set_num + :input_set_num => input_set_num, + :system_hostname => system_hostname } options = url.merge(options) "<img src=\"#{url_for options}\" " + Index: web/ranch/app/helpers/benches_helper.rb --- web/ranch/app/helpers/benches_helper.rb (revision 63) +++ web/ranch/app/helpers/benches_helper.rb (working copy) @@ -1,2 +1,49 @@ module BenchesHelper + + def system_change_tag(hostname, changes, rev_start, rev_stop) + ret = %( + <p> + The configuration of the system #{hostname} has changed + between revision #{rev_start} and #{rev_stop}. + </p><p> + Beware that these modification may influence the benchmark results. + Look at the table below to check the modification. + </p><p> + <table> + <tr> + #{content_tag "td", hostname} + #{content_tag "td", "revision"} + </tr> + ) + prev = changes.first + changed = false + for change in changes do + if change.system_id != prev.system_id + changed = true + ret += change_tag(prev, change) + prev = change + end + end + if prev.revision != changes.last.revision + ret += change_tag(prev, changes.last) + end + ret += "</table></p>" + changed ? ret : "" + end + + protected + + def change_tag(change1, change2) + %( + <tr><td> + #{link_to(change1.system_id, + :controller => "systems", + :action => "show", + :system_id => change1.system_id)} + </td><td> + #{change1.revision}-#{change2.revision} + </td></tr> + ) + end + end Index: web/ranch/app/models/system.rb --- web/ranch/app/models/system.rb (revision 63) +++ web/ranch/app/models/system.rb (working copy) @@ -23,6 +23,14 @@ validates_length_of :cpu_name, :maximum => 128 validates_numericality_of :cpu_frequency + def self.find_id_by_hostname(hostname) + systems = System.find(:all, + :select => "id", + :conditions => [ "hostname = ?", hostname ]) + systems.collect! { |system| system.id } + systems + end + protected def validate Index: web/ranch/app/controllers/graph_controller.rb --- web/ranch/app/controllers/graph_controller.rb (revision 63) +++ web/ranch/app/controllers/graph_controller.rb (working copy) @@ -6,26 +6,39 @@ @bench = Bench.find_by_id params[:bench_id] @project = @bench.project - results = Bench.find_by_sql "SELECT value, name, unit, revision " + - "FROM outputs " + - "WHERE bench_id = #{(a)bench.id} " + - "AND arg_num = #{params[:arg_num]} " + - "AND set_num = #{params[:input_set_num]} " + - "AND #{params[:rev_start]} <= revision " + - "AND revision <= #{params[:rev_stop]} " + - "ORDER BY revision" + arg_num = params[:arg_num].to_i + input_set_num = params[:input_set_num].to_i + rev_start = params[:rev_start].to_i + rev_stop = params[:rev_stop].to_i + hostname = params[:system_hostname] + systems = System.find_id_by_hostname(hostname) + + results = Output.find(:all, + :select => "value, name, unit, revision", + :conditions => [ %(bench_id = ? AND + arg_num = ? AND + set_num = ? AND + ? <= revision AND + revision <= ? AND + system_id IN (?)), + @bench.id, + arg_num, + input_set_num, + rev_start, + rev_stop, + systems ], + :order => "revision") + + title = "#{(a)project.name}: #{(a)bench.name} (#{hostname})" + ylabel = "#{results.first.name}(#{results.first.unit})" data = results.collect { |v| v.value.to_f } labels = results.collect { |v| "r#{v.revision}" } - filename = "regression_#{@project.name}_#@bench_name" + filename = "regression_#{@project.name}_#{@bench.name}" Tempfile.open(filename) do |f| File.open(f.path, 'w') do |io| - Grapher.regression(io, - "#{(a)project.name}: #@bench_name", - "#{results.first.name}(#{results.first.unit})", - data, - labels) + Grapher.regression(io, title, ylabel, data, labels) end send_file(f.path, :disposition => 'inline', Index: web/ranch/app/controllers/benches_controller.rb --- web/ranch/app/controllers/benches_controller.rb (revision 63) +++ web/ranch/app/controllers/benches_controller.rb (working copy) @@ -2,7 +2,7 @@ layout 'benches' - helper :graph, :graph_form + helper :graph, :graph_form, :benches before_filter :list @@ -17,8 +17,10 @@ def regression flash[:error] = nil + @inputs = @bench.input @input_set_num = params[:input_set_num].to_i + @output_arg_num = params[:output_arg_num].to_i if @output_arg_num.zero? @output_arg_nb = Output.find_by_sql "SELECT outputs.arg_num " + @@ -29,6 +31,7 @@ "ORDER BY outputs.arg_num " @output_arg_nb = @output_arg_nb.size end + @systems = System.find_by_sql %( SELECT systems.hostname FROM systems, outputs @@ -36,12 +39,32 @@ AND outputs.bench_id = #{(a)bench.id} GROUP BY systems.hostname ORDER BY systems.hostname) + @system_hostname = params[:system_hostname] + @system_hostname = @systems.first.hostname if @system_hostname.nil? + if params[:revision].nil? or params[:revision][:range].nil? @revision = {} @revision[:stop], @revision[:start] = default_revision else @revision = get_revision_range(params[:revision][:range]) end + + if flash[:error].nil? + systems = System.find_id_by_hostname(@system_hostname) + @system_changes = Output.find(:all, + :select => "system_id, revision", + :conditions => [ %(bench_id = ? AND + ? <= revision AND + revision <= ? AND + system_id IN (?)), + @bench.id, + @revision[:start], + @revision[:stop], + systems + ], + :order => "revision") + end + end protected @@ -60,11 +83,9 @@ stop_rev, start_rev = default_revision(head_rev) result = { :stop => stop_rev, :start => start_rev } if revision =~ /^(-?\d+)-(-?\d+)$/ - result[:start] = $1 - result[:stop] = $2 - result[:stop] = result[:stop].to_i + result[:start] = $1.to_i + result[:stop] = $2.to_i result[:stop] = head_rev if result[:stop] > head_rev - result[:start] = result[:start].to_i result[:start] = 1 if result[:start] < 1 if result[:start] > result[:stop] flash[:error] = 'Start revision greater than stop revision.' Index: web/ranch/app/views/benches/regression.rhtml --- web/ranch/app/views/benches/regression.rhtml (revision 63) +++ web/ranch/app/views/benches/regression.rhtml (working copy) @@ -54,28 +54,22 @@ <tr> <td>Output:</td> - <td> - <table> - <tr> <td><%= outputs_tag "output_arg_num", @bench.name, @output_arg_num %></td> </tr> - </table> - </td> -</tr>  <tr> <td>System:</td> <td> - <table> - <tr> - <select id="system" name="system"> + <select id="system_hostname" name="system_hostname"> <% for system in @systems do %> - <%= content_tag "option", system.hostname, :value => system.hostname %> + <% option_opt = { :value => system.hostname } + if @system_hostname == system.hostname + option_opt[:selected] = "selected" + end %> + <%= content_tag "option", system.hostname, option_opt %> <% end %> - </tr> - </table> </td> </tr> @@ -93,18 +87,26 @@ <% if flash[:error] %> <p style="color: red;"><%= flash[:error] %></p> <% else %> + +  + + <%= system_change_tag @system_hostname, @system_changes, + @revision[:start], @revision[:stop] %> + +  + <% if @output_arg_num.zero? %> <% 1.upto(@output_arg_nb) do |i| %> <p> <%= graph_reg_tag @bench.id, @revision[:start], @revision[:stop], - i, @input_set_num %> + i, @input_set_num, @system_hostname %> </p> <% end %> <% else %> <%= graph_reg_tag @bench.id, @revision[:start], @revision[:stop], - @output_arg_num, @input_set_num %> + @output_arg_num, @input_set_num, @system_hostname %> <% end %> <% end %>

1 0

[ranch] 63: Fix a test.
by Nicolas Despr�s 26 Nov '05

26 Nov '05

https://svn.lrde.epita.fr/svn/ranch/trunk Index: ChangeLog from Nicolas Despr�s <nicolas.despres(a)gmail.com> Fix a test. * web/ranch/test/functional/benches_controller_test.rb: Load fixtures and fix a bad assertion. benches_controller_test.rb | 7 +++---- 1 files changed, 3 insertions(+), 4 deletions(-) Index: web/ranch/test/functional/benches_controller_test.rb --- web/ranch/test/functional/benches_controller_test.rb (revision 62) +++ web/ranch/test/functional/benches_controller_test.rb (working copy) @@ -5,7 +5,7 @@ class BenchesController; def rescue_action(e) raise e end; end class BenchesControllerTest < Test::Unit::TestCase - fixtures :projects, :benches, :outputs, :inputs + fixtures :projects, :benches, :outputs, :inputs, :systems def setup @controller = BenchesController.new @@ -141,7 +141,7 @@ end def test_systems_list_is_grouped_by_hostname - get :regression, { :bench_id => 2 } + post :regression, { :bench_id => 2 } assert_response :success assert_template 'regression' @@ -149,8 +149,7 @@ assert_not_nil assigns(:bench) assert_not_nil assigns(:output_arg_num) assert_not_nil assigns(:inputs) - assert_not_nil assigns(:systems) - assert 2, assigns(:systems).size + assert_equal 1, assigns(:systems).size end end

1 0

[ranch] 62: Fix a little bug.
by Nicolas Despr�s 26 Nov '05

26 Nov '05

https://svn.lrde.epita.fr/svn/ranch/trunk Index: ChangeLog from Nicolas Despr�s <nicolas.despres(a)gmail.com> Fix a little bug. * web/ranch/test/unit/system_test.rb: Adapt the test to the fixtures changes. system_test.rb | 2 +- 1 files changed, 1 insertion(+), 1 deletion(-) Index: web/ranch/test/unit/system_test.rb --- web/ranch/test/unit/system_test.rb (revision 61) +++ web/ranch/test/unit/system_test.rb (working copy) @@ -16,7 +16,7 @@ end def test_save_mem_size_positive - system = systems("ouagadougou") + system = systems("ouagadougou1") system.mem_size = -42 assert ! system.save assert 1, system.errors.count

1 0

[ranch] 61: Group system by hostname.
by Nicolas Despr�s 26 Nov '05

26 Nov '05

https://svn.lrde.epita.fr/svn/ranch/trunk Index: ChangeLog from Nicolas Desprès <nicolas.despres(a)lrde.epita.fr> Group system by hostname. * web/ranch/app/controllers/benches_controller.rb: Group system by hostname. * web/ranch/test/functional/benches_controller_test.rb: Test it. * web/ranch/test/fixtures/inputs.yml, * web/ranch/test/fixtures/outputs.yml, * web/ranch/test/fixtures/systems.yml: Add bench with twice the same system hostname. app/controllers/benches_controller.rb | 2 - test/fixtures/inputs.yml | 11 ++++++ test/fixtures/outputs.yml | 24 ++++++++++++++ test/fixtures/systems.yml | 48 +++++++++++++++++++++++++++-- test/functional/benches_controller_test.rb | 18 ++++++++++ 5 files changed, 100 insertions(+), 3 deletions(-) Index: web/ranch/test/functional/benches_controller_test.rb --- web/ranch/test/functional/benches_controller_test.rb (revision 60) +++ web/ranch/test/functional/benches_controller_test.rb (working copy) @@ -58,6 +58,7 @@ assert_not_nil assigns(:output_arg_num) assert_not_nil assigns(:inputs) assert_not_nil assigns(:input_set_num) + assert_not_nil assigns(:systems) assert_kind_of Hash, assigns(:revision) assert_equal 2, assigns(:revision)[:start] assert_equal 8, assigns(:revision)[:stop] @@ -77,6 +78,7 @@ assert_not_nil assigns(:output_arg_num) assert_not_nil assigns(:inputs) assert_not_nil assigns(:input_set_num) + assert_not_nil assigns(:systems) assert_kind_of Hash, assigns(:revision) assert_equal 1, assigns(:revision)[:start] assert_equal assigns(:project).head_revision, assigns(:revision)[:stop] @@ -97,6 +99,7 @@ assert_not_nil assigns(:output_arg_num) assert_not_nil assigns(:inputs) assert_not_nil assigns(:input_set_num) + assert_not_nil assigns(:systems) assert_not_nil flash[:error] end @@ -115,6 +118,7 @@ assert_equal 3, assigns(:output_arg_nb) assert_not_nil assigns(:inputs) assert_not_nil assigns(:input_set_num) + assert_not_nil assigns(:systems) assert_nil flash[:error] end @@ -132,7 +136,21 @@ assert_not_nil assigns(:output_arg_num) assert_not_nil assigns(:inputs) assert_not_nil assigns(:input_set_num) + assert_not_nil assigns(:systems) assert_not_nil flash[:error] end + def test_systems_list_is_grouped_by_hostname + get :regression, { :bench_id => 2 } + assert_response :success + assert_template 'regression' + + assert_not_nil assigns(:project) + assert_not_nil assigns(:bench) + assert_not_nil assigns(:output_arg_num) + assert_not_nil assigns(:inputs) + assert_not_nil assigns(:systems) + assert 2, assigns(:systems).size + end + end Index: web/ranch/test/fixtures/inputs.yml --- web/ranch/test/fixtures/inputs.yml (revision 60) +++ web/ranch/test/fixtures/inputs.yml (working copy) @@ -29,3 +29,14 @@ set_num += 1 end %> + +# Generate a set of quotient inputs. + +quotient_nb_state_1_1: + id: <%= id += 1 %> + name: nb_state + unit: "" + value: 42 + bench_id: 2 + arg_num: 1 + set_num: 0 Index: web/ranch/test/fixtures/outputs.yml --- web/ranch/test/fixtures/outputs.yml (revision 60) +++ web/ranch/test/fixtures/outputs.yml (working copy) @@ -31,3 +31,27 @@ end %> <% end %> + +# Outputs for the quotient (id = 2) bench. + +quotient_r1_utime_1: + id: <%= id += 1 %> + name: utime + unit: sec + value: 5 + bench_id: 2 + arg_num: 1 + set_num: 0 + system_id: 1 + revision: 1 + +quotient_r2_utime_1: + id: <%= id += 1 %> + name: utime + unit: sec + value: 10 + bench_id: 2 + arg_num: 1 + set_num: 0 + system_id: 2 + revision: 2 Index: web/ranch/test/fixtures/systems.yml --- web/ranch/test/fixtures/systems.yml (revision 60) +++ web/ranch/test/fixtures/systems.yml (working copy) @@ -1,8 +1,8 @@ <% id = 0 %> -ouagadougou: +ouagadougou1: id: <%= id += 1 %> - hostname: ouagadougou.lrde.epita.fr + hostname: ouagadougou kernel_name: Linux kernel_revision: "2.4.27-2-k7" kernel_version: "#1 Tue Aug 16 17:30:14" @@ -44,6 +44,50 @@ This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. +ouagadougou2: + id: <%= id += 1 %> + hostname: ouagadougou + kernel_name: Linux + kernel_revision: "2.4.27-2-k7" + kernel_version: "#1 Tue Aug 16 17:30:14" + host_type: i686 + os_name: GNU/Linux + comp_name: g++ + comp_version: 4.0.3 + comp_flags: -02 -W -Wall + mem_size: 256664 + cpu_name: "AMD Athlon(tm) XP 2000+" + cpu_frequency: 3000.00 + info: | + Running action system + SYSTEM UNAME: CYGWIN_NT-5.1 pau 1.5.18(0.132/4/2) 2005-07-02 20:30 i686 unknown unknown Cygwin + BUILD DATE: Mon Nov 14 10:13:51 2005 + BUILD SHORTDATE: 14/11 10:13 + HIGHEST SVN REVISION: 26 + BUILD REVISION: 6 + PKG_CONFIG_PATH: + PATH: /cygdrive/d/build_farm/prefix/monoburg/bin:/usr/local/bin:/bin:/cygdrive/c/ghc/ghc-6.4/bin:/cygdrive/c/program files/imagemagick-6.2.5-q16:/cygdrive/c/WINDOWS/system32:/cygdrive/c/WINDOWS:/cygdrive/c/WINDOWS/System32/Wbem:/cygdrive/c/Program Files/Intel/DMIX:/bin + BF_DEPS: + + CFLAGS: + CXXFLAGS: + CC: ccache gcc + CXX: ccache g++ + CONFIGURE OPTIONS: --prefix=/cygdrive/d/build_farm/prefix/ranch + DISTCHECK_CONFIGURE_FLAGS: + + --- gcc (/bin/gcc) --- + gcc (GCC) 3.4.4 (cygming special) (gdc 0.12, using dmd 0.125) + Copyright (C) 2004 Free Software Foundation, Inc. + This is free software; see the source for copying conditions. There is NO + warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + + --- g++ (/bin/g++) --- + g++ (GCC) 3.4.4 (cygming special) (gdc 0.12, using dmd 0.125) + Copyright (C) 2004 Free Software Foundation, Inc. + This is free software; see the source for copying conditions. There is NO + warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + vaucanson: id: <%= id += 1 %> hostname: vaucanson Index: web/ranch/app/controllers/benches_controller.rb --- web/ranch/app/controllers/benches_controller.rb (revision 60) +++ web/ranch/app/controllers/benches_controller.rb (working copy) @@ -34,7 +34,7 @@ FROM systems, outputs WHERE systems.id = outputs.system_id AND outputs.bench_id = #{(a)bench.id} - GROUP BY systems.id + GROUP BY systems.hostname ORDER BY systems.hostname) if params[:revision].nil? or params[:revision][:range].nil? @revision = {}

1 0

[ranch] 60: Start to handle the system.
by Nicolas Despr�s 24 Nov '05

24 Nov '05

https://svn.lrde.epita.fr/svn/ranch/trunk Index: ChangeLog from Nicolas Desprès <nicolas.despres(a)lrde.epita.fr> Start to handle the system. * web/ranch/test/functional/benches_controller_test.rb: Test that the system query get something. * web/ranch/app/controllers/benches_controller.rb: Query the system hostname list. * web/ranch/app/views/benches/regression.rhtml: Display the system list. app/controllers/benches_controller.rb | 7 +++++++ app/views/benches/regression.rhtml | 16 ++++++++++++++++ test/functional/benches_controller_test.rb | 1 + 3 files changed, 24 insertions(+) Index: web/ranch/test/functional/benches_controller_test.rb --- web/ranch/test/functional/benches_controller_test.rb (revision 59) +++ web/ranch/test/functional/benches_controller_test.rb (working copy) @@ -39,6 +39,7 @@ assert_not_nil assigns(:bench) assert_not_nil assigns(:output_arg_num) assert_not_nil assigns(:inputs) + assert_not_nil assigns(:systems) assert_kind_of Hash, assigns(:revision) assert assigns(:revision)[:start] < assigns(:revision)[:stop] assert assigns(:revision)[:start] >= 1 Index: web/ranch/app/controllers/benches_controller.rb --- web/ranch/app/controllers/benches_controller.rb (revision 59) +++ web/ranch/app/controllers/benches_controller.rb (working copy) @@ -29,6 +29,13 @@ "ORDER BY outputs.arg_num " @output_arg_nb = @output_arg_nb.size end + @systems = System.find_by_sql %( + SELECT systems.hostname + FROM systems, outputs + WHERE systems.id = outputs.system_id + AND outputs.bench_id = #{(a)bench.id} + GROUP BY systems.id + ORDER BY systems.hostname) if params[:revision].nil? or params[:revision][:range].nil? @revision = {} @revision[:stop], @revision[:start] = default_revision Index: web/ranch/app/views/benches/regression.rhtml --- web/ranch/app/views/benches/regression.rhtml (revision 59) +++ web/ranch/app/views/benches/regression.rhtml (working copy) @@ -59,8 +59,24 @@ <tr> <td><%= outputs_tag "output_arg_num", @bench.name, @output_arg_num %></td> </tr> + </table> </td> +</tr> + + + +<tr> + <td>System:</td> + <td> + <table> + <tr> + <select id="system" name="system"> + <% for system in @systems do %> + <%= content_tag "option", system.hostname, :value => system.hostname %> + <% end %> + </tr> </table> + </td> </tr>

1 0

vcs-svn ci: Interrompre
by Akim Demaille 21 Nov '05

21 Nov '05

presentations/2005-11-conseil-scientifique/share % svn ci nostromo 11:50 At revision 1034. [vcs] info: ,form already exists [vcs] info: ,iform already exists [vcs] info: ,message already exists Committing, are you sure? (y/n) Please enter "yes" or "no". Committing, are you sure? (y/n) Please enter "yes" or "no". Committing, are you sure? (y/n) Please enter "yes" or "no". Committing, are you sure? (y/n) Please enter "yes" or "no". Committing, are you sure? (y/n) Le C-c ne marche pas.

2 1

vcs-svn: ignore fails
by Akim Demaille 21 Nov '05

21 Nov '05

~/lectures/lrde-admin-perms % svn ignore foo/bar nostromo 11:17 [vcs] info: Add `bar' to svn:ignore of `foo' [vcs] error: !commands::data | [vcs] error: exit: 1 [vcs] error: output: "" [vcs] error: error: | [vcs] error: svn: 'foo' is not under version control [vcs] error:

2 1

[ranch] 59: Fix buggy input fixtures.
by Nicolas Despr�s 20 Nov '05

20 Nov '05

https://svn.lrde.epita.fr/svn/ranch/trunk Index: ChangeLog from Nicolas Despr�s <nicolas.despres(a)gmail.com> Fix buggy input fixtures. * web/ranch/test/unit/input_test.rb: Adapt test to no buggy fixtures. * web/ranch/test/fixtures/inputs.yml: Generate correct fixtures. fixtures/inputs.yml | 18 ++++++++---------- unit/input_test.rb | 4 ++-- 2 files changed, 10 insertions(+), 12 deletions(-) Index: web/ranch/test/unit/input_test.rb --- web/ranch/test/unit/input_test.rb (revision 58) +++ web/ranch/test/unit/input_test.rb (working copy) @@ -16,13 +16,13 @@ end def test_save_arg_num_is_positive - input = inputs("determinize_r1_foo_1") + input = inputs("determinize_foo_1_3") input.arg_num = -1 assert !input.save end def test_save_set_num_is_positive_or_zero - input = inputs("determinize_r1_foo_1") + input = inputs("determinize_foo_1_3") input.set_num = -1 assert !input.save end Index: web/ranch/test/fixtures/inputs.yml --- web/ranch/test/fixtures/inputs.yml (revision 58) +++ web/ranch/test/fixtures/inputs.yml (working copy) @@ -2,25 +2,24 @@ # Generate a set of determinize inputs. -<% (1..10).each do |bench_id| %> - <% val = 2 set_num = 0 while set_num < 4 do %> <% arg_num = 1 - { - 'nb_states' => '', - 'nb_transition' => '', - 'foo' => 'unit_foo' - }.each do |name, unit| %> + [ + [ 'nb_states', '' ], + [ 'nb_transition','' ], + [ 'foo', 'unit_foo' ] + ].each do |item| + name, unit = item %> -<%= "determinize_r#{bench_id}_#{name}_#{set_num}:" %> +<%= "determinize_#{name}_#{set_num}_#{arg_num}:" %> id: <%= id += 1 %> name: <%= name %> unit: <%= unit.inspect %> value: <%= val %> - bench_id: <%= bench_id %> + bench_id: 1 arg_num: <%= arg_num %> set_num: <%= set_num %> @@ -29,5 +28,4 @@ <% val *= 2 set_num += 1 end %> -<% end %>

1 0

[ranch] 58: System list sorted by column.
by Nicolas Despr�s 20 Nov '05

20 Nov '05

https://svn.lrde.epita.fr/svn/ranch/trunk Index: ChangeLog from Nicolas Despr�s <nicolas.despres(a)gmail.com> System list sorted by column. * web/ranch/test/functional/systems_controller_test.rb: Test it. * web/ranch/app/controllers/systems_controller.rb: Allow to choose the order column and the order sens. * web/ranch/app/views/systems/list.rhtml: Revers the order sens. app/controllers/systems_controller.rb | 20 ++++++++++++- app/views/systems/list.rhtml | 12 +++++++ test/functional/systems_controller_test.rb | 44 ++++++++++++++++++++++++++++- 3 files changed, 73 insertions(+), 3 deletions(-) Index: web/ranch/test/functional/systems_controller_test.rb --- web/ranch/test/functional/systems_controller_test.rb (revision 57) +++ web/ranch/test/functional/systems_controller_test.rb (working copy) @@ -19,12 +19,54 @@ assert_redirected_to(:action => 'list') end - def test_list + def test_list_default get :list assert_response :success assert_template 'list' assert_not_nil assigns(:systems) + assert "hostname", assigns(:order_by) + assert assigns(:ascendant) + end + + def test_list_bad_order_by + get :list, { :order_by => 'bad_column_name' } + assert_response :success + assert_template 'list' + + assert_not_nil assigns(:systems) + assert "hostname", assigns(:order_by) + assert assigns(:ascendant) + end + + def test_list_good_order_by + get :list, { :order_by => 'mem_size' } + assert_response :success + assert_template 'list' + + assert_not_nil assigns(:systems) + assert "mem_size", assigns(:order_by) + assert assigns(:ascendant) + end + + def test_list_good_order_by_good_ascendant + get :list, { :order_by => 'mem_size', :ascendant => "false" } + assert_response :success + assert_template 'list' + + assert_not_nil assigns(:systems) + assert "mem_size", assigns(:order_by) + assert !assigns(:ascendant) + end + + def test_list_good_order_by_bad_ascendant + get :list, { :order_by => 'mem_size', :ascendant => "bad ascendant value" } + assert_response :success + assert_template 'list' + + assert_not_nil assigns(:systems) + assert "mem_size", assigns(:order_by) + assert assigns(:ascendant) end def test_show_with_id Index: web/ranch/app/controllers/systems_controller.rb --- web/ranch/app/controllers/systems_controller.rb (revision 57) +++ web/ranch/app/controllers/systems_controller.rb (working copy) @@ -7,11 +7,29 @@ end def list - @systems = System.find :all, :order => "hostname" + @order_by = params[:order_by] + if @order_by.nil? or not field_name_exists?(@order_by) + @order_by = "hostname" + end + + @ascendant = params[:ascendant] != "false" + + @systems = System.find :all, { + :order => "#@order_by #{@ascendant ? "" : "DESC"}" + } end def show @system = System.find_by_id params[:system_id] end + protected + + def field_name_exists?(name) + System.columns.each do |column| + return true if column.name == name + end + false + end + end Index: web/ranch/app/views/systems/list.rhtml --- web/ranch/app/views/systems/list.rhtml (revision 57) +++ web/ranch/app/views/systems/list.rhtml (working copy) @@ -2,6 +2,9 @@ <p> <table> + + + <% rejected_col = [ "id", "info" ] columns = System.columns.reject do |column| @@ -10,9 +13,16 @@ %> <tr> <% for column in columns do %> - <%= content_tag "td", column.name %> + <td> + <%= link_to column.name, :action => "list", + :order_by => column.name, + :ascendant => (@ascendant ^ true).to_s %> + </td> <% end %> </tr> + + + <% for system in @systems do %> <tr> <% for column in columns do %>

1 0

[ranch] 57: Add the show request to the systems controller.
by Nicolas Despr�s 20 Nov '05

20 Nov '05

https://svn.lrde.epita.fr/svn/ranch/trunk Index: ChangeLog from Nicolas Despr�s <nicolas.despres(a)gmail.com> Add the show request to the systems controller. * web/ranch/app/controllers/systems_controller.rb: Add the show request. * web/ranch/test/functional/systems_controller_test.rb: Test the show request. * web/ranch/app/views/systems/list.rhtml: Hostnames are links to the information view.. * web/ranch/app/views/systems/show.rhtml: New. View of the show request. * web/ranch/app/views/systems/_menubar.rhtml: Add the `Information' menu item. app/controllers/systems_controller.rb | 4 ++++ app/views/systems/_menubar.rhtml | 11 +++++++++-- app/views/systems/list.rhtml | 7 +++++++ app/views/systems/show.rhtml | 16 ++++++++++++++++ test/functional/systems_controller_test.rb | 16 ++++++++++++++++ 5 files changed, 52 insertions(+), 2 deletions(-) Index: web/ranch/test/functional/systems_controller_test.rb --- web/ranch/test/functional/systems_controller_test.rb (revision 56) +++ web/ranch/test/functional/systems_controller_test.rb (working copy) @@ -27,4 +27,20 @@ assert_not_nil assigns(:systems) end + def test_show_with_id + get :show, { :system_id => 1 } + assert_response :success + assert_template "show" + + assert_not_nil assigns(:system) + end + + def test_show_without_id + get :show + assert_response :success + assert_template "show" + + assert_nil assigns(:system) + end + end Index: web/ranch/app/controllers/systems_controller.rb --- web/ranch/app/controllers/systems_controller.rb (revision 56) +++ web/ranch/app/controllers/systems_controller.rb (working copy) @@ -10,4 +10,8 @@ @systems = System.find :all, :order => "hostname" end + def show + @system = System.find_by_id params[:system_id] + end + end Index: web/ranch/app/views/systems/list.rhtml --- web/ranch/app/views/systems/list.rhtml (revision 56) +++ web/ranch/app/views/systems/list.rhtml (working copy) @@ -16,8 +16,15 @@ <% for system in @systems do %> <tr> <% for column in columns do %> + <% if column.name == "hostname" %> + <td> + <%= link_to system.hostname, :action => "show", + :system_id => system.id %> + </td> + <% else %> <%= content_tag "td", system.send(column.name) %> <% end %> + <% end %> </tr> <% end %> </table> Index: web/ranch/app/views/systems/show.rhtml --- web/ranch/app/views/systems/show.rhtml (revision 0) +++ web/ranch/app/views/systems/show.rhtml (revision 0) @@ -0,0 +1,16 @@ +  + +<p> +<% if @system.nil? %> + Select a system in the list first. +<% else %> + <table> + <% for column in System.columns do %> + <tr> + <%= content_tag "td", "#{column.name}:" %> + <%= content_tag "td", @system.send(column.name) %> + </tr> + <% end %> + </table> +<% end %> +</p> Index: web/ranch/app/views/systems/_menubar.rhtml --- web/ranch/app/views/systems/_menubar.rhtml (revision 56) +++ web/ranch/app/views/systems/_menubar.rhtml (working copy) @@ -2,8 +2,15 @@ <table> <tr> <td> - <%= link_to "List", :controller => "systems", - :action => "list" %> + <%= link_to "List", :action => "list" %> + </td> + <td> + <% if @system.nil? %> + <%= link_to "Information", :action => "show" %> + <% else %> + <%= link_to "Information", :action => "show", + :system_id => @system.id %> + <% end %> </td> </tr> </table>

1 0