949df2b6 |
1 | puts "============" |
2 | puts "OCC25509" |
3 | puts "============" |
4 | puts "" |
5 | ###################################################### |
6 | # Wrong shape considered as valid by checkshape |
7 | ###################################################### |
8 | |
9 | # 05 |
10 | # Two vertices FORWARD of the solid that is out of the growth |
11 | # |
12 | box b1 10 10 10 |
13 | |
14 | explode b1 |
15 | |
16 | vertex v1 11 11 0 |
17 | vertex v2 11 11 11 |
18 | |
19 | shape result so |
20 | add b1_1 result |
21 | add v1 result |
22 | add v2 result |
23 | |
24 | decho off |
25 | set info [checkshape result] |
26 | decho on |
27 | |
28 | if { [regexp "Faulty shapes in variables faulty_1" ${info}] != 1 } { |
29 | puts "Error : There are no mistakes by checkshape-command" |
30 | } else { |
31 | puts "OK : There are mistakes by checkshape-command" |
32 | } |
33 | |
34 | set 2dviewer 1 |