tests/bugs/modalg_2/bug22558

   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