/[eiffelstudio]/branches/eth/eve/Src/Eiffel/interface/graphical/tools/autodebug/process/es_adb_process_sequence_for_debugging.e
ViewVC logotype

Diff of /branches/eth/eve/Src/Eiffel/interface/graphical/tools/autodebug/process/es_adb_process_sequence_for_debugging.e

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 95331 by maxpei, Sat Jun 21 22:38:32 2014 UTC revision 95332 by maxpei, Fri Jun 27 12:57:49 2014 UTC
# Line 64  feature -- Operation Line 64  feature -- Operation
64                          else                          else
65                                  l_process := sub_task                                  l_process := sub_task
66                                  if attached {ES_ADB_REGULAR_TESTING_PROCESS} l_process as lt_regular_testing_process then                                  if attached {ES_ADB_REGULAR_TESTING_PROCESS} l_process as lt_regular_testing_process then
67                                                  -- Fix the faults found during `sub_task'.                                          if info_center.config.is_starting_fixing_after_each_testing_session then
68                                          l_relaxed_testing_and_fixing_tasks := relaxed_testing_and_fixing_tasks_for_faults_in_classes (lt_regular_testing_process.classes)                                                          -- Fix the faults found during `sub_task'.
69                                          tasks.append_first (l_relaxed_testing_and_fixing_tasks)                                                  l_relaxed_testing_and_fixing_tasks := relaxed_testing_and_fixing_tasks_for_faults_in_classes (lt_regular_testing_process.classes)
70                                          if not tasks.is_empty then                                                  tasks.append_first (l_relaxed_testing_and_fixing_tasks)
71                                                  sub_task := tasks.first                                          elseif info_center.config.is_starting_fixing_after_all_testing_sessions and then tasks.is_empty then
72                                                  tasks.remove_first                                                          -- Fix the faults found during ALL testing sessions.
73                                          else                                                  l_relaxed_testing_and_fixing_tasks := relaxed_testing_and_fixing_tasks_for_faults_in_classes (info_center.config.all_classes)
74                                                  sub_task := Void                                                  tasks.append_first (l_relaxed_testing_and_fixing_tasks)
75                                                  wrap_up                                          elseif info_center.config.is_starting_fixing_manually then
76                                                            -- Do nothing.
77                                          end                                          end
78                                    end
79    
80                                    if tasks.is_empty then
81                                            sub_task := Void
82                                            wrap_up
83                                  else                                  else
84                                          if tasks.is_empty then                                          sub_task := tasks.first
85                                                  sub_task := Void                                          tasks.remove_first
                                                 wrap_up  
                                         else  
                                                 sub_task := tasks.first  
                                                 tasks.remove_first  
                                         end  
86                                  end                                  end
87                          end                          end
88                  end                  end

Legend:
Removed from v.95331  
changed lines
  Added in v.95332

  ViewVC Help
Powered by ViewVC 1.1.23