tests/bugs/modalg_5/bug22747

   1 puts "============"
   2 puts "OCC22747"
   3 puts "============"
   4 puts ""
   5 ###########################################################################
   6 # Progress indicator in sewing algorithm
   7 ###########################################################################
   8
   9 set BugNumber OCC22747
  10
  11 pload XSDRAW
  12
  13 restore [locate_data_file OCC22765.brep] a
  14 vinit
  15 XProgress -t
  16 set List1 [sewing result 0.1 a]
  17 if { [string compare $List1 ""] != 0 } {
  18     puts "Error: XProgress should not have any output in this mode"
  19 } else {
  20     puts "Mode -t works properly"
  21 }
  22
  23 puts "----------------------"
  24 XProgress +t
  25 set List2 [sewing result 0.1 a]
  26 if { [regexp "Progress:" $List2] != 1 } {
  27     puts "Error: XProgress should have output in this mode"
  28 } else {
  29     puts "Mode +t works properly"
  30 }
  31
  32 set 2dviewer 0
  33