0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug29857
1 puts "========"
2 puts "OCC29857"
3 puts "========"
4 puts ""
5 ####################################
6 ## Extrema between Point and Curve returns two results 
7 ## (there should be only one) that are actually the same
8 ####################################
9
10
11 restore [locate_data_file bug29857.brep] c
12 set info [proj c -53.9663741221239 118.723988602907 -57.6228206908223]
13
14 set pp1 ""
15 set pp2 ""
16 regexp {ext_1} $info pp1
17 regexp {ext_2} $info pp2
18
19 if { $pp2 != "" } {
20    puts "Error : Projection is not correct"
21
22 if { $pp1 != "" } {
23    puts "OK: Projection is correct"
24 } else {
25    puts "Error : Projection is not correct"
26