tests/bugs/moddata_1/buc60618

   1 puts "=================================="
   2 puts "BUC60618"
   3 puts "=================================="
   4 puts "There was a problem filter of solutions. Several solutions were skipped."
   5 puts ""
   6 puts "It takes visual check for this BUG"
   7 puts "=================================="
   8 puts ""
   9 set len_ch1 3568
  10 set len_ch2 9964
  11 set len_ch3 2082
  12 set len_ch4 32696
  13 set len_ch5 1681
  14 set len_ch6 3097
  15 set len_ch7 1545
  16 set len_ch8 772
  17
  18 circle c1 0 0 100
  19 circle c2 500 -400 300
  20 circle c3 300 200 200
  21 cirtang result c1 c2 c3
  22
  23 set info1 [length $result_1]
  24 set info2 [length $result_2]
  25 set info3 [length $result_3]
  26 set info4 [length $result_4]
  27 set info5 [length $result_5]
  28 set info6 [length $result_6]
  29 set info7 [length $result_7]
  30 set info8 [length $result_8]
  31
  32 regexp {The length result_1 is +([-0-9.+eE]+)} $info1 full len1
  33 regexp {The length result_2 is +([-0-9.+eE]+)} $info2 full len2
  34 regexp {The length result_3 is +([-0-9.+eE]+)} $info3 full len3
  35 regexp {The length result_4 is +([-0-9.+eE]+)} $info4 full len4
  36 regexp {The length result_5 is +([-0-9.+eE]+)} $info5 full len5
  37 regexp {The length result_6 is +([-0-9.+eE]+)} $info6 full len6
  38 regexp {The length result_7 is +([-0-9.+eE]+)} $info7 full len7
  39 regexp {The length result_8 is +([-0-9.+eE]+)} $info8 full len8
  40
  41 set len_int1 [expr int($len1)]
  42 set len_int2 [expr int($len2)]
  43 set len_int3 [expr int($len3)]
  44 set len_int4 [expr int($len4)]
  45 set len_int5 [expr int($len5)]
  46 set len_int6 [expr int($len6)]
  47 set len_int7 [expr int($len7)]
  48 set len_int8 [expr int($len8)]
  49
  50 if { ${len_int1} != ${len_ch1}
  51    || ${len_int2} != ${len_ch2}
  52    || ${len_int3} != ${len_ch3}
  53    || ${len_int4} != ${len_ch4}
  54    || ${len_int5} != ${len_ch5}
  55    || ${len_int6} != ${len_ch6}
  56    || ${len_int7} != ${len_ch7}
  57    || ${len_int8} != ${len_ch8} } {
  58    puts "Error : Length is invalid"
  59 }