0023905: Clean obsolete test commands

[occt.git] / tests / bugs / moddata_3 / buc60634

puts "Output with mistake is correct!"
puts "TODO BUC60634 ALL: Standard_ConstructionError: BRepFill_Draft"
puts "TODO ?BUC60634 ALL: Error in MakeWire"
puts "=================="
puts "BUC60634"
puts "=================="

sphere s 10
mkshell sh s
explode sh f

catch {draft r sh 0 0 1 10 shape} first
catch {draft result sh_1 0 0 1 10 shape} second

if { ! [regexp {Standard_ConstructionError:} $first] } {
    puts "Error : not suitablle exception"
} else {
    puts "Output is as expected"
}

if { ! [regexp {External} $second] } {
    puts "Error : not word External found"
} else {
    puts "Output is as expected"
}