tests/bugs/moddata_3/bug23939

   1 puts "========================"
   2 puts " CR23939 "
   3 puts "========================"
   4 puts ""
   5 ##################################################################
   6 ## Incorrect circle parameter in IntAna
   7 ##################################################################
   8
   9 circle c1 0 0 10
  10 circle c2 7 0 3
  11
  12 set info1 [2dintanalytical c1 c2]
  13 regexp {parameter on the fist: +([-0-9.+eE]+) parameter on the second: +([-0-9.+eE]+)} ${info1} full p1_1 p1_2
  14 if { ${p1_1} != 0 } {
  15    puts "Bad first parameter p1_1=${p1_1}"
  16 }
  17 if { ${p1_2} != 0 } {
  18    puts "Bad second parameter p1_2=${p1_2}"
  19 }
  20
  21 set info2 [2dintanalytical c2 c1]
  22 regexp {parameter on the fist: +([-0-9.+eE]+) parameter on the second: +([-0-9.+eE]+)} ${info2} full p2_1 p2_2
  23 if { ${p2_1} != 0 } {
  24    puts "Bad first parameter p2_1=${p2_1}"
  25 }
  26 if { ${p2_2} != 0 } {
  27    puts "Bad second parameter p2_2=${p2_2}"
  28 }