tests/bugs/moddata_2/bug23152

   1 puts "==========="
   2 puts "OCC23152"
   3 puts "==========="
   4 ######################################################
   5 # Possibility to have echo of DRAW commands in log file
   6 ######################################################
   7
   8 set BugNumber OCC23152
   9
  10 dchrono t stop
  11 dchrono t start
  12 dchrono t stop
  13
  14 dlog reset
  15 dlog on
  16 dchrono t show
  17 set log_on [dlog get]
  18
  19 dlog reset
  20 dlog off
  21 dchrono t show
  22 set log_off [dlog get]
  23
  24 puts "log_on = ${log_on}"
  25 puts "log_off = ${log_off}"
  26
  27 set llength_log_on  [llength ${log_on}]
  28 set llength_log_off [llength ${log_off}]
  29
  30 puts "llength log_on= [llength ${log_on}]"
  31 puts "llength log_off= [llength ${log_off}]"
  32
  33 set status 0
  34 if { ${llength_log_on} > 0 } {
  35    puts "dlog on work OK"
  36 } else {
  37    puts "dlog on work Faulty"
  38    set status 1
  39 }
  40 if { ${llength_log_off} == 0 } {
  41    puts "dlog off work OK"
  42 } else {
  43    puts "dlog off work Faulty"
  44    set status 1
  45 }
  46
  47 # Resume
  48 puts ""
  49 if { ${status} == 0 } {
  50    puts "OK ${BugNumber}"
  51 } else {
  52    puts "Faulty ${BugNumber}"
  53 }