[occt.git] / tests / bugs / moddata_2 / bug813

pload QAcommands

puts "========="
puts " OCC813 "
puts "========="
puts ""
#####################################
## Geom2dGcc_Lin2d2Tan fails on point and ellipse
#####################################
set U 200
set V 200

set result [OCC813 $U $V]

set nb_sol 0

regexp {nb of solutions = ([-0-9.+eE]+)} $result full nb_sol

if {$nb_sol > 0} {
    puts "OCC813 OK"
} else {
    puts "Faulty OCC813"
}
Commit	Line	Data
352ffd73	1	pload QAcommands
	2
	3	puts "========="
	4	puts " OCC813 "
	5	puts "========="
	6	puts ""
	7	#####################################
	8	## Geom2dGcc_Lin2d2Tan fails on point and ellipse
	9	#####################################
	10	set U 200
	11	set V 200
	12
	13	set result [OCC813 $U $V]
	14
	15	set nb_sol 0
	16
	17	regexp {nb of solutions = ([-0-9.+eE]+)} $result full nb_sol
	18
	19	if {$nb_sol > 0} {
	20	puts "OCC813 OK"
	21	} else {
	22	puts "Faulty OCC813"
	23	}
	24