61c421bf |
1 | puts "TODO OCC12345 ALL: Faulty OCC294 : result - shape_result is null" |
2 | |
3 | puts "================" |
4 | puts "OCC294" |
5 | puts "SAM1293" |
6 | puts "================" |
7 | puts "" |
8 | |
9 | restore [locate_data_file OCC294.brep] a |
10 | checkshape a |
11 | |
12 | set a_fullness [nbshapes a] |
13 | regexp {EDGE +: +([-0-9.+eE]+)} $a_fullness full a_edg |
14 | |
15 | explode a e |
16 | if [catch { OCC294 result a a_1 } ] { |
17 | puts "OCC294: FAULTY" |
18 | } else { |
19 | set b_fullness [ nbshapes b] |
20 | regexp {EDGE +: +([-0-9.+eE]+)} $b_fullness full b_edg |
21 | |
22 | puts "a_edg = ${a_edg}" |
23 | puts "b_edg = ${b_edg}" |
24 | if { ${b_edg} >= ${a_edg} } { |
25 | puts "OCC294: FAULTY" |
26 | } else { |
27 | puts "OCC294: OK" |
28 | } |
29 | } |