tests/bugs/modalg_2/bug356

   1
   2 puts "================"
   3 puts "OCC356"
   4 puts "================"
   5 puts ""
   6 #######################################################
   7 ## The Draw command "wexplo" gives one edge instead of 6 for the face.
   8 #######################################################
   9
  10 restore [locate_data_file OCC356.brep] result
  11 checkshape result
  12
  13 explode result w
  14
  15 wexplo result_1 result
  16
  17 set nom 0
  18 set j 1
  19 repeat 10 {
  20     set err ""
  21     regexp { is a shape ([A-Z]+)} [whatis WEDGE_$j] full err
  22     if { $err != "EDGE"} {
  23         break
  24     } else {
  25         set nom [expr $nom + 1]
  26     }
  27     incr j
  28 }
  29 if { $nom != 6} {
  30     puts "Faulty OCC356 : Command WEXPLO works WRONGLY"
  31 } else {
  32     puts "OCC356 OK  :  Command WEXPLO works properly"
  33 }
  34
  35 set square 6207.83
  36 set 2dviewer 0