tests/bugs/moddata_1/bug22241

   1 puts "========"
   2 puts "OCC22241"
   3 puts "========"
   4 puts ""
   5 ###########################################################
   6 # The bug is appendix to the Salome Bug 0021148
   7 ###########################################################
   8
   9 set BugNumber OCC22241
  10
  11 restore [locate_data_file bug22241_c1.draw] c1
  12 restore [locate_data_file bug22241_c2.draw] c2
  13
  14 set extrema_res [extrema c1 c2]
  15 set extrema_length [llength ${extrema_res} ]
  16
  17 if {${extrema_length} < 8 } {
  18    puts "${BugNumber}: Faulty"
  19 } else {
  20    regexp {Extrema 1 is point : +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} $extrema_res full X Y Z
  21
  22    checkreal "X" ${X} 1 0 0.001
  23    checkreal "Y" ${Y} 3.0891916307971289e-33 0 0.001
  24    checkreal "Z" ${Z} 0.059999999999999998 0 0.001
  25 }
  26