[occt.git] / tests / bugs / modalg_5 / bug23948_1

puts "========="
puts "OCC23948"
puts "========="
puts ""
###########################################################
# Wrong intersection between a surface of revolution and a plane.
###########################################################

set MaxTol 1.0e-4
set NbCurv_OK 2

restore [locate_data_file bug22766_f1] f1
restore [locate_data_file bug22766_f2] f2

set log [bopcurves f1 f2]

regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv

if {${NbCurv} != ${NbCurv_OK}} {
  puts "Error: ${NbCurv_OK} curve(s) expected, but ${NbCurv} found."
}

if {${Toler} > ${MaxTol}} {
  puts "Error: Tolerance is too big!"
}
Commit	Line	Data
6da50d26	1	puts "========="
	2	puts "OCC23948"
	3	puts "========="
	4	puts ""
	5	###########################################################
	6	# Wrong intersection between a surface of revolution and a plane.
	7	###########################################################
	8
	9	set MaxTol 1.0e-4
	10	set NbCurv_OK 2
	11
	12	restore [locate_data_file bug22766_f1] f1
	13	restore [locate_data_file bug22766_f2] f2
	14
	15	set log [bopcurves f1 f2]
	16
	17	regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
	18
	19	if {${NbCurv} != ${NbCurv_OK}} {
	20	puts "Error: ${NbCurv_OK} curve(s) expected, but ${NbCurv} found."
	21	}
	22
	23	if {${Toler} > ${MaxTol}} {
	24	puts "Error: Tolerance is too big!"
	25	}