Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug238_2
1 puts "TODO OCC12345 ALL: Faulty : Result shape is WRONG !!!"
2 puts "TODO OCC12345 ALL: Error : The length of result shape is"
3 puts "========================"
4 puts " OCC238 "
5 puts "========================"
6
7 #################################################
8 ## puts "  BOPTUC   case_2_solid.brep from case_2_edge1.brep"
9 #################################################
10 puts " " 
11 puts [restore [locate_data_file OCC238a.brep] a] 
12 puts [restore [locate_data_file case_2_edge1.brep] b]
13 puts [bop a b]
14 puts [boptuc result b a]
15
16 set nb_info [nbshapes result]
17 set nb_v_good 14
18 set nb_e_good 7
19
20 explode result v
21 explode a e
22 distmini di result_2 a_3 
23 regexp {([-0-9.+eE]+)} [dump $di_val] full dis
24 if { [expr $dis > 1.e-5] } {
25     puts "Faulty : Result shape is WRONG !!!" 
26 } else {
27     puts " Result shape is COMPLITE"
28 }
29
30 set length 0
31 set 2dviewer 0