7 ###########################################################
8 # Incorrect Transformation
9 ###########################################################
11 set BugNumber OCC22736
13 set X_mirrorFirstPoint 2.0
14 set Y_mirrorFirstPoint 1.0
15 set X_mirrorSecondPoint 3.0
16 set Y_mirrorSecondPoint 1.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
26 if { ${status} != 0 } {
27 puts "Faulty ${BugNumber}"
29 puts "OK ${BugNumber}"