puts "========" puts "BUC60902" puts "========" pload QAcommands set info [BUC60902] if { [regexp "First tangent is OK" $info] != 1 && [regexp "Last tangent is OK" $info] != 1 } { puts "Error : Result is invalid" }