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

puts "================"
puts "OCC23952"
puts "================"
puts ""
###########################################################################################
# Improving thread-safety of intersections, approximations and other modeling algorithms
###########################################################################################

pload QAcommands
restore [locate_data_file bug23952_s1.draw] a
restore [locate_data_file bug23952_s2.draw] b

set NbLines 6
set info [OCC23952intersect $NbLines a b]

if { [regexp "theNbSol: OK" $info] != 1 } {
    puts "Error : Number of intersections is incorrect"
} else {
    puts "OK: Number of intersections is correct"
}
Commit	Line	Data
85c44a05	1	puts "================"
	2	puts "OCC23952"
	3	puts "================"
	4	puts ""
	5	###########################################################################################
	6	# Improving thread-safety of intersections, approximations and other modeling algorithms
	7	###########################################################################################
	8
	9	pload QAcommands
	10	restore [locate_data_file bug23952_s1.draw] a
	11	restore [locate_data_file bug23952_s2.draw] b
	12
b92f3572	13	set NbLines 6
85c44a05	14	set info [OCC23952intersect $NbLines a b]
	15
	16	if { [regexp "theNbSol: OK" $info] != 1 } {
	17	puts "Error : Number of intersections is incorrect"
	18	} else {
	19	puts "OK: Number of intersections is correct"
	20	}
	21