0e94a94e |
1 | |
2 | puts "================" |
3 | puts "OCC356" |
4 | puts "================" |
5 | puts "" |
6 | ####################################################### |
7 | ## The Draw command "wexplo" gives one edge instead of 6 for the face. |
8 | ####################################################### |
9 | |
10 | restore [locate_data_file OCC356.brep] result |
352ffd73 |
11 | checkshape result |
0e94a94e |
12 | |
13 | explode result w |
14 | |
15 | wexplo result_1 result |
16 | |
17 | set nom 0 |
18 | set j 1 |
19 | repeat 10 { |
20 | set err "" |
21 | regexp { is a shape ([A-Z]+)} [whatis WEDGE_$j] full err |
22 | if { $err != "EDGE"} { |
23 | break |
24 | } else { |
25 | set nom [expr $nom + 1] |
26 | } |
27 | incr j |
28 | } |
29 | if { $nom != 6} { |
30 | puts "Faulty OCC356 : Command WEXPLO works WRONGLY" |
31 | } else { |
32 | puts "OCC356 OK : Command WEXPLO works properly" |
33 | } |
34 | |
58cf74e0 |
35 | checkprops result -s 6207.83 |
5747059b |
36 | checkview -display result -2d -path ${imagedir}/${test_image}.png |