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