0024008: ShapeAnalysis_Surface causes exception in Geom_OffsetSurface
[occt.git] / tests / bugs / heal / bug24008_2
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