5 #################################################################
6 # Add draw commands to evaluate history of modifications of BOP
7 #################################################################
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
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."
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."
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."
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."
46 set bug_info [bmodified w1m w_1]
47 if {$bug_info != ""} {
48 puts "ERROR: OCC26393 is reproduced. Command bmodified does not work correctly."
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."
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."
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."
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."
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."
81 set bug_info [bmodified w4m w_4]
82 if {$bug_info != ""} {
83 puts "ERROR: OCC26393 is reproduced. Command bmodified does not work correctly."
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."
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."
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."