Adding test cases from chl grid
[occt.git] / tests / bugs / moddata / bug13904
1 puts "==========="
2 puts "OCC13904"
3 puts "==========="
4 ######################################################
5 # Exception during "filling" operation
6 ######################################################
7
8 set BugNumber OCC13904
9
10 circle c 0 100 100 0 1 1 50
11 ellipse el 0 0 0 0 1 1 100 50
12
13 set  mistake 0
14 if [catch { appsurf result c el } res] {
15   set  mistake 1
16   puts "Faulty ${BugNumber}: filling problem"
17 } else {
18   puts "Filling ${BugNumber}  OK"
19   set What [whatis result]
20   if { [regexp "surface" $What] != 1 } {
21     set  mistake 1
22   } else {
23     set  mistake 0
24   }
25 }
26
27 # Resume
28 puts ""
29 if { ${mistake} != 0 } {
30    puts "Faulty ${BugNumber}"
31 } else {
32    puts "OK ${BugNumber}"
33 }