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

puts "============"
puts "OCC24203"
puts "============"
puts ""
#######################################################################
## Command "sameparameter" in DRAW on attached edge set tolerance equal to 116.
#######################################################################

pload DATAEXCHANGEKERNEL

restore [locate_data_file bug24203_notspedge.brep] e1

sameparameter e1

regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance e1] full MaxTol_1

puts "MaxTolerance = $MaxTol_1"

set MaxTol 0.20

if { $MaxTol_1 > $MaxTol } {
    puts "Faulty OCC24203"
} else {
    puts "OCC24203 OK"
}
Commit	Line	Data
a86d3ec0	1	puts "============"
	2	puts "OCC24203"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	## Command "sameparameter" in DRAW on attached edge set tolerance equal to 116.
	7	#######################################################################
	8
	9	pload DATAEXCHANGEKERNEL
	10
	11	restore [locate_data_file bug24203_notspedge.brep] e1
	12
	13	sameparameter e1
	14
	15	regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance e1] full MaxTol_1
	16
	17	puts "MaxTolerance = $MaxTol_1"
	18
	19	set MaxTol 0.20
	20
	21	if { $MaxTol_1 > $MaxTol } {
	22	puts "Faulty OCC24203"
	23	} else {
	24	puts "OCC24203 OK"
	25	}