1 puts "Output with mistake is correct!"
2 puts "TODO ?#60634 ALL: Standard_ConstructionError: BRepFill_Draft"
3 puts "TODO ?#60634 ALL: Error in MakeWire"
4 puts "=================="
6 puts "=================="
12 catch {draft r sh 0 0 1 10 shape} first
13 catch {draft result sh_1 0 0 1 10 shape} second
15 if { ! [regexp {Standard_ConstructionError:} $first] } {
16 puts "Error : not suitablle exception"
18 puts "Output is as expected"
21 if { ! [regexp {External} $second] } {
22 puts "Error : not word External found"
24 puts "Output is as expected"