06da7b7e |
1 | puts "Output with mistake is correct!" |
b58dfc5e |
2 | puts "TODO ?#60634 ALL: Standard_ConstructionError: BRepFill_Draft" |
3 | puts "TODO ?#60634 ALL: Error in MakeWire" |
06da7b7e |
4 | puts "==================" |
5 | puts "BUC60634" |
6 | puts "==================" |
7 | |
8 | sphere s 10 |
9 | mkshell sh s |
10 | explode sh f |
11 | |
06da7b7e |
12 | catch {draft r sh 0 0 1 10 shape} first |
13 | catch {draft result sh_1 0 0 1 10 shape} second |
06da7b7e |
14 | |
9753e6de |
15 | if { ! [regexp {Standard_ConstructionError:} $first] } { |
16 | puts "Error : not suitablle exception" |
06da7b7e |
17 | } else { |
9753e6de |
18 | puts "Output is as expected" |
06da7b7e |
19 | } |
20 | |
9753e6de |
21 | if { ! [regexp {External} $second] } { |
22 | puts "Error : not word External found" |
06da7b7e |
23 | } else { |
9753e6de |
24 | puts "Output is as expected" |
06da7b7e |
25 | } |
26 | |
27 | |