mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-08 18:40:55 +03:00
20 lines
436 B
Plaintext
20 lines
436 B
Plaintext
puts "========================"
|
|
puts "BUC60811"
|
|
puts "========================"
|
|
|
|
pload QAcommands
|
|
|
|
vinit
|
|
decho off
|
|
set List [BUC60811]
|
|
decho on
|
|
if { [regexp "Error is 5" $List] != 1 } {
|
|
puts "Faulty: output is incorrect"
|
|
} else {
|
|
puts "OK: output is correct"
|
|
}
|
|
|
|
|
|
|
|
|