[occt.git] / tests / bugs / moddata / buc60902

puts "========"
puts "BUC60902"
puts "========"

pload QAcommands

set info [BUC60902]

if { [regexp "First tangent is OK" $info] != 1 && [regexp "Last tangent is OK" $info] != 1 } {
	puts "Error : Result is invalid"
}
Commit	Line	Data
a87752f3	1	puts "========"
	2	puts "BUC60902"
	3	puts "========"
	4
	5	pload QAcommands
	6
	7	set info [BUC60902]
	8
	9	if { [regexp "First tangent is OK" $info] != 1 && [regexp "Last tangent is OK" $info] != 1 } {
	10	puts "Error : Result is invalid"
	11	}
	12
	13
	14