tests/bugs/moddata_1/buc60622_2

   1 puts "=================================="
   2 puts "BUC60622"
   3 puts "=================================="
   4 puts "There was an infinity of solutions and also c1, c2 and c3 are solutions"
   5 puts ""
   6 puts "It takes visual check for this BUG"
   7 puts "=================================="
   8 puts ""
   9
  10 set len_ch1 2513
  11 set len_ch2 837
  12 set len_ch3 279
  13
  14 circle c1 500 1800 500
  15 circle c2 500 1900 400
  16 circle c3 700 1900 200
  17 cirtang result c1 c2 c3
  18
  19 set info1 [length $result_1]
  20 set info2 [length $result_2]
  21 set info3 [length $result_3]
  22 regexp {The length result_1 is +([-0-9.+eE]+)} $info1 full len1
  23 regexp {The length result_2 is +([-0-9.+eE]+)} $info2 full len2
  24 regexp {The length result_3 is +([-0-9.+eE]+)} $info3 full len3
  25 set len_int1 [expr int($len1)]
  26 set len_int2 [expr int($len2)]
  27 set len_int3 [expr int($len3)]
  28
  29 if { ${len_int1} != ${len_ch1}
  30    || ${len_int2} != ${len_ch2}
  31    || ${len_int3} != ${len_ch3} } {
  32    puts "Error : Length is invalid"
  33 }