Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug42
... / ...
CommitLineData
1puts "================"
2puts "OCC42"
3puts "================"
4puts ""
5###############################################
6## BRepAlgo_Sewing does not sew attached shape with any tolerance.
7###############################################
8
9pload XDE
10
11# 1. retriesve shape
12restore [locate_data_file OCC42.brep] sh
13puts [checkshape sh]
14
15# 2. perform sewing
16set toler 80
17sewing result $toler sh
18
19# 3. Verify result of sewing
20puts [checkshape result]
21
22# Retrieve free wires from result shape
23catch { fbclose result $toler $toler } resOfCatch
24
25# Amount of free open wires must be equal 0
26set open_wires [explode result_o W]
27if { [llength $open_wires] != 0} {
28 puts "Error : There are free open wires"
29}
30
31# Amount of free closed wires must be equal 1
32set closed_wires [explode result_c W]
33if { [llength $closed_wires] != 1} {
34 puts "Error : Amount of free closed wires is not equal 1"
35}
36
37set 2dviewer 0
38