Adding test cases from chl grid
[occt.git] / tests / bugs / moddata / bug22296
1 puts "============"
2 puts "OCC22296"
3 puts "============"
4 puts ""
5 #######################################################################
6 # The algorithm BRepSweep_MakeRevol produce non-licit toroidal based face.
7 #    Appendix to the SALOME bug: IPAL22181
8 #######################################################################
9
10 set BugNumber OCC22296
11
12 restore [locate_data_file bug22296_ring.brep] b1 
13 revol r b1 0.6 3 0 0 0 1 -90
14
15 set E_Length [explode r f]
16
17 if { ${E_Length} < 6} {
18    puts "Bad format of explode draw-command"
19    puts "Faulty ${BugNumber}"
20 } else {
21
22    copy r_2 f
23
24    set good_umin 0
25    set good_umax 6.28319
26    set good_vmin 0
27    set good_vmax 6.28319
28
29    set xlist [xbounds f]
30    set umin [lindex $xlist 0]
31    set umax [lindex $xlist 1]
32    set vmin [lindex $xlist 2]
33    set vmax [lindex $xlist 3]
34
35    set bad_bound 0
36    if {${umin} < ${good_umin}} {
37       puts "umin: ${umin} is wrong"
38       set bad_bound[expr  ${bad_bound} + 1]     
39    }
40    if {${umax} > ${good_umax}} {
41       puts "umax: ${umax} is wrong"
42       set bad_bound [expr ${bad_bound} + 10]    
43    }
44    if {${vmin} < ${good_vmin}} {
45       puts "vmin: ${vmin} is wrong"
46       set bad_bound [expr ${bad_bound} + 100]   
47    }
48    if {${vmax} > ${good_vmax}} {
49       puts "vmax: ${vmax} is wrong"     
50       set bad_bound [expr ${bad_bound} + 1000]
51    }
52
53    if {${bad_bound} > 0 } {
54       puts "${BugNumber}: Faulty"
55    } else {
56       puts "OK ${BugNumber}"
57    }
58
59 }
60