tests/bugs/moddata_1/buc60902

   1 puts "========"
   2 puts "BUC60902"
   3 puts "========"
   4
   5 pload QAcommands
   6
   7 set info [BUC60902]
   8
   9 if { [regexp "First tangent is OK" $info] != 1 && [regexp "Last tangent is OK" $info] != 1 } {
  10         puts "Error : Result is invalid"
  11 }
  12
  13
  14