[occt.git] / tests / bugs / modalg_7 / bug29857_1

puts "========"
puts "OCC29857_1"
puts "========"
puts ""
####################################
## Extrema between Point and Curve returns three solutions 
## (there should be only two), two of these are actually the same
####################################


restore [locate_data_file bug29857_1.brep] c
set info [proj c -139.04514104219 128.256108703487 -64.9999999999983]

set pp1 ""
set pp2 ""
set pp3 ""
regexp {ext_1} $info pp1
regexp {ext_2} $info pp2
regexp {ext_3} $info pp3
if { $pp3 != "" } {
   puts "Error : Projection is not correct"
} 
if { $pp1 != "" && $pp2 != "" } {
   puts "OK: Projection is correct"
} else {
   puts "Error : Projection is not correct"
}
Commit	Line	Data
1dbdf099	1	puts "========"
	2	puts "OCC29857_1"
	3	puts "========"
	4	puts ""
	5	####################################
	6	## Extrema between Point and Curve returns three solutions
	7	## (there should be only two), two of these are actually the same
	8	####################################
	9
	10
	11	restore [locate_data_file bug29857_1.brep] c
	12	set info [proj c -139.04514104219 128.256108703487 -64.9999999999983]
	13
	14	set pp1 ""
	15	set pp2 ""
	16	set pp3 ""
	17	regexp {ext_1} $info pp1
	18	regexp {ext_2} $info pp2
	19	regexp {ext_3} $info pp3
	20	if { $pp3 != "" } {
	21	puts "Error : Projection is not correct"
	22	}
	23	if { $pp1 != "" && $pp2 != "" } {
	24	puts "OK: Projection is correct"
	25	} else {
	26	puts "Error : Projection is not correct"
	27	}