Adding test cases from grid chl
[occt.git] / tests / bugs / moddata / bug284
1 puts "========"
2 puts "OCC284"
3 puts "========"
4
5 #########################################################
6 ## Command "checkshape" "gives" exception during attempt to check attached shape.
7 #########################################################
8
9 restore [locate_data_file OCC284.brep] result
10
11 decho off
12 if [catch { checkshape result } catch_result] {
13     set mistake 1
14 } else {
15     set mistake 0
16 }
17 decho on
18
19 if { $mistake != 0} {
20   puts "Faulty OCC284 : here is problem in checkshape function"
21 } else {
22   puts "OCC284  OK: function checkshape works properly"
23 }
24
25 set 2dviewer 0
26