Adding test cases from chl grid
[occt.git] / tests / bugs / moddata / bug22851
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 }