2e9fd4bc |
1 | puts "========" |
2 | puts "OCC24008" |
3 | puts "========" |
4 | puts "" |
5 | ################################################################# |
6 | # ShapeAnalysis_Surface causes exception in Geom_OffsetSurface |
7 | ################################################################# |
8 | |
9 | pload QAcommands |
10 | |
11 | restore [locate_data_file bug24008_curv_rbp.draw] a |
12 | restore [locate_data_file bug24008_surf_rbls.draw] b |
13 | |
14 | set info [OCC24008 a b] |
15 | if { [regexp "Exception" $info] != 0 } { |
16 | puts "Error : Exception was caught" |
17 | } else { |
18 | puts "OK: COmmand wrong propery" |
19 | } |
20 | |