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

puts "============"
puts "OCC23224"
puts "============"
puts ""
#######################################################################
# Empty result done by intersection algorithm
#######################################################################

set BugNumber OCC23224

restore [locate_data_file OCC23224-line.brep] l
restore [locate_data_file OCC23224-face.brep] f
mksurface s f
mkcurve c l
intersect result c s
set info1 [dump result]

if { [regexp {Point +: ([-0-9.+eE]+)} $info1 full] == 0  } {
    puts "Faulty ${BugNumber}"
} else {
    puts "OK ${BugNumber}"
}
Commit	Line	Data
3bea4c16	1	puts "============"
	2	puts "OCC23224"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Empty result done by intersection algorithm
	7	#######################################################################
	8
	9	set BugNumber OCC23224
	10
	11	restore [locate_data_file OCC23224-line.brep] l
	12	restore [locate_data_file OCC23224-face.brep] f
	13	mksurface s f
	14	mkcurve c l
	15	intersect result c s
	16	set info1 [dump result]
	17
	18	if { [regexp {Point +: ([-0-9.+eE]+)} $info1 full] == 0 } {
	19	puts "Faulty ${BugNumber}"
	20	} else {
	21	puts "OK ${BugNumber}"
	22	}
	23
	24