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 | |
4f7d41ea |
20 | savehistory gf_hist |
21 | |
22 | set bug_info [modified v0m gf_hist v0] |
23 | if {$bug_info != "The shape has not been modified."} { |
24 | puts "ERROR: OCC26393 is reproduced. Command modified does not work." |
a493b4a1 |
25 | } |
26 | |
4f7d41ea |
27 | set bug_info [modified v1m gf_hist v1] |
28 | if {$bug_info != "The shape has not been modified."} { |
29 | puts "ERROR: OCC26393 is reproduced. Command modified does not work." |
a493b4a1 |
30 | } |
31 | |
4f7d41ea |
32 | set bug_info [isdeleted gf_hist v0] |
33 | if {$bug_info != "Not deleted."} { |
34 | puts "ERROR: OCC26393 is reproduced. Command isdeleted does not work." |
a493b4a1 |
35 | } |
36 | |
4f7d41ea |
37 | set bug_info [isdeleted gf_hist v1] |
38 | if {$bug_info != "Not deleted."} { |
39 | puts "ERROR: OCC26393 is reproduced. Command isdeleted does not work." |
a493b4a1 |
40 | } |
41 | |
42 | explode w e |
43 | |
4f7d41ea |
44 | set bug_info [modified w1m gf_hist w_1] |
a493b4a1 |
45 | if {$bug_info != ""} { |
4f7d41ea |
46 | puts "ERROR: OCC26393 is reproduced. Command modified does not work correctly." |
a493b4a1 |
47 | } |
48 | |
4f7d41ea |
49 | set bug_info [isdeleted gf_hist w_1] |
50 | if {$bug_info != "Not deleted."} { |
51 | puts "ERROR: OCC26393 is reproduced. Command isdeleted does not work." |
a493b4a1 |
52 | } |
53 | |
4f7d41ea |
54 | set bug_info [modified w2m gf_hist w_2] |
55 | if {$bug_info != "The shape has not been modified."} { |
56 | puts "ERROR: OCC26393 is reproduced. Command modified does not work." |
a493b4a1 |
57 | } |
58 | |
4f7d41ea |
59 | set bug_info [isdeleted gf_hist w_2] |
60 | if {$bug_info != "Not deleted."} { |
61 | puts "ERROR: OCC26393 is reproduced. Command isdeleted does not work." |
a493b4a1 |
62 | } |
63 | |
4f7d41ea |
64 | set bug_info [modified w3m gf_hist w_3] |
65 | if {$bug_info != "The shape has not been modified."} { |
66 | puts "ERROR: OCC26393 is reproduced. Command modified does not work." |
a493b4a1 |
67 | } |
68 | |
4f7d41ea |
69 | set bug_info [isdeleted gf_hist w_3] |
70 | if {$bug_info != "Not deleted."} { |
71 | puts "ERROR: OCC26393 is reproduced. Command isdeleted does not work." |
a493b4a1 |
72 | } |
73 | |
4f7d41ea |
74 | set bug_info [modified w4m gf_hist w_4] |
a493b4a1 |
75 | if {$bug_info != ""} { |
4f7d41ea |
76 | puts "ERROR: OCC26393 is reproduced. Command modified does not work correctly." |
a493b4a1 |
77 | } |
78 | |
4f7d41ea |
79 | set bug_info [isdeleted gf_hist w_4] |
80 | if {$bug_info != "Not deleted."} { |
81 | puts "ERROR: OCC26393 is reproduced. Command isdeleted does not work." |
a493b4a1 |
82 | } |
83 | |
4f7d41ea |
84 | set bug_info [modified w5m gf_hist w_5] |
85 | if {$bug_info != "The shape has not been modified."} { |
86 | puts "ERROR: OCC26393 is reproduced. Command modified does not work." |
a493b4a1 |
87 | } |
88 | |
4f7d41ea |
89 | set bug_info [isdeleted gf_hist w_5] |
90 | if {$bug_info != "Not deleted."} { |
91 | puts "ERROR: OCC26393 is reproduced. Command isdeleted does not work." |
a493b4a1 |
92 | } |