e54706ed |
1 | puts "========" |
2 | puts "OCC6555" |
3 | puts "========" |
4 | puts "" |
5 | #################################################### |
6 | ## ShapeFix_Shape modifies valid shape and return wrong status DONE. |
7 | #################################################### |
8 | |
9 | set BugNumber OCC6555 |
10 | |
11 | box s1 10 10 10 |
12 | |
13 | set result [checkshape s1] |
14 | set index [lsearch ${result} Faulty] |
15 | if {$index > -1} { |
16 | puts "Faulty ${BugNumber} : checkshape is wrong for s1" |
17 | } else { |
18 | puts "checkshape is good for s1" |
19 | } |
20 | |
21 | set DumpList1 [dump s1] |
22 | set SOLID_Adress_1 [lindex ${DumpList1} 29] |
23 | |
24 | fixshape result s1 |
25 | |
26 | set res [checkshape result] |
27 | set index [lsearch ${res} Faulty] |
28 | if {$index > -1} { |
29 | puts "Faulty ${BugNumber} : checkshape is wrong for res" |
30 | } else { |
31 | puts "checkshape is good for res" |
32 | } |
33 | |
34 | set DumpList2 [dump result] |
35 | set SOLID_Adress_2 [lindex ${DumpList2} 29] |
36 | |
37 | if { ${SOLID_Adress_1} != ${SOLID_Adress_2} } { |
38 | puts "Faulty ${BugNumber}" |
39 | } else { |
40 | puts "OK ${BugNumber}" |
41 | } |
42 | |
43 | set 2dviewer 0 |
44 | |