Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug438_1
CommitLineData
a87752f3 1puts "========"
2puts "OCC438"
3puts " (case 1)"
4puts "========"
5
6####################################
7## Exception during checking of shape from OCC428
8####################################
9
10restore [locate_data_file OCC428.brep] result
11
12decho off
13if [catch { checkshape result } catch_result] {
14 set mistake 1
15} else {
16 set mistake 0
17}
18decho on
19
20if { $mistake != 0} {
21 puts "Faulty OCC438 (case 1): here is checking problem"
22} else {
23 puts "OCC438 (case 1) OK"
24}
25
26set 2dviewer 0
27