Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug75_2
1 puts "============"
2 puts "BUC60861"
3 puts "OCC75"
4 puts "============"
5 puts ""
6 puts "case 2"
7 ###############################
8 ## Incorrect work of section Shell-Shell. 
9 ###############################
10
11 restore [locate_data_file BUC60861_gap1.brep] ss 
12 checkshape ss
13
14 plane pl1 25680.2288 21428 9995 1 0 0
15 mkface f1 pl1 -1 11 -5 5
16 bsection result ss f1 -a
17
18 set good_len 10.0009
19 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance result] full tol
20 regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full len
21 if { [expr 1.*abs(${good_len} - $len)] > $tol } {
22    puts "Error : len is bad"
23 }
24
25 set 2dviewer 0
26
27
28