0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug26393
CommitLineData
a493b4a1 1puts "========"
2puts "OCC26393"
3puts "========"
4puts ""
5#################################################################
6# Add draw commands to evaluate history of modifications of BOP
7#################################################################
8
9restore [locate_data_file OCC26393-w.brep] w
10restore [locate_data_file OCC26393-v1.brep] v0
11restore [locate_data_file OCC26393-v2.brep] v1
12
13bclearobjects
14bcleartools
15baddobjects w
16baddtools v0 v1
17bfillds
18bbuild r
19
20set bug_info [bmodified v0m v0]
21set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
22if {$bug_info != "The shape has not been modified"} {
23 puts "ERROR: OCC26393 is reproduced. Command bmodified does not work."
24}
25
26set bug_info [bmodified v1m v1]
27set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
28if {$bug_info != "The shape has not been modified"} {
29 puts "ERROR: OCC26393 is reproduced. Command bmodified does not work."
30}
31
32set bug_info [bisdeleted v0]
33set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
34if {$bug_info != "Not deleted"} {
35 puts "ERROR: OCC26393 is reproduced. Command bisdeleted does not work."
36}
37
38set bug_info [bisdeleted v1]
39set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
40if {$bug_info != "Not deleted"} {
41 puts "ERROR: OCC26393 is reproduced. Command bisdeleted does not work."
42}
43
44explode w e
45
46set bug_info [bmodified w1m w_1]
47if {$bug_info != ""} {
48 puts "ERROR: OCC26393 is reproduced. Command bmodified does not work correctly."
49}
50
51set bug_info [bisdeleted w_1]
52set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
53if {$bug_info != "Not deleted"} {
54 puts "ERROR: OCC26393 is reproduced. Command bisdeleted does not work."
55}
56
57set bug_info [bmodified w2m w_2]
58set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
59if {$bug_info != "The shape has not been modified"} {
60 puts "ERROR: OCC26393 is reproduced. Command bmodified does not work."
61}
62
63set bug_info [bisdeleted w_2]
64set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
65if {$bug_info != "Not deleted"} {
66 puts "ERROR: OCC26393 is reproduced. Command bisdeleted does not work."
67}
68
69set bug_info [bmodified w3m w_3]
70set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
71if {$bug_info != "The shape has not been modified"} {
72 puts "ERROR: OCC26393 is reproduced. Command bmodified does not work."
73}
74
75set bug_info [bisdeleted w_3]
76set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
77if {$bug_info != "Not deleted"} {
78 puts "ERROR: OCC26393 is reproduced. Command bisdeleted does not work."
79}
80
81set bug_info [bmodified w4m w_4]
82if {$bug_info != ""} {
83 puts "ERROR: OCC26393 is reproduced. Command bmodified does not work correctly."
84}
85
86set bug_info [bisdeleted w_4]
87set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
88if {$bug_info != "Not deleted"} {
89 puts "ERROR: OCC26393 is reproduced. Command bisdeleted does not work."
90}
91
92set bug_info [bmodified w5m w_5]
93set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
94if {$bug_info != "The shape has not been modified"} {
95 puts "ERROR: OCC26393 is reproduced. Command bmodified does not work."
96}
97
98set bug_info [bisdeleted w_5]
99set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
100if {$bug_info != "Not deleted"} {
101 puts "ERROR: OCC26393 is reproduced. Command bisdeleted does not work."
102}