Adding test cases from grid chl
[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 puts "TODO OCC12345 ALL: Error : The command can not be build."
5
6 puts "========================"
7 puts "BUC60703"
8 puts "================================="
9 puts "Action with models with VERY BIG tolerance" 
10 puts "================================="
11 ##########################################
12 ## Crash during a fuse whilst two plans are tangent. 
13 ## ( Case has  LIMITATION status currently )
14 ##########################################
15
16 #cpulimit 9000
17
18 restore [locate_data_file buc60703a.brep] a 
19 # maxtolerance a
20 puts [checkshape a]
21 restore [locate_data_file buc60703b.brep] b
22 # maxtolerance b
23 puts [checkshape b]
24
25 if [catch {bfuse result a b } catch_result] {
26     puts "Faulty  BUC60703: here is problem with FUSE operation"
27 } else {
28     puts "OK OCC348: function FUSE works ok"
29     if [catch {checkshape result } catch_result] {
30         puts "Faulty BUC60703 : here is checking problem."
31     } else {
32         puts "BUC60703  OK"
33     }
34     #  maxtolerance res
35 }
36
37 set square 0
38 set 2dviewer 0