0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug26034
1 puts "========"
2 puts "OCC26034"
3 puts "========"
4 puts ""
5 ##########################################################
6 # Result of revolution aborts the bopcheck if translated
7 ##########################################################
8
9 restore [locate_data_file bug26034_revolve-seg1-tcl-Revolve002.brep] Revolve002
10
11 set bug_info [ string trim [bopcheck Revolve002]]
12 if {$bug_info != "This shape seems to be OK."} {
13   puts "ERROR: Initial shape is invalid."
14 }
15
16 ttranslate Revolve002 0 0 -0.5
17
18 set bug_info [ string trim [bopcheck Revolve002]]
19 if {$bug_info != "This shape seems to be OK."} {
20   puts "ERROR: OCC26034 is reproduced. bopcheck gives incorrect result after ttranslate operation."
21 }