0027015: Sewing returns invalid shape if some faces are nearly plane cones
[occt.git] / tests / bugs / modalg_2 / bug22823
1 puts "============"
2 puts "OCC22823"
3 puts "============"
4 puts ""
5 ##############################################################################################
6 # Exception in thickshell operation
7 ##############################################################################################
8
9 catch {pload XDE}
10
11 set BugNumber OCC22823
12
13 restore [locate_data_file OCC22823-occ_bug_thickshell.brep] sh 
14
15 checkshape sh
16 tolerance sh
17 set aStatus [catch {thickshell result sh 0.01} ]
18
19 # Resume
20 puts ""
21 if { ${aStatus} != 0 } {
22    puts "Faulty ${BugNumber}"
23 } else {
24    puts "OK ${BugNumber}"
25 }
26
27 checkprops result -s 0.38266 
28 checkshape result
29 checkview -display result -3d -path ${imagedir}/${test_image}.png