1puts "================"
2puts "OCC326"
3puts "================"
4puts ""
5###########################################################
6## Exception is raised in sewing on internal edges on attached shape
7###########################################################
8
9restore [locate_data_file OCC326.brep] a
10
11if [catch { sewing result a } catch_result] {
12    puts "Faulty OCC326: here is sewing problem"
13} else {
14    puts "OCC326 OK: Sewing is ok, there is no except"
15}
16
17checkmaxtol result -ref 411.37576056225498
18checknbshapes result -shell 1
19checkfreebounds result 254
20
21checkview -display result -2d -path ${imagedir}/${test_image}.png
22
23