809eca9d |
1 | pload QAcommands |
2 | |
3 | puts "============" |
4 | puts "OCC22558" |
5 | puts "============" |
6 | puts "" |
7 | ####################################################################### |
8 | # Bug in gp_Dir::Mirror(const gp_Ax2 & axis) |
9 | ####################################################################### |
10 | |
11 | set BugNumber OCC22558 |
12 | |
13 | set check1 -57735 |
14 | set check2 57735 |
15 | set info [ OCC22558 1 1 1 1 0 0 0 0 0 ] |
16 | |
17 | set res_z1 [lindex ${info} end] |
18 | set res_y1 [lindex ${info} end-1] |
19 | set res_x1 [lindex ${info} end-2] |
20 | |
21 | set res_z [ expr int($res_z1 * 100000) ] |
22 | set res_y [ expr int($res_y1 * 100000) ] |
23 | set res_x [ expr int($res_x1 * 100000) ] |
24 | |
25 | if { ${res_x} == ${check1} && ${res_y} == ${check2} && ${res_z} == ${check2} } { |
26 | puts "OK ${BugNumber}" |
27 | } else { |
28 | puts "Faulty ${BugNumber}" |
29 | } |
30 | |