tests/bugs/modalg_4/bug82

   1 puts "TODO OCC82 ALL: Error : Incomplete section of shell by plane"
   2
   3 puts "====="
   4 puts "OCC82"
   5 puts "====="
   6 puts ""
   7 #################################################
   8 # BUC60908. Incomplete section of shell by plane.
   9 #################################################
  10
  11 restore [locate_data_file BUC60907_px1.rle] sh
  12
  13 checkshape sh
  14
  15 set length 113.703
  16
  17 set nbshapes_expected "
  18 Number of shapes in shape
  19  VERTEX    : 44
  20  EDGE      : 41
  21 "
  22
  23 plane f 0 14.8053 0 0 1 0
  24 mkface f f
  25
  26 section result sh f
  27
  28 checkshape result
  29
  30 checkprops result -l ${length}
  31
  32 checknbshapes result -ref ${nbshapes_expected} -t -m "Section"
  33
  34 set info [bopcheck result]
  35 if { [regexp "This shape seems to be OK" ${info}] != 1 } {
  36     puts "Error : Incomplete section of shell by plane"
  37 }
  38
  39 checkview -display result -with sh -2d -path ${imagedir}/${test_image}.png