mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-05 11:24:17 +03:00
15 lines
222 B
Plaintext
Executable File
15 lines
222 B
Plaintext
Executable File
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"
|
|
}
|
|
|
|
|
|
|