tests/bugs/moddata/bug23464_3

   1 puts "============"
   2 puts "CR23464"
   3 puts "============"
   4 puts ""
   5 ##########################################################################################################
   6 # Projection algorithm produces wrong results
   7 ##########################################################################################################
   8
   9 set int_check 3
  10 set fract_check 1415927
  11
  12 restore [locate_data_file bug23464_c57.draw] c57
  13 restore [locate_data_file bug23464_s37.draw] s37
  14
  15 project result c57 s37
  16 set info [length result]
  17 regexp {is +([-0-9.+eE]+)} $info full num
  18
  19 set int_part [expr round($num)]
  20 set y [expr $num - round($num)]
  21 set z [expr $y*10000000]
  22 set fract_part [expr round($z)]
  23
  24 if { ${int_check} != ${int_part} } {
  25     puts "Error : Integer part of result is incorrect"
  26 }
  27
  28 if { ${fract_check} != ${fract_part} } {
  29     puts "Error : Fractional part of result is incorrect"
  30 }
  31
  32
  33
  34
  35