OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-24 13:50:49 +03:00
Code Activity

0026393: Add draw commands to evaluate history of modifications of BOP

Browse Source 
DRAW commands bmodified, bisdeleted, bgenerated have been implemented to track
the history of shapes modifications in Boolean and General Fuse operations.

Test-case for issue #26393
This commit is contained in:
emv
2015-07-28 11:44:27 +03:00
committed by abv
parent 6063352953
commit 58c3e0dcd4
6 changed files with 297 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

102
tests/bugs/modalg_6/bug26393 Normal file
View File

@@ -0,0 +1,102 @@
puts "========"
puts "OCC26393"
puts "========"
puts ""
#################################################################
# Add draw commands to evaluate history of modifications of BOP
#################################################################
restore [locate_data_file OCC26393-w.brep] w
restore [locate_data_file OCC26393-v1.brep] v0
restore [locate_data_file OCC26393-v2.brep] v1
bclearobjects
bcleartools
baddobjects w
baddtools v0 v1
bfillds
bbuild r
set bug_info [bmodified v0m v0]
set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
if {$bug_info != "The shape has not been modified"} {
puts "ERROR: OCC26393 is reproduced. Command bmodified does not work."
}
set bug_info [bmodified v1m v1]
set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
if {$bug_info != "The shape has not been modified"} {
puts "ERROR: OCC26393 is reproduced. Command bmodified does not work."
}
set bug_info [bisdeleted v0]
set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
if {$bug_info != "Not deleted"} {
puts "ERROR: OCC26393 is reproduced. Command bisdeleted does not work."
}
set bug_info [bisdeleted v1]
set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
if {$bug_info != "Not deleted"} {
puts "ERROR: OCC26393 is reproduced. Command bisdeleted does not work."
}
explode w e
set bug_info [bmodified w1m w_1]
if {$bug_info != ""} {
puts "ERROR: OCC26393 is reproduced. Command bmodified does not work correctly."
}
set bug_info [bisdeleted w_1]
set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
if {$bug_info != "Not deleted"} {
puts "ERROR: OCC26393 is reproduced. Command bisdeleted does not work."
}
set bug_info [bmodified w2m w_2]
set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
if {$bug_info != "The shape has not been modified"} {
puts "ERROR: OCC26393 is reproduced. Command bmodified does not work."
}
set bug_info [bisdeleted w_2]
set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
if {$bug_info != "Not deleted"} {
puts "ERROR: OCC26393 is reproduced. Command bisdeleted does not work."
}
set bug_info [bmodified w3m w_3]
set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
if {$bug_info != "The shape has not been modified"} {
puts "ERROR: OCC26393 is reproduced. Command bmodified does not work."
}
set bug_info [bisdeleted w_3]
set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
if {$bug_info != "Not deleted"} {
puts "ERROR: OCC26393 is reproduced. Command bisdeleted does not work."
}
set bug_info [bmodified w4m w_4]
if {$bug_info != ""} {
puts "ERROR: OCC26393 is reproduced. Command bmodified does not work correctly."
}
set bug_info [bisdeleted w_4]
set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
if {$bug_info != "Not deleted"} {
puts "ERROR: OCC26393 is reproduced. Command bisdeleted does not work."
}
set bug_info [bmodified w5m w_5]
set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
if {$bug_info != "The shape has not been modified"} {
puts "ERROR: OCC26393 is reproduced. Command bmodified does not work."
}
set bug_info [bisdeleted w_5]
set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
if {$bug_info != "Not deleted"} {
puts "ERROR: OCC26393 is reproduced. Command bisdeleted does not work."
}