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

puts "============"
puts "OCC22851"
puts "============"
puts ""
#######################################################################
# No intersection curve between two surfaces
#######################################################################

set BugNumber OCC22851

restore [locate_data_file bug22851_fz1.brep] b1 
restore [locate_data_file bug22851_fz8.brep] b2 
mksurface s1 b1
mksurface s2 b2
intersect i s1 s2

set dump_info  [dump i]

set lst [split ${dump_info}]
set dump_length [llength $lst]

set find_BSCurve [regexp {BSplineCurve} $dump_info]
set find_Degree_Poles_Knots [regexp {Degree +[-0-9.+eE]+, +[-0-9.+eE]+ +Poles, +[-0-9.+eE]+ +Knots} $dump_info]

if { $dump_length == 0 && !$find_BSCurve && !$find_Degree_Poles_Knots } {
    puts "Faulty ${BugNumber}"
} else {
    puts "OK ${BugNumber}"
}
Commit	Line	Data
3bea4c16	1	puts "============"
	2	puts "OCC22851"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# No intersection curve between two surfaces
	7	#######################################################################
	8
	9	set BugNumber OCC22851
	10
	11	restore [locate_data_file bug22851_fz1.brep] b1
	12	restore [locate_data_file bug22851_fz8.brep] b2
	13	mksurface s1 b1
	14	mksurface s2 b2
	15	intersect i s1 s2
	16
	17	set dump_info [dump i]
	18
	19	set lst [split ${dump_info}]
	20	set dump_length [llength $lst]
	21
	22	set find_BSCurve [regexp {BSplineCurve} $dump_info]
	23	set find_Degree_Poles_Knots [regexp {Degree +[-0-9.+eE]+, +[-0-9.+eE]+ +Poles, +[-0-9.+eE]+ +Knots} $dump_info]
	24
	25	if { $dump_length == 0 && !$find_BSCurve && !$find_Degree_Poles_Knots } {
	26	puts "Faulty ${BugNumber}"
	27	} else {
	28	puts "OK ${BugNumber}"
	29	}