mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-04 13:13:25 +03:00
29 lines
578 B
Plaintext
29 lines
578 B
Plaintext
puts "Output with mistake is correct!"
|
|
puts "TODO BUC60634 ALL: An exception was caught"
|
|
puts "=================="
|
|
puts "BUC60634"
|
|
puts "=================="
|
|
|
|
sphere s 10
|
|
mkshell sh s
|
|
explode sh f
|
|
|
|
decho off
|
|
catch {draft r sh 0 0 1 10 shape} first
|
|
catch {draft result sh_1 0 0 1 10 shape} second
|
|
decho on
|
|
|
|
if { [regexp {Standard_ConstructionError:} $first] != 1 } {
|
|
puts "Faulty : not suitablle exception"
|
|
} else {
|
|
puts "Output is correct"
|
|
}
|
|
|
|
if { [regexp {External} $second] != 1 } {
|
|
puts "Faulty : not suitablle exception"
|
|
} else {
|
|
puts "Output is correct"
|
|
}
|
|
|
|
|