0032191: Tests - merge duplicated tests/v3d selection cases
[occt.git] / tests / bugs / modalg_6 / bug27322
1 puts "========"
2 puts "OCC27322"
3 puts "========"
4 puts ""
5 ####################################################
6 # geom/revolution_00/A1: Incorrect pcurve creation
7 ####################################################
8
9 restore [locate_data_file bug27325_edge.brep] en
10 restore [locate_data_file bug27325_face.brep] f
11
12 bhaspc en f do
13 mk2dcurve c1 en f
14 explode f e
15 mk2dcurve c2 f_3 f
16 2dcvalue c1 0.0025 x y
17
18 set log [2dproj c2 x y]
19
20 if { ![regexp {ext_} $log ] } {
21   puts "Error: empty projection"
22 } elseif { ![regexp {point} [whatis ext_1] ] } { 
23   puts "ERROR: OCC27322 is reproduced. Incorrect pcurve creation: too long from the source one"
24 }