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