1 puts "Output with mistake is correct!"
2 puts "TODO BUC60634 ALL: An exception was caught"
3 puts "=================="
5 puts "=================="
12 catch {draft r sh 0 0 1 10 shape} first
13 catch {draft result sh_1 0 0 1 10 shape} second
16 if { [regexp {Standard_ConstructionError:} $first] != 1 } {
17 puts "Faulty : not suitablle exception"
19 puts "Output is correct"
22 if { [regexp {External} $second] != 1 } {
23 puts "Faulty : not suitablle exception"
25 puts "Output is correct"