0026016: BRepPrimAPI_MakeRevol crash
[occt.git] / tests / bugs / modalg_6 / bug26016
1 puts "========"
2 puts "OCC26016"
3 puts "========"
4 puts ""
5 ##@@###########################
6 # BRepPrimAPI_MakeRevol crash
7 ###############################
8
9 smallview
10
11 restore [locate_data_file OCC26016-revolve-crash.brep] a
12 revol r a 0 0 0 0 1 0 90
13 set bug_info [checkshape r]
14
15 if {[string compare $bug_info "This shape seems to be valid"] != 0} {
16   puts "ERROR: OCC26016 is reproduced"
17 }
18
19 donly r
20 fit
21 set only_screen_axo 1