tests/bugs/moddata_1/bug22736

   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