tests/bugs/modalg_6/bug27325

   1 puts "============"
   2 puts "OCC27325"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## [Regression to 6.9.1] geom/revolution_00/A1: BOPTools_AlgoTools2D::AttachExistingPCurve doesn't work
   7 ###############################
   8
   9 restore [locate_data_file bug27325_edge.brep] en
  10 restore [locate_data_file bug27325_face.brep] f
  11 explode f e
  12 attachpcurve f_3 en f
  13
  14 #Check attached p-curve
  15 pcurve result en f
  16 #whatis result
  17 set ind [string first "2d curve" [whatis result]]
  18 if {${ind} < 0} {
  19   puts "Error: PCurve has not been attached"
  20 } else {
  21   dump result
  22 }