pload QAcommands

puts "============"
puts "OCC22558"
puts "============"
puts ""
#######################################################################
# Bug in gp_Dir::Mirror(const gp_Ax2 & axis)
#######################################################################

set BugNumber OCC22558

set check1 -57735
set check2 57735
set info [ OCC22558 1 1 1 1 0 0 0 0 0 ]

set res_z1 [lindex ${info} end]
set res_y1 [lindex ${info} end-1]
set res_x1 [lindex ${info} end-2]

set res_z [ expr int($res_z1 * 100000) ]
set res_y [ expr int($res_y1 * 100000) ]
set res_x [ expr int($res_x1 * 100000) ]

if { ${res_x} == ${check1} && ${res_y} == ${check2} && ${res_z} == ${check2} } {
  puts "OK ${BugNumber}"
} else {
  puts "Faulty ${BugNumber}"
}