tests/bugs/modalg_2/bug22833

   1 puts "========================"
   2 puts "OCC22833"
   3 puts "========================"
   4 puts ""
   5 #######################################################################
   6 # Command "checkshape" in DRAWEXE give error "Self intersection wire" on attached shape
   7 #######################################################################
   8
   9 set BugNumber OCC22833
  10
  11 restore [locate_data_file OCC22833-bugInt.brep] result
  12
  13 set text [checkshape result f]
  14 set last1 [lindex $text end]
  15 set last2 [lindex $text end-1]
  16
  17 set status 0
  18 set s1 "OK"
  19 set s2 "looks"
  20
  21 if { [string equal $last1 $s1] && [string equal $last2 $s2] } {
  22     set status 0
  23 } else {
  24     set status 1 }
  25
  26 if { ${status} != 0 } {
  27     puts "Faulty ${BugNumber}"
  28 } else {
  29    puts "OK ${BugNumber}"
  30 }
  31
  32 set square 63427.2
  33 set 3dviewer 1