1 puts "Output with mistake is correct!"
2 puts "TODO #60634 ALL: Standard_ConstructionError: BRepFill_Draft"
3 puts "=================="
5 puts "=================="
11 catch {draft r sh 0 0 1 10 shape} first
12 catch {draft result sh_1 0 0 1 10 shape} second
14 if { ! [regexp {Standard_ConstructionError:} $first] } {
15 puts "Error : not suitablle exception"
17 puts "Output is as expected"
20 if { ! [regexp {External} $second] } {
21 puts "Error : not word External found"
23 puts "Output is as expected"