809eca9d |
1 | pload QAcommands |
2 | |
3 | puts "========" |
4 | puts "OCC22736" |
5 | puts "========" |
6 | puts "" |
7 | ########################################################### |
8 | # Incorrect Transformation |
9 | ########################################################### |
10 | |
11 | set BugNumber OCC22736 |
12 | |
13 | set X_mirrorFirstPoint 2.0 |
14 | set Y_mirrorFirstPoint 1.0 |
15 | set X_mirrorSecondPoint 3.0 |
16 | set Y_mirrorSecondPoint 1.0 |
17 | set X_p1 1.0 |
18 | set Y_p1 0.0 |
19 | set X_p2 1.0 |
20 | set Y_p2 2.0 |
21 | set result_info [OCC22736 ${X_mirrorFirstPoint} ${Y_mirrorFirstPoint} ${X_mirrorSecondPoint} ${Y_mirrorSecondPoint} ${X_p1} {$Y_p1} ${X_p2} ${Y_p2}] |
22 | regexp {Status = ([-0-9.+eE]+)} $result_info full status |
23 | |
24 | # Resume |
25 | puts "" |
26 | if { ${status} != 0 } { |
27 | puts "Faulty ${BugNumber}" |
28 | } else { |
29 | puts "OK ${BugNumber}" |
30 | } |
31 | |