tests/bugs/modalg_6/bug27441

   1 puts "============"
   2 puts "OCC27441"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## The method IntTools_ContextIsVertexOnLine incorrectly computes parameter of the point on the curve
   7 ###############################
   8
   9 restore [locate_data_file bug27428_shapes.brep] b
  10 explode b
  11 bsection result b_1 b_2
  12 set bcheck [bopcheck result]
  13 puts $bcheck
  14 if {![regexp {This shape seems to be OK.} $bcheck]} {
  15     puts "Error: bopcheck failed"
  16 }
  17
  18 checkshape result
  19 checkprops result -l 0.00535319
  20 checknbshapes result -vertex 2 -edge 1
  21
  22 checkview -display result -2d -path ${imagedir}/${test_image}.png