Adding test cases from chl grid
[occt.git] / tests / bugs / moddata / bug16833
1 puts "============"
2 puts "OCC16833"
3 puts "============"
4 puts ""
5 #######################################################################
6 # Error in Coons algorithm
7 #######################################################################
8
9 set BugNumber OCC16833
10
11 restore [locate_data_file OCC16833-c1.draw] c1
12 restore [locate_data_file OCC16833-c2.draw] c2
13 restore [locate_data_file OCC16833-c3.draw] c3
14 restore [locate_data_file OCC16833-c4.draw] c4
15
16 set  mistake 0
17 if [catch { fillcurves result c1 c2 c3 c4 } res] {
18   set  mistake 1
19   puts "Faulty ${BugNumber}: filling problem"
20 } else {
21   puts "Filling ${BugNumber}  OK"
22   set What [whatis result]
23   if { [regexp "surface" $What] != 1 } {
24     set  mistake 1
25   } else {
26     set  mistake 0
27   }
28 }
29
30 # Resume
31 puts ""
32 if { ${mistake} != 0 } {
33    puts "Faulty ${BugNumber}"
34 } else {
35    puts "OK ${BugNumber}"
36 }
37