[occt.git] / tests / bugs / modalg_6 / bug27357

puts "========"
puts "OCC27357"
puts "========"
puts ""
#################################################################
# Geom2dGcc_Circ2d2TanOn: check status of sub-algorithms to avoid exceptions
#################################################################

pload QAcommands

set info [OCC27357]
if { [regexp "Exception" $info] != 0 } {
    puts "Error : Exception was caught"
} else {
    puts "OK"
}
Commit	Line	Data
8009d070	1	puts "========"
	2	puts "OCC27357"
	3	puts "========"
	4	puts ""
	5	#################################################################
	6	# Geom2dGcc_Circ2d2TanOn: check status of sub-algorithms to avoid exceptions
	7	#################################################################
	8
	9	pload QAcommands
	10
	11	set info [OCC27357]
	12	if { [regexp "Exception" $info] != 0 } {
	13	puts "Error : Exception was caught"
	14	} else {
	15	puts "OK"
	16	}