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