Adding testing cases from chl group
[occt.git] / tests / bugs / modalg / buc60703_1
1 puts "TODO OCC12345 ALL: An exception was caught"
2 puts "TODO OCC12345 ALL: Exception"
3 puts "TODO OCC12345 ALL: Faulty  BUC60703: here is problem with FUSE operation"
4
5 puts "========================"
6 puts "BUC60703"
7 puts "================================="
8 puts "Action with models with VERY BIG tolerance" 
9 puts "================================="
10 ##########################################
11 ## Crash during a fuse whilst two plans are tangent. 
12 ## ( Case has  LIMITATION status currently )
13 ##########################################
14
15 #cpulimit 9000
16
17 restore [locate_data_file buc60703a.brep] a 
18 # maxtolerance a
19 checkshape a
20 restore [locate_data_file buc60703b.brep] b
21 # maxtolerance b
22 checkshape b
23
24 if [catch {bfuse result a b } catch_result] {
25     puts "Faulty  BUC60703: here is problem with FUSE operation"
26 } else {
27     puts "OK OCC348: function FUSE works ok"
28     if [catch {checkshape result } catch_result] {
29         puts "Faulty BUC60703 : here is checking problem."
30     } else {
31         puts "BUC60703  OK"
32     }
33     #  maxtolerance res
34     set square 0
35     set 2dviewer 0
36 }
37