OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-05 18:16:23 +03:00
Code Packages Releases Activity

Adjusting bugs group for current state of OCCT

Browse Source
This commit is contained in:
apn 2013-01-11 15:30:11 +04:00
parent b4c5c58ed4
commit 61c421bffa
343 changed files with 13275 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

569
tests/bugs/caf/bug1054_1 Normal file
View File

@ -0,0 +1,569 @@
puts "================"
puts "OCC1054"
puts "================"
puts ""
#######################################################################################
# Mechanism of transactions' synchronization and mechanizm of nested transactions
#######################################################################################
# Case 1 (nested mode ON)
#######################################################################################
proc OCC1054_Check_dump {IsGood index good_index case} {
# Check dump
if { ${index} != ${good_index} } {
set IsGood 0
puts "OCC1054 Error (case ${case} : index = ${index} good_index = ${good_index})"
}
return ${IsGood}
}
proc OCC1054_Check_real_attribute {IsGood doc label good_real case} {
global ${doc}
# Check real attribute
set percent_max 0.1
if [catch { set real [GetReal ${doc} ${label}] } message] {
set IsGood 0
puts "OCC1054 Error (case ${case})"
} else {
set real_percent [expr abs(${real} - ${good_real}) / double(${good_real}) * 100.]
if {${real_percent} > ${percent_max}} {
puts "good_real = ${good_real}"
puts "real = ${real}"
puts "real_percent = ${real_percent}"
puts "OCC1054 Error (case ${case}-2)"
}
}
return ${IsGood}
}
set IsGood 1
set Case 0
NewDocument doc1
NewDocument doc2
NewDocument doc3
mtmCreate 4
mtmNestedMode 1
mtmAdd doc1
mtmOpen
SetReal doc1 0:1:1 1.1
OpenCommand doc1
SetReal doc1 0:1:1 11
AbortCommand doc1
OpenCommand doc1
SetReal doc1 0:1:3 12.1
OpenCommand doc1
SetReal doc1 0:1:3 121
AbortCommand doc1
SetReal doc1 0:1:4 12.2
CommitCommand doc1
SetReal doc1 0:1:1 1.2
SetReal doc1 0:1:4 1.3
mtmCommit Transaction1
set list [mtmDump]
################################################################################
# *** Dump of MTM ***
# There is one document ( "2690640" ) in the manager
# Nested transaction mode is on
#
# Undo: Transaction1 - 1 documents ( "2690640" ) < Last action
#
# *** End ***
################################################################################
set index1 [lsearch -exact ${list} "Transaction1"]
set docnum1 [lindex ${list} [expr ${index1} + 2]]
set index2 [lsearch -exact ${list} "Last"]
# Check dump
set IsGood [OCC1054_Check_dump ${IsGood} ${index1} 21 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum1} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index2} 29 [incr Case]]
# Check real attributes
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc1} 0:1:1 1.2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc1} 0:1:3 12.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc1} 0:1:4 1.3 [incr Case]]
mtmAdd doc2
mtmAdd doc3
mtmOpen
SetReal doc2 0:2:1 2.1
SetReal doc1 0:2:2 2.1
OpenCommand doc1
OpenCommand doc2
SetReal doc2 0:2:1 21
SetReal doc1 0:2:2 21
AbortCommand doc2
OpenCommand doc3
OpenCommand doc2
SetReal doc3 0:2:3 22.1
SetReal doc2 0:2:3 22.1
OpenCommand doc2
SetReal doc2 0:2:3 221
AbortCommand doc2
SetReal doc3 0:2:4 22.2
CommitCommand doc2
CommitCommand doc3
AbortCommand doc1
SetReal doc1 0:2:1 2.2
SetReal doc1 0:2:4 2.3
mtmCommit Transaction2
set list [mtmDump]
################################################################################
# *** Dump of MTM ***
# There are 3 documents ( "2809192" "2705536" "2697976" ) in the manager
# Nested transaction mode is on
#
# Undo: Transaction1 - 1 documents ( "2809192" )
# Undo: Transaction2 - 3 documents ( "2697976" "2705536" "2809192" ) < Last action
#
# *** End ***
################################################################################
set index1 [lsearch -exact ${list} "Transaction1"]
set docnum1 [lindex ${list} [expr ${index1} + 2]]
set index2 [lsearch -exact ${list} "Transaction2"]
set docnum2 [lindex ${list} [expr ${index2} + 2]]
set index3 [lsearch -exact ${list} "Last"]
# Check dump
set IsGood [OCC1054_Check_dump ${IsGood} ${index1} 23 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum1} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index2} 31 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum2} 3 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index3} 41 [incr Case]]
# Check real attributes
# doc1
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:1 1.2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:3 12.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:4 1.3 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:1 2.2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:2 2.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:4 2.3 [incr Case]]
# doc2
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc2 0:2:1 2.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc2 0:2:3 22.1 [incr Case]]
# doc3
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc3 0:2:3 22.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc3 0:2:4 22.2 [incr Case]]
mtmOpen
SetReal doc1 0:1:1 3.1
OpenCommand doc1
SetReal doc1 0:1:1 31
AbortCommand doc1
OpenCommand doc1
SetReal doc1 0:1:3 32.1
OpenCommand doc1
SetReal doc1 0:1:3 321
AbortCommand doc1
SetReal doc1 0:1:4 32.2
CommitCommand doc1
SetReal doc1 0:1:1 3.2
SetReal doc1 0:1:4 3.3
mtmCommit Transaction3
set list [mtmDump]
################################################################################
# *** Dump of MTM ***
# There are 3 documents ( "2809192" "2705536" "2697976" ) in the manager
# Nested transaction mode is on
#
# Undo: Transaction1 - 1 documents ( "2809192" )
# Undo: Transaction2 - 3 documents ( "2697976" "2705536" "2809192" )
# Undo: Transaction3 - 1 documents ( "2809192" ) < Last action
#
# *** End ***
################################################################################
set index1 [lsearch -exact ${list} "Transaction1"]
set docnum1 [lindex ${list} [expr ${index1} + 2]]
set index2 [lsearch -exact ${list} "Transaction2"]
set docnum2 [lindex ${list} [expr ${index2} + 2]]
set index3 [lsearch -exact ${list} "Transaction3"]
set docnum3 [lindex ${list} [expr ${index3} + 2]]
set index4 [lsearch -exact ${list} "Last"]
# Check dump
set IsGood [OCC1054_Check_dump ${IsGood} ${index1} 23 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum1} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index2} 31 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum2} 3 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index3} 41 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum3} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index4} 49 [incr Case]]
# Check real attributes
# doc1
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:1 3.2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:3 32.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:4 3.3 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:1 2.2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:2 2.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:4 2.3 [incr Case]]
# doc2
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc2 0:2:1 2.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc2 0:2:3 22.1 [incr Case]]
# doc3
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc3 0:2:3 22.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc3 0:2:4 22.2 [incr Case]]
mtmUndo
set list [mtmDump]
################################################################################
# *** Dump of MTM ***
# There are 3 documents ( "2809192" "2705536" "2697976" ) in the manager
# Nested transaction mode is on
#
# Undo: Transaction1 - 1 documents ( "2809192" )
# Undo: Transaction2 - 3 documents ( "2697976" "2705536" "2809192" ) < Last action
# Redo: Transaction3 - 1 documents ( "2809192" )
#
# *** End ***
################################################################################
set index1 [lsearch -exact ${list} "Transaction1"]
set docnum1 [lindex ${list} [expr ${index1} + 2]]
set index2 [lsearch -exact ${list} "Transaction2"]
set docnum2 [lindex ${list} [expr ${index2} + 2]]
set index3 [lsearch -exact ${list} "Transaction3"]
set docnum3 [lindex ${list} [expr ${index3} + 2]]
set redo3 [lindex ${list} [expr ${index3} - 1]]
set index4 [lsearch -exact ${list} "Last"]
# Check dump
set IsGood [OCC1054_Check_dump ${IsGood} ${index1} 23 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum1} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index2} 31 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum2} 3 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index3} 44 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum3} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${redo3} "Redo:" [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index4} 41 [incr Case]]
# Check real attributes
# doc1
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:1 1.2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:3 12.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:4 1.3 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:1 2.2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:2 2.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:4 2.3 [incr Case]]
# doc2
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc2 0:2:1 2.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc2 0:2:3 22.1 [incr Case]]
# doc3
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc3 0:2:3 22.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc3 0:2:4 22.2 [incr Case]]
mtmOpen
SetReal doc1 0:1:1 4.1
OpenCommand doc1
SetReal doc1 0:1:1 41
AbortCommand doc1
OpenCommand doc1
SetReal doc1 0:1:3 42.1
OpenCommand doc1
SetReal doc1 0:1:3 421
mtmAbort
set list [mtmDump]
################################################################################
# *** Dump of MTM ***
# There are 3 documents ( "2809192" "2705536" "2697976" ) in the manager
# Nested transaction mode is on
#
# Undo: Transaction1 - 1 documents ( "2809192" )
# Undo: Transaction2 - 3 documents ( "2697976" "2705536" "2809192" ) < Last action
# Redo: Transaction3 - 1 documents ( "2809192" )
#
# *** End ***
################################################################################
set index1 [lsearch -exact ${list} "Transaction1"]
set docnum1 [lindex ${list} [expr ${index1} + 2]]
set index2 [lsearch -exact ${list} "Transaction2"]
set docnum2 [lindex ${list} [expr ${index2} + 2]]
set index3 [lsearch -exact ${list} "Transaction3"]
set docnum3 [lindex ${list} [expr ${index3} + 2]]
set redo3 [lindex ${list} [expr ${index3} - 1]]
set index4 [lsearch -exact ${list} "Last"]
# Check dump
set IsGood [OCC1054_Check_dump ${IsGood} ${index1} 23 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum1} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index2} 31 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum2} 3 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index3} 44 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum3} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${redo3} "Redo:" [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index4} 41 [incr Case]]
# Check real attributes
# doc1
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:1 1.2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:3 12.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:4 1.3 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:1 2.2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:2 2.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:4 2.3 [incr Case]]
# doc2
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc2 0:2:1 2.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc2 0:2:3 22.1 [incr Case]]
# doc3
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc3 0:2:3 22.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc3 0:2:4 22.2 [incr Case]]
mtmRedo
set list [mtmDump]
################################################################################
# *** Dump of MTM ***
# There are 3 documents ( "2809192" "2705536" "2697976" ) in the manager
# Nested transaction mode is on
#
# Undo: Transaction1 - 1 documents ( "2809192" )
# Undo: Transaction2 - 3 documents ( "2697976" "2705536" "2809192" )
# Undo: Transaction3 - 1 documents ( "2809192" ) < Last action
#
# *** End ***
################################################################################
set index1 [lsearch -exact ${list} "Transaction1"]
set docnum1 [lindex ${list} [expr ${index1} + 2]]
set index2 [lsearch -exact ${list} "Transaction2"]
set docnum2 [lindex ${list} [expr ${index2} + 2]]
set index3 [lsearch -exact ${list} "Transaction3"]
set docnum3 [lindex ${list} [expr ${index3} + 2]]
set undo3 [lindex ${list} [expr ${index3} - 1]]
set index4 [lsearch -exact ${list} "Last"]
# Check dump
set IsGood [OCC1054_Check_dump ${IsGood} ${index1} 23 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum1} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index2} 31 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum2} 3 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index3} 41 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum3} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${undo3} "Undo:" [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index4} 49 [incr Case]]
# Check real attributes
# doc1
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:1 3.2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:3 32.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:4 3.3 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:1 2.2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:2 2.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:4 2.3 [incr Case]]
# doc2
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc2 0:2:1 2.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc2 0:2:3 22.1 [incr Case]]
# doc3
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc3 0:2:3 22.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc3 0:2:4 22.2 [incr Case]]
mtmOpen
SetReal doc1 0:1:1 5.1
OpenCommand doc1
SetReal doc1 0:1:1 51
OpenCommand doc1
SetReal doc1 0:1:3 52.1
OpenCommand doc1
SetReal doc1 0:1:3 521
mtmCommit Transaction5
set list [mtmDump]
################################################################################
# *** Dump of MTM ***
# There are 3 documents ( "2809192" "2705536" "2697976" ) in the manager
# Nested transaction mode is on
#
# Undo: Transaction1 - 1 documents ( "2809192" )
# Undo: Transaction2 - 3 documents ( "2697976" "2705536" "2809192" )
# Undo: Transaction3 - 1 documents ( "2809192" )
# Undo: Transaction5 - 1 documents ( "2809192" ) < Last action
#
# *** End ***
################################################################################
set index1 [lsearch -exact ${list} "Transaction1"]
set docnum1 [lindex ${list} [expr ${index1} + 2]]
set index2 [lsearch -exact ${list} "Transaction2"]
set docnum2 [lindex ${list} [expr ${index2} + 2]]
set index3 [lsearch -exact ${list} "Transaction3"]
set docnum3 [lindex ${list} [expr ${index3} + 2]]
set index4 [lsearch -exact ${list} "Transaction5"]
set docnum4 [lindex ${list} [expr ${index4} + 2]]
set index5 [lsearch -exact ${list} "Last"]
# Check dump
set IsGood [OCC1054_Check_dump ${IsGood} ${index1} 23 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum1} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index2} 31 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum2} 3 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index3} 41 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum3} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index4} 49 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum4} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index5} 57 [incr Case]]
# Check real attributes
# doc1
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:1 51 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:3 521 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:4 3.3 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:1 2.2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:2 2.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:4 2.3 [incr Case]]
# doc2
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc2 0:2:1 2.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc2 0:2:3 22.1 [incr Case]]
# doc3
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc3 0:2:3 22.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc3 0:2:4 22.2 [incr Case]]
mtmUndo
set list [mtmDump]
################################################################################
# *** Dump of MTM ***
# There are 3 documents ( "2809192" "2705536" "3095112" ) in the manager
# Nested transaction mode is on
#
# Undo: Transaction1 - 1 documents ( "2809192" )
# Undo: Transaction2 - 3 documents ( "3095112" "2705536" "2809192" )
# Undo: Transaction3 - 1 documents ( "2809192" ) < Last action
# Redo: Transaction5 - 1 documents ( "2809192" )
#
# *** End ***
################################################################################
set index1 [lsearch -exact ${list} "Transaction1"]
set docnum1 [lindex ${list} [expr ${index1} + 2]]
set index2 [lsearch -exact ${list} "Transaction2"]
set docnum2 [lindex ${list} [expr ${index2} + 2]]
set index3 [lsearch -exact ${list} "Transaction3"]
set docnum3 [lindex ${list} [expr ${index3} + 2]]
set index4 [lsearch -exact ${list} "Transaction5"]
set docnum4 [lindex ${list} [expr ${index4} + 2]]
set redo4 [lindex ${list} [expr ${index4} - 1]]
set index5 [lsearch -exact ${list} "Last"]
# Check dump
set IsGood [OCC1054_Check_dump ${IsGood} ${index1} 23 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum1} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index2} 31 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum2} 3 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index3} 41 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum3} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index4} 52 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum4} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${redo4} "Redo:" [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index5} 49 [incr Case]]
# Check real attributes
# doc1
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:1 3.2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:3 32.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:4 3.3 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:1 2.2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:2 2.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:4 2.3 [incr Case]]
# doc2
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc2 0:2:1 2.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc2 0:2:3 22.1 [incr Case]]
# doc3
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc3 0:2:3 22.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc3 0:2:4 22.2 [incr Case]]
mtmOpen
SetReal doc1 0:1:1 6.1
OpenCommand doc1
SetReal doc1 0:1:1 61
OpenCommand doc1
SetReal doc1 0:1:3 62.1
mtmCommit Transaction6
set list [mtmDump]
################################################################################
# *** Dump of MTM ***
# There are 3 documents ( "2809192" "2705536" "3095112" ) in the manager
# Nested transaction mode is on
#
# Undo: Transaction1 - 1 documents ( "2809192" )
# Undo: Transaction2 - 3 documents ( "3095112" "2705536" "2809192" )
# Undo: Transaction3 - 1 documents ( "2809192" )
# Undo: Transaction6 - 1 documents ( "2809192" ) < Last action
#
# *** End ***
################################################################################
set index1 [lsearch -exact ${list} "Transaction1"]
set docnum1 [lindex ${list} [expr ${index1} + 2]]
set index2 [lsearch -exact ${list} "Transaction2"]
set docnum2 [lindex ${list} [expr ${index2} + 2]]
set index3 [lsearch -exact ${list} "Transaction3"]
set docnum3 [lindex ${list} [expr ${index3} + 2]]
set index4 [lsearch -exact ${list} "Transaction6"]
set docnum4 [lindex ${list} [expr ${index4} + 2]]
set index5 [lsearch -exact ${list} "Last"]
# Check dump
set IsGood [OCC1054_Check_dump ${IsGood} ${index1} 23 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum1} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index2} 31 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum2} 3 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index3} 41 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum3} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index4} 49 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum4} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index5} 57 [incr Case]]
# Check real attributes
# doc1
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:1 61 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:3 62.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:1:4 3.3 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:1 2.2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:2 2.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc1 0:2:4 2.3 [incr Case]]
# doc2
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc2 0:2:1 2.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc2 0:2:3 22.1 [incr Case]]
# doc3
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc3 0:2:3 22.1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} doc3 0:2:4 22.2 [incr Case]]
if { ${IsGood} == 1 } {
puts "OCC1054 OK"
} else {
puts "OCC1054 Error"
}

318
tests/bugs/caf/bug1054_2 Normal file
View File

@ -0,0 +1,318 @@
puts "================"
puts "OCC1054"
puts "================"
puts ""
#######################################################################################
# Mechanism of transactions' synchronization and mechanizm of nested transactions
#######################################################################################
# Case 2 (nested mode OFF)
#######################################################################################
proc OCC1054_Check_dump {IsGood index good_index case} {
# Check dump
if { ${index} != ${good_index} } {
set IsGood 0
puts "OCC1054 Error (case ${case} : index = ${index} good_index = ${good_index})"
}
return ${IsGood}
}
proc OCC1054_Check_real_attribute {IsGood doc label good_real case} {
global ${doc}
# Check real attribute
set percent_max 0.1
if [catch { set real [GetReal ${doc} ${label}] } message] {
set IsGood 0
puts "OCC1054 Error (case ${case})"
} else {
set real_percent [expr abs(${real} - ${good_real}) / double(${good_real}) * 100.]
if {${real_percent} > ${percent_max}} {
puts "good_real = ${good_real}"
puts "real = ${real}"
puts "real_percent = ${real_percent}"
puts "OCC1054 Error (case ${case}-2)"
}
}
return ${IsGood}
}
set IsGood 1
set Case 0
NewDocument doc1
NewDocument doc2
NewDocument doc3
mtmCreate 4
mtmAdd doc1
mtmOpen
SetReal doc1 0:1 1
mtmCommit tr1
set list [mtmDump]
################################################################################
# *** Dump of MTM ***
# There is one document ( "2809192" ) in the manager
# Nested transaction mode is off
#
# Undo: tr1 - 1 documents ( "2809192" ) < Last action
#
# *** End ***
################################################################################
set docnum0 [lindex ${list} 7]
set index1 [lsearch -exact ${list} "tr1"]
set docnum1 [lindex ${list} [expr ${index1} + 2]]
set index2 [lsearch -exact ${list} "Last"]
# Check dump
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum0} "one" [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index1} 21 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum1} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index2} 29 [incr Case]]
# Check real attributes
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc1} 0:1 1 [incr Case]]
mtmAdd doc2
set list [mtmDump]
################################################################################
# *** Dump of MTM ***
# There are 2 documents ( "2809192" "2705536" ) in the manager
# Nested transaction mode is off
#
# Undo: tr1 - 1 documents ( "2809192" ) < Last action
#
# *** End ***
################################################################################
set docnum0 [lindex ${list} 7]
set index1 [lsearch -exact ${list} "tr1"]
set docnum1 [lindex ${list} [expr ${index1} + 2]]
set index2 [lsearch -exact ${list} "Last"]
# Check dump
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum0} 2 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index1} 22 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum1} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index2} 30 [incr Case]]
# Check real attributes
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc1} 0:1 1 [incr Case]]
mtmOpen
SetReal doc2 0:1 2
mtmCommit tr2
set list [mtmDump]
################################################################################
# *** Dump of MTM ***
# There are 2 documents ( "2809192" "2705536" ) in the manager
# Nested transaction mode is off
#
# Undo: tr1 - 1 documents ( "2809192" )
# Undo: tr2 - 1 documents ( "2705536" ) < Last action
#
# *** End ***
################################################################################
set docnum0 [lindex ${list} 7]
set index1 [lsearch -exact ${list} "tr1"]
set docnum1 [lindex ${list} [expr ${index1} + 2]]
set index2 [lsearch -exact ${list} "tr2"]
set docnum2 [lindex ${list} [expr ${index2} + 2]]
set index3 [lsearch -exact ${list} "Last"]
# Check dump
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum0} 2 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index1} 22 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum1} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index2} 30 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum2} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index3} 38 [incr Case]]
# Check real attributes
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc1} 0:1 1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc2} 0:1 2 [incr Case]]
SetReal doc3 0:1 1
mtmAdd doc3
set list [mtmDump]
################################################################################
# *** Dump of MTM ***
# There are 3 documents ( "2809192" "2705536" "3095112" ) in the manager
# Nested transaction mode is off
#
# Undo: tr1 - 1 documents ( "2809192" )
# Undo: tr2 - 1 documents ( "2705536" ) < Last action
#
# *** End ***
################################################################################
set docnum0 [lindex ${list} 7]
set index1 [lsearch -exact ${list} "tr1"]
set docnum1 [lindex ${list} [expr ${index1} + 2]]
set index2 [lsearch -exact ${list} "tr2"]
set docnum2 [lindex ${list} [expr ${index2} + 2]]
set index3 [lsearch -exact ${list} "Last"]
# Check dump
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum0} 3 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index1} 23 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum1} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index2} 31 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum2} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index3} 39 [incr Case]]
# Check real attributes
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc1} 0:1 1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc2} 0:1 2 [incr Case]]
mtmOpen
SetReal doc1 0:2 2
SetReal doc3 0:2 2
mtmCommit tr3
set list [mtmDump]
################################################################################
# *** Dump of MTM ***
# There are 3 documents ( "2809192" "2705536" "3095112" ) in the manager
# Nested transaction mode is off
#
# Undo: tr1 - 1 documents ( "2809192" )
# Undo: tr2 - 1 documents ( "2705536" )
# Undo: tr3 - 2 documents ( "3095112" "2809192" ) < Last action
#
# *** End ***
################################################################################
set docnum0 [lindex ${list} 7]
set index1 [lsearch -exact ${list} "tr1"]
set docnum1 [lindex ${list} [expr ${index1} + 2]]
set index2 [lsearch -exact ${list} "tr2"]
set docnum2 [lindex ${list} [expr ${index2} + 2]]
set index3 [lsearch -exact ${list} "tr3"]
set docnum3 [lindex ${list} [expr ${index3} + 2]]
set index4 [lsearch -exact ${list} "Last"]
# Check dump
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum0} 3 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index1} 23 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum1} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index2} 31 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum2} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index3} 39 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum3} 2 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index4} 48 [incr Case]]
# Check real attributes
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc1} 0:1 1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc1} 0:2 2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc2} 0:1 2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc3} 0:2 2 [incr Case]]
mtmOpen
SetReal doc2 0:2 2
SetReal doc3 0:3 3
mtmCommit tr4
set list [mtmDump]
################################################################################
# *** Dump of MTM ***
# There are 3 documents ( "2809192" "2705536" "3095112" ) in the manager
# Nested transaction mode is off
#
# Undo: tr1 - 1 documents ( "2809192" )
# Undo: tr2 - 1 documents ( "2705536" )
# Undo: tr3 - 2 documents ( "3095112" "2809192" )
# Undo: tr4 - 2 documents ( "3095112" "2705536" ) < Last action
#
# *** End ***
################################################################################
set docnum0 [lindex ${list} 7]
set index1 [lsearch -exact ${list} "tr1"]
set docnum1 [lindex ${list} [expr ${index1} + 2]]
set index2 [lsearch -exact ${list} "tr2"]
set docnum2 [lindex ${list} [expr ${index2} + 2]]
set index3 [lsearch -exact ${list} "tr3"]
set docnum3 [lindex ${list} [expr ${index3} + 2]]
set index4 [lsearch -exact ${list} "tr4"]
set docnum4 [lindex ${list} [expr ${index4} + 2]]
set index5 [lsearch -exact ${list} "Last"]
# Check dump
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum0} 3 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index1} 23 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum1} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index2} 31 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum2} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index3} 39 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum3} 2 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index4} 48 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum4} 2 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index5} 57 [incr Case]]
# Check real attributes
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc1} 0:1 1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc1} 0:2 2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc2} 0:1 2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc2} 0:2 2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc3} 0:2 2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc3} 0:3 3 [incr Case]]
mtmOpen
SetReal doc1 0:3 3
SetReal doc2 0:3 3
mtmCommit tr5
set list [mtmDump]
################################################################################
# *** Dump of MTM ***
# There are 3 documents ( "2809192" "2705536" "3095112" ) in the manager
# Nested transaction mode is off
#
# Undo: tr2 - 1 documents ( "2705536" )
# Undo: tr3 - 2 documents ( "3095112" "2809192" )
# Undo: tr4 - 2 documents ( "3095112" "2705536" )
# Undo: tr5 - 2 documents ( "2705536" "2809192" ) < Last action
#
# *** End ***
################################################################################
set docnum0 [lindex ${list} 7]
set index1 [lsearch -exact ${list} "tr2"]
set docnum1 [lindex ${list} [expr ${index1} + 2]]
set index2 [lsearch -exact ${list} "tr3"]
set docnum2 [lindex ${list} [expr ${index2} + 2]]
set index3 [lsearch -exact ${list} "tr4"]
set docnum3 [lindex ${list} [expr ${index3} + 2]]
set index4 [lsearch -exact ${list} "tr5"]
set docnum4 [lindex ${list} [expr ${index4} + 2]]
set index5 [lsearch -exact ${list} "Last"]
# Check dump
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum0} 3 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index1} 23 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum1} 1 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index2} 31 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum2} 2 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index3} 40 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum3} 2 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index4} 49 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${docnum4} 2 [incr Case]]
set IsGood [OCC1054_Check_dump ${IsGood} ${index5} 58 [incr Case]]
# Check real attributes
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc1} 0:1 1 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc1} 0:2 2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc1} 0:3 3 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc2} 0:1 2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc2} 0:2 2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc2} 0:3 3 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc3} 0:2 2 [incr Case]]
set IsGood [OCC1054_Check_real_attribute ${IsGood} ${doc3} 0:3 3 [incr Case]]
if { ${IsGood} == 1 } {
puts "OCC1054 OK"
} else {
puts "OCC1054 Error"
}

2
tests/bugs/caf/bug114
View File

@ -9,7 +9,7 @@ puts "Amount of iterations is $i_max"
NewDocument D MDTV-Standard
UndoLimit D 10
restore [locate_data_file OCC114.brep] s
restore [locate_data_file OCC294.brep] s
set listmem {}
for {set i 1} {${i} <= ${i_max}} {incr i} {

64
tests/bugs/caf/bug1395_1 Normal file
View File

@ -0,0 +1,64 @@
puts "TODO OCC12345 ALL: OCC1395 Error : There is not the integer attribute on the label 0:2"
puts "TODO OCC12345 ALL: OCC1395 Error"
puts "================"
puts "OCC1395"
puts "================"
puts ""
#######################################################################################
# Wrong behaviour of Undo Redo and SetUndoLimit methods in TDocStd_Document
#######################################################################################
# Case 1 (Undo)
#######################################################################################
set IsGood 1
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label
set aLabel 0:2
Label D ${aLabel}
# Open a transaction
OpenTran D
# Set integer attribute
set anInteger 5
SetInteger D ${aLabel} ${anInteger}
# Commit transaction
CommitTran D 1
# Undo
DFUndo D 1
# Check integer attributes
if [catch { set Integer [GetInteger D ${aLabel}] } message] {
set IsGood 0
puts "OCC1395 Error : There is not the integer attribute on the label ${aLabel}"
} else {
puts "OCC1395 OK : There is the integer attribute on the label ${aLabel}"
}
# Set real attribute
set aReal 8.8
SetReal D ${aLabel} ${aReal}
# Undo
DFUndo D 1
# Check real attributes
if [catch { set Real [GetReal D ${aLabel}] } message] {
set IsGood 0
puts "OCC1395 Error : There is not the real attribute on the label ${aLabel}"
} else {
puts "OCC1395 OK : There is the real attribute on the label ${aLabel}"
}
if { ${IsGood} == 1 } {
puts "OCC1395 OK"
} else {
puts "OCC1395 Error"
}

61
tests/bugs/caf/bug1395_2 Normal file
View File

@ -0,0 +1,61 @@
puts "TODO OCC12345 ALL: OCC1395 Error : There is not the integer attribute on the label 0:2"
puts "TODO OCC12345 ALL: OCC1395 Error"
puts "================"
puts "OCC1395"
puts "================"
puts ""
#######################################################################################
# Wrong behaviour of Undo Redo and SetUndoLimit methods in TDocStd_Document
#######################################################################################
# Case 3 (SetUndoLimit)
#######################################################################################
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label
set aLabel 0:2
Label D ${aLabel}
# Open a transaction
OpenTran D
# Set integer attribute
set anInteger 5
SetInteger D ${aLabel} ${anInteger}
# Commit transaction
CommitTran D 1
# Set UndoLimit
UndoLimit D 10
# Set real attribute
set aReal 8.8
SetReal D ${aLabel} ${aReal}
# Undo
DFUndo D 1
# Check integer and real attributes
set IsGood 1
if [catch { set Integer [GetInteger D ${aLabel}] } message] {
set IsGood 0
puts "OCC1395 Error : There is not the integer attribute on the label ${aLabel}"
} else {
puts "OCC1395 OK : There is the integer attribute on the label ${aLabel}"
}
if [catch { set Real [GetReal D ${aLabel}] } message] {
set IsGood 0
puts "OCC1395 Error : There is not the real attribute on the label ${aLabel}"
} else {
puts "OCC1395 OK : There is the real attribute on the label ${aLabel}"
}
if { ${IsGood} == 1 } {
puts "OCC1395 OK"
} else {
puts "OCC1395 Error"
}

34
tests/bugs/caf/bug1454 Normal file
View File

@ -0,0 +1,34 @@
puts "TODO ?OCC12345 ALL: Elapsed time is more then 20.0 seconds - Faulty"
puts "TODO ?OCC12345 ALL: Faulty OCC1454"
puts "===== OCC1454 ====="
#######################################################################################
# Improve performance of TDF_Label::FindChild
#######################################################################################
puts "Info: Open the document with 80000 sublabels of the label 0:2"
chrono h reset; chrono h start
Open [locate_data_file OCC1726.std] D
chrono h stop; set TimeList [chrono h show]
set ElapsedTime_min [lindex ${TimeList} 4]
set ElapsedTime_sec [lindex ${TimeList} 6]
set CPUusertime [lindex ${TimeList} 11]
set CPUsystemtime [lindex ${TimeList} 16]
puts "ElapsedTime = ${ElapsedTime_min} min ${ElapsedTime_sec} sec CPUusertime = ${CPUusertime} CPUsystemtime = ${CPUsystemtime}"
if { ${ElapsedTime_sec} > 20.0 || ${ElapsedTime_min} != 0 } {
puts "Elapsed time is more then 20.0 seconds - Faulty"
puts "Faulty OCC1454"
} elseif { ${CPUusertime} > 12 } {
puts "CPUusertime is more then 12 seconds - Faulty"
puts "Faulty OCC1454"
} elseif { ${CPUsystemtime} > 0.6 } {
puts "CPUsystemtime is more then 0.6 seconds"
puts "Faulty OCC1454"
} else {
puts "Elapsed time is less then 20 seconds - OK"
puts "CPU user time is less then 12 seconds - OK"
puts "CPU system time is less then 0.6 seconds - OK"
puts "OK for OCC1454"
}

28
tests/bugs/caf/bug159 Normal file
View File

@ -0,0 +1,28 @@
puts "==========="
puts "OCC159"
puts "==========="
pload QAcommands
NewDocument D MDTV-Standard
set log [OCC159 D]
set list [split ${log}]
set ll [llength ${list}]
if { ${ll} < 13} then {
puts "OCC159: Error"
} else {
set DocRefCount1 [lindex ${list} 2]
set DocOwner1 [lindex ${list} 5]
set DocOwner2 [lindex ${list} 8]
set DocRefCount2 [lindex ${list} 11]
set deltaRefCount [expr ${DocRefCount1} - ${DocRefCount2}]
if { ${DocOwner2} == "NULL" && ${deltaRefCount} >= 1 } then {
puts "OCC159: OK"
} else {
puts "OCC159: Error"
}
}

98
tests/bugs/caf/bug1722 Normal file
View File

@ -0,0 +1,98 @@
puts "================"
puts "OCC1722"
puts "================"
puts ""
#######################################################################################
# Wrong behaviour of the method CommitCommand of class TDocStd_MultiTransactionManager
#######################################################################################
proc OCC1722_Check_real_attribute {IsGood doc label good_real case} {
global ${doc}
# Check real attribute
set percent_max 0.1
if [catch { set real [GetReal ${doc} ${label}] } message] {
set IsGood 0
puts "OCC1722 Error (case ${case})"
} else {
set real_percent [expr abs(${real} - ${good_real}) / double(${good_real}) * 100.]
if {${real_percent} > ${percent_max}} {
puts "good_real = ${good_real}"
puts "real = ${real}"
puts "real_percent = ${real_percent}"
puts "OCC1722 Error (case ${case}-2)"
}
}
return ${IsGood}
}
set IsGood 1
set Case 0
set aLabel 0:1:1
set aReal1 1.1
set aReal2 2.1
NewDocument doc1
mtmCreate 4
mtmAdd doc1
SetReal doc1 ${aLabel} ${aReal1}
set IsGood [OCC1722_Check_real_attribute ${IsGood} ${doc1} ${aLabel} ${aReal1} [incr Case]]
OpenCommand doc1
SetReal doc1 ${aLabel} ${aReal2}
set IsGood [OCC1722_Check_real_attribute ${IsGood} ${doc1} ${aLabel} ${aReal2} [incr Case]]
set list [mtmDump]
################################################################################
# *** Dump of MTM ***
# There is one document ( "3095112" ) in the manager
# Nested transaction mode is off
#
#
# *** End ***
################################################################################
set index1 [lsearch -exact ${list} "Undo:"]
# Check dump
set case [incr Case]
if { ${index1} != -1 } {
set IsGood 0
puts "OCC1722 Error (case ${case})"
}
mtmCommit Transaction1
set list [mtmDump]
################################################################################
# *** Dump of MTM ***
# There is one document ( "3095112" ) in the manager
# Nested transaction mode is off
#
# Undo: Transaction1 - 1 documents ( "3095112" ) < Last action
#
# *** End ***
################################################################################
set index2 [lsearch -exact ${list} "Undo:"]
# Check dump
set case [incr Case]
if { ${index2} == -1 } {
set IsGood 0
puts "OCC1722 Error (case ${case})"
}
Undo doc1
set IsGood [OCC1722_Check_real_attribute ${IsGood} ${doc1} ${aLabel} ${aReal1} [incr Case]]
Redo doc1
set IsGood [OCC1722_Check_real_attribute ${IsGood} ${doc1} ${aLabel} ${aReal2} [incr Case]]
if { ${IsGood} == 1 } {
puts "OCC1722 OK"
} else {
puts "OCC1722 Error"
}

169
tests/bugs/caf/bug1724 Normal file
View File

@ -0,0 +1,169 @@
puts "================"
puts "OCC1724"
puts "OCC2707"
puts "================"
puts ""
#######################################################################################
# BinOcaf: portability of binary file between platforms
#######################################################################################
# Various improvements of RINA LH3D-3H project
#######################################################################################
set QA_DUP 0
set SetIntegerAttribute 100
set SetRealAttribute 123.45
set aFrom1 1
set aTo1 2
set SetReal1 3.21
set SetReal2 4.56
set aFrom2 11
set aTo2 12
set SetInteger1 3
set SetInteger2 4
set aLabel 0:2
#### FOR PREPARING TEST ONLY ####
#### # Create testing document
#### NewDocument Doc BinOcaf
#### UndoLimit Doc 100
#### NewCommand Doc
####
#### # Set an integer attribute
#### SetInteger Doc ${aLabel} ${SetIntegerAttribute}
####
#### # Set a real attribute
#### SetReal Doc ${aLabel} ${SetRealAttribute}
####
#### # Set a real array attribute
#### SetRealArray Doc ${aLabel} ${aFrom1} ${aTo1} ${SetReal1} ${SetReal2}
####
#### # Set an integer array attribute
#### SetIntArray Doc ${aLabel} ${aFrom2} ${aTo2} ${SetInteger1} ${SetInteger2}
####
#### NewCommand Doc
####
#### # Save the document
#### set OS $tcl_platform(os)
#### if { ${OS} == "SunOS" } {
#### puts "SunOS"
#### set aFile ${WorkDirectory}/OCC1724-[file tail [info script]]-SunOS.cbf
#### } else {
#### puts "WNT"
#### set aFile ${WorkDirectory}/OCC1724-[file tail [info script]]-WNT.cbf
#### }
#### puts "aFile=${aFile}"
#### catch {exec rm -f ${aFile}}
#### catch {SaveAs Doc ${aFile}}
#### if { ![file exists ${aFile}] } {
#### puts "There is not ${aFile} file; SaveAs command: Error"
#### puts "OCC1724: ERROR (case 1)"
#### }
#### catch {exec chmod 777 ${aFile}}
#### Close Doc
#### FOR PREPARING TEST ONLY ####
set IsGood 1
Open [locate_data_file OCC1724-M3-WNT.cbf] DDoc
# Get a value of integer attribute
set GetIntegerAttribute ""
set IsDone [catch {set GetIntegerAttribute [GetInteger DDoc ${aLabel}]} message]
if { ${IsDone} != 0 ||
${SetIntegerAttribute}!=${GetIntegerAttribute} } {
puts ${message}
puts "SetIntegerAttribute=${SetIntegerAttribute} GetIntegerAttribute=${GetIntegerAttribute}"
puts "Get a value of TDataStd_Integer attribute from restoring document: Error"
puts "OCC1724: ERROR (case 3)"
set IsGood 0
} else {
puts "Get a value of TDataStd_Integer attribute from restoring document: OK"
}
# Get a value of real attribute
set GetRealAttribute ""
set IsDone [catch {set GetRealAttribute [GetReal DDoc ${aLabel}]} message]
if { ${IsDone} != 0 ||
${SetRealAttribute}!=${GetRealAttribute} } {
puts ${message}
puts "SetRealAttribute=${SetRealAttribute} GetRealAttribute=${GetRealAttribute}"
puts "Get a value of TDataStd_Real attribute from restoring document: Error"
puts "OCC1724: ERROR (case 4)"
set IsGood 0
} else {
puts "Get a value of TDataStd_Real attribute from restoring document: OK"
}
# Get a value of real array attribute
set GetRealArrayAttribute ""
set IsDone [catch {set GetRealArrayAttribute [GetRealArray DDoc ${aLabel}]} message]
if { ${IsDone} != 0 } {
puts ${message}
puts "Get a value of TDataStd_RealArray attribute from restoring document: Error"
puts "OCC1724: ERROR (case 5)"
set IsGood 0
}
set aRealArrayLength [llength ${GetRealArrayAttribute}]
if { ${aRealArrayLength} != [expr ${aTo1} - ${aFrom1} + 1] } {
puts "aRealArrayLength=${aRealArrayLength}"
puts "Get a value of TDataStd_RealArray attribute from restoring document: Error"
puts "OCC1724: ERROR (case 6)"
set IsGood 0
}
set GetReal1 [lindex ${GetRealArrayAttribute} 0]
if { ${SetReal1} != ${GetReal1} } {
puts "GetReal1=${GetReal1}"
puts "Get a value of TDataStd_RealArray attribute from restoring document: Error"
puts "OCC1724: ERROR (case 7)"
set IsGood 0
}
set GetReal2 [lindex ${GetRealArrayAttribute} 1]
if { ${SetReal2} != ${GetReal2} } {
puts "GetReal2=${GetReal2}"
puts "Get a value of TDataStd_RealArray attribute from restoring document: Error"
puts "OCC1724: ERROR (case 8)"
set IsGood 0
} else {
puts "Get a value of TDataStd_RealArray attribute from restoring document: OK"
}
# Get a value of Integer array attribute
set GetIntegerArrayAttribute ""
set IsDone [catch {set GetIntegerArrayAttribute [GetIntArray DDoc ${aLabel}]} message]
if { ${IsDone} != 0 } {
puts ${message}
puts "Get a value of TDataStd_IntegerArray attribute from restoring document: Error"
puts "OCC1724: ERROR (case 9)"
set IsGood 0
}
set aIntegerArrayLength [llength ${GetIntegerArrayAttribute}]
if { ${aIntegerArrayLength} != [expr ${aTo2} - ${aFrom2} + 1] } {
puts "aIntegerArrayLength=${aIntegerArrayLength}"
puts "Get a value of TDataStd_IntegerArray attribute from restoring document: Error"
puts "OCC1724: ERROR (case 10)"
set IsGood 0
}
set GetInteger1 [lindex ${GetIntegerArrayAttribute} 0]
if { ${SetInteger1} != ${GetInteger1} } {
puts "GetInteger1=${GetInteger1}"
puts "Get a value of TDataStd_IntegerArray attribute from restoring document: Error"
puts "OCC1724: ERROR (case 11)"
set IsGood 0
}
set GetInteger2 [lindex ${GetIntegerArrayAttribute} 1]
if { ${SetInteger2} != ${GetInteger2} } {
puts "GetInteger2=${GetInteger2}"
puts "Get a value of TDataStd_IntegerArray attribute from restoring document: Error"
puts "OCC1724: ERROR (case 12)"
set IsGood 0
} else {
puts "Get a value of TDataStd_IntegerArray attribute from restoring document: OK"
}
if { ${IsGood} == 1 } {
puts "OCC1724 OK"
} else {
puts "OCC1724 Error"
}

26
tests/bugs/caf/bug1726 Normal file
View File

@ -0,0 +1,26 @@
puts "================"
puts "OCC1726"
puts "================"
puts ""
#######################################################################################
# TDF_LabelNode::~TDF_LabelNode causes stack overflow
#######################################################################################
puts "Info: Open the document with 80000 sublabels of the label 0:2"
chrono h reset; chrono h start
Open [locate_data_file OCC1726.std] D
chrono h stop; chrono h show
set IsGood 1
puts "Info: Close the document"
chrono h reset; chrono h start
if [catch {Close D} result] {
set IsGood 0
}
chrono h stop; chrono h show
if { ${IsGood} == 0} {
puts "Faulty OCC1726"
} else {
puts "OK OCC1726"
}

114
tests/bugs/caf/bug1919 Normal file
View File

@ -0,0 +1,114 @@
puts "TODO OCC12345 ALL: OCC1919 Error : Italian locale not seted"
puts "TODO OCC12345 ALL: OCC1919 Error"
puts "================"
puts "OCC1919"
puts "================"
puts ""
#######################################################################################
# Incorrect locale management in XmlDrivers_DocumentRetrievalDriver::Read()
#######################################################################################
pload QAcommands
set USA_Label 0:10
set Italian_Label 0:20
set USA_Real 123.456
set Italian_Real 123,456
#set aFile ${filedir}/OCC1919-[file tail [info script]].xml
set IsGood 1
# Create document
NewDocument D XmlOcaf
UndoLimit D 100
NewCommand D
Label D ${USA_Label}
Label D ${Italian_Label}
# Set USA locale
OCC1919_set en_US
set en_US_local [lindex [OCC1919_get] 2]
if { ${en_US_local} != "en_US" } {
puts "OCC1919 Error : USA - English (ISO-8859-1) locale not seted"
set IsGood 0
}
SetReal D ${USA_Label} ${USA_Real}
# Get a value of the attribute
set USA_IsDone [catch {set new_USA_Real [GetReal D ${USA_Label}]} message]
if { ${USA_IsDone} != 0 || ${new_USA_Real}!=${USA_Real} } {
puts ${message}
puts "USA_Real=${USA_Real} new_USA_Real=${new_USA_Real} "
puts "OCC1919 Error : Get bad value of TDataStd_Real attribute"
set IsGood 0
}
# Set italian locale
OCC1919_set it
set it_local [lindex [OCC1919_get] 2]
if { ${it_local} != "it" } {
puts "OCC1919 Error : Italian locale not seted"
set IsGood 0
}
OCC1919_real D ${Italian_Label} ${Italian_Real}
# Get a value of the attribute
set Italian_IsDone [catch {set new_Italian_Real [GetReal D ${Italian_Label}]} message]
if { ${Italian_IsDone} != 0 || ${new_Italian_Real}!=${Italian_Real} } {
puts ${message}
puts "Italian_Real=${Italian_Real} new_Italian_Real=${new_Italian_Real}"
puts "OCC1919 Error : Get bad value of TDataStd_Real attribute"
set IsGood 0
}
# Get a value of the attribute
set USA_IsDone [catch {set new_USA_Real [GetReal D ${USA_Label}]} message]
if { ${USA_IsDone} != 0 || ${new_USA_Real}!=${Italian_Real} } {
puts ${message}
puts "Italian_Real=${Italian_Real} new_USA_Real=${new_USA_Real}"
puts "OCC1919 Error : Get bad value of TDataStd_Real attribute"
set IsGood 0
}
# Store the document
file delete ${imagedir}/OCC1919-M6.xml
SaveAs D ${imagedir}/OCC1919-M6.xml
if { ![file exists ${imagedir}/OCC1919-M6.xml] } {
puts "OCC1919 Error : There is not file"
set IsGood 0
}
catch {exec chmod 777 ${imagedir}/OCC1919-M6.xml}
Close D
# Set en_US locale
OCC1919_set en_US
set en_US_local [lindex [OCC1919_get] 2]
if { ${en_US_local} != "en_US" } {
puts "OCC1919 Error : USA - English (ISO-8859-1) locale not seted"
set IsGood 0
}
# Restore the document
Open ${imagedir}/OCC1919-M6.xml DD
# Get a value of the attribute
set USA_IsDone [catch {set new_USA_Real [GetReal DD ${USA_Label}]} message]
set Italian_IsDone [catch {set new_Italian_Real [GetReal DD ${Italian_Label}]} message]
if { ${USA_IsDone} != 0 || ${Italian_IsDone} != 0 || ${new_USA_Real}!=${new_Italian_Real} || ${new_Italian_Real}!=${USA_Real} } {
puts ${message}
puts "USA_Real=${USA_Real} Italian_Real=${Italian_Real}"
puts "new_USA_Real=${new_USA_Real} new_Italian_Real=${new_Italian_Real}"
puts "OCC1919 Error : Get bad value of TDataStd_Real attribute from restoring document"
set IsGood 0
}
if { ${IsGood} == 1 } {
puts "OCC1919 OK"
} else {
puts "OCC1919 Error"
}
set make_photo 0

51
tests/bugs/caf/bug2269 Normal file
View File

@ -0,0 +1,51 @@
puts "================"
puts "OCC2269"
puts "================"
puts ""
#######################################################################################
# XML persistance should be more robust
#######################################################################################
#
# Tested file is contains 3 labels with TDataStd_RealArray attributes
# 0:2 label has good TDataStd_RealArray attribute
# 0:22 label has bad TDataStd_RealArray attribute
# 0:222 label has good TDataStd_RealArray attribute
#
#######################################################################################
#set ScriptDir $XmlDir
#source ${ScriptDir}/begin
#source ${ScriptDir}/002/begin
#set aTestName "OCC2269"
#set WorkDirectory ${filedir}
#set aFile $WorkDirectory/${aTestName}.${FileSuffix}
#catch {Close D}
set IsGood 1
Open [locate_data_file OCC2269.xml] DD
if [catch {XDumpDF DD } result] {
puts "Error during dump ${aFile} file"
set IsGood 0
}
if [catch {CheckLabel DD 0:2} result] {
puts "Error during search 0:2 label in ${aFile} file"
set IsGood 0
}
if [catch {CheckLabel DD 0:22} result] {
puts "Error during search 0:22 label in ${aFile} file"
set IsGood 0
}
if [catch {CheckLabel DD 0:222} result] {
puts "Error during search 0:222 label in ${aFile} file"
set IsGood 0
}
Close DD
if { ${IsGood} == 0} {
puts "Faulty OCC2269"
} else {
puts "OK OCC2269"
}

11
tests/bugs/caf/bug267_1 Normal file
View File

@ -0,0 +1,11 @@
puts "========"
puts "OCC267"
puts "========"
NewDocument D MDTV-Standard
######################################################################
file delete ${imagedir}/OCC267.std
SaveAs D ${imagedir}/OCC267.std

31
tests/bugs/caf/bug267_2 Normal file
View File

@ -0,0 +1,31 @@
puts "TODO OCC12345 ALL: OCC267: Error"
puts "========"
puts "OCC267"
puts "========"
######################################################################
pload QAcommands
NewDocument D MDTV-Standard
file delete ${imagedir}/OCC267.std
catch { OCC267 D ${imagedir}/OCC267.std } status
set list [split ${status}]
set index [lsearch -exact ${list} "CDF_StoreStatus"]
if { ${index} == -1 } then {
puts "OCC267: Error"
puts ${status}
} else {
set CDF_StoreStatus [lindex ${list} [expr ${index} + 2] ]
if { ${CDF_StoreStatus} == "CDF_SS_OK" } then {
puts "OCC267: OK"
} else {
puts "OCC267: ERROR"
puts ${status}
puts "CDF_StoreStatus = ${CDF_StoreStatus}"
}
}

73
tests/bugs/caf/bug2932_10 Normal file
View File

@ -0,0 +1,73 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 8 (TDataStd_IntegerArray)
#######################################################################################
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
set From 1
set To 2
set IntegerArray1 3
set IntegerArray2 4
set isDelta 0
############################################
set Real1 300.
set Real2 400.
set modified_attribute TDataStd_Real
############################################
# Set TDataStd_IntegerArray
SetIntArray D ${Label} ${isDelta} ${From} ${To} ${IntegerArray1} ${IntegerArray2}
############################################
SetReal D ${Label} ${Real1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TDataStd_IntegerArray
SetIntArray D ${Label} ${isDelta} ${From} ${To} ${IntegerArray1} ${IntegerArray2}
############################################
# Set new value for TDataStd_Real
SetReal D ${Label} ${Real2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

70
tests/bugs/caf/bug2932_11 Normal file
View File

@ -0,0 +1,70 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 9 (TDataStd_Name)
#######################################################################################
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
set Name "New Name"
############################################
set Real1 300.
set Real2 400.
set modified_attribute TDataStd_Real
############################################
# Set TDataStd_Name
Label D ${Label}
SetName D ${Label} ${Name}
############################################
SetReal D ${Label} ${Real1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TDataStd_Name
SetName D ${Label} ${Name}
############################################
# Set new value for TDataStd_Real
SetReal D ${Label} ${Real2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

94
tests/bugs/caf/bug2932_12 Normal file
View File

@ -0,0 +1,94 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 10 (TDataStd_PatternStd)
#######################################################################################
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
# Create a box
set X 10
set Y 20
set Z 30
set DX 100
set DY 200
set DZ 300
box Box ${X} ${Y} ${Z} ${DX} ${DY} ${DZ}
# Set a shape to the label
set BoxLabel 0:3
SetShape D ${BoxLabel} Box
# Set a real attribute
set RealLabel 0:4
set RealPattern 123.456789
SetReal D ${RealLabel} ${RealPattern}
# Set an integer attribute
set IntegerLabel 0:5
set IntegerPattern 123456789
SetInteger D ${IntegerLabel} ${IntegerPattern}
# Set a signature
set signature 1
############################################
set Real1 300.
set Real2 400.
set modified_attribute TDataStd_Real
############################################
# Set TDataStd_PatternStd
Label D ${Label}
SetPattern D ${Label} ${signature} ${BoxLabel} ${RealLabel} ${IntegerLabel}
############################################
SetReal D ${Label} ${Real1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TDataStd_PatternStd
SetPattern D ${Label} ${signature} ${BoxLabel} ${RealLabel} ${IntegerLabel}
############################################
# Set new value for TDataStd_Real
SetReal D ${Label} ${Real2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

76
tests/bugs/caf/bug2932_13 Normal file
View File

@ -0,0 +1,76 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 11 (TDataStd_Plane)
#######################################################################################
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
# Create a plane
set X 10
set Y 20
set Z 30
set DX -1
set DY 0
set DZ 0
plane Plane ${X} ${Y} ${Z} ${DX} ${DY} ${DZ}
############################################
set Real1 300.
set Real2 400.
set modified_attribute TDataStd_Real
############################################
# Set TDataStd_Plane
SetPlane D ${Label} Plane
############################################
SetReal D ${Label} ${Real1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TDataStd_Plane
SetPlane D ${Label} Plane
############################################
# Set new value for TDataStd_Real
SetReal D ${Label} ${Real2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

73
tests/bugs/caf/bug2932_14 Normal file
View File

@ -0,0 +1,73 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 12 (TDataStd_Point)
#######################################################################################
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
# Create a point
set X 10
set Y 20
set Z 30
point Point ${X} ${Y} ${Z}
############################################
set Real1 300.
set Real2 400.
set modified_attribute TDataStd_Real
############################################
# Set TDataStd_Point
SetPoint D ${Label} Point
############################################
SetReal D ${Label} ${Real1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TDataStd_Point
SetPoint D ${Label} Point
############################################
# Set new value for TDataStd_Real
SetReal D ${Label} ${Real2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

69
tests/bugs/caf/bug2932_15 Normal file
View File

@ -0,0 +1,69 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 13 (TDataStd_Real)
#######################################################################################
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
set Real 100.
############################################
set Integer1 300
set Integer2 400
set modified_attribute TDataStd_Integer
############################################
# Set TDataStd_Real
SetReal D ${Label} ${Real}
############################################
SetInteger D ${Label} ${Integer1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TDataStd_Real
SetReal D ${Label} ${Real}
############################################
# Set new value for TDataStd_Integer
SetInteger D ${Label} ${Integer2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

73
tests/bugs/caf/bug2932_16 Normal file
View File

@ -0,0 +1,73 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 14 (TDataStd_RealArray)
#######################################################################################
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
set From 1
set To 2
set RealArray1 3.
set RealArray2 4.
set isDelta 0
############################################
set Real1 300.
set Real2 400.
set modified_attribute TDataStd_Real
############################################
# Set TDataStd_RealArray
SetRealArray D ${Label} ${isDelta} ${From} ${To} ${RealArray1} ${RealArray2}
############################################
SetReal D ${Label} ${Real1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TDataStd_RealArray
SetRealArray D ${Label} ${isDelta} ${From} ${To} ${RealArray1} ${RealArray2}
############################################
# Set new value for TDataStd_Real
SetReal D ${Label} ${Real2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

71
tests/bugs/caf/bug2932_17 Normal file
View File

@ -0,0 +1,71 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 15 (TDataStd_Relation)
#######################################################################################
pload QAcommands
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
set Relation "New Relation"
############################################
set Real1 300.
set Real2 400.
set modified_attribute TDataStd_Real
############################################
# Set TDataStd_Relation
OCC2932_SetRelation D ${Label} ${Relation}
############################################
SetReal D ${Label} ${Real1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TDataStd_Relation
OCC2932_SetRelation D ${Label} ${Relation}
############################################
# Set new value for TDataStd_Real
SetReal D ${Label} ${Real2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

115
tests/bugs/caf/bug2932_18 Normal file
View File

@ -0,0 +1,115 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 16 (TDataStd_Shape)
#######################################################################################
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
# Create a box
set X 10
set Y 20
set Z 30
set DX 100
set DY 200
set DZ 300
box Box ${X} ${Y} ${Z} ${DX} ${DY} ${DZ}
############################################
set Real1 300.
set Real2 400.
set modified_attribute TDataStd_Real
############################################
# Set TDataStd_Shape
SetShape D ${Label} Box
############################################
SetReal D ${Label} ${Real1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TDataStd_Shape
SetShape D ${Label} Box
############################################
# Set new value for TDataStd_Real
SetReal D ${Label} ${Real2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
if { 1 == 2 } {
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}
}
# NEW VERSION!!!!!
set ll [llength ${list}]
set good_length 20
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute1 [lindex ${list} [expr ${good_length} - 1]]
set name_attribute2 [lindex ${list} [expr ${good_length} - 4]]
set modified_attribute2 TNaming_NamedShape
puts "name_attribute1 = ${name_attribute1}"
puts "name_attribute2 = ${name_attribute2}"
puts "modified_attribute = ${modified_attribute}"
puts "modified_attribute2 = ${modified_attribute2}"
set Is_TDataStd_Real 0
set Is_TNaming_NamedShape 0
if {[string compare ${name_attribute1} ${modified_attribute}] == 0 ||
[string compare ${name_attribute2} ${modified_attribute}] == 0 } {
set Is_TDataStd_Real 1
}
if {[string compare ${name_attribute1} ${modified_attribute2}] == 0 ||
[string compare ${name_attribute2} ${modified_attribute2}] == 0 } {
set Is_TNaming_NamedShape 1
}
if { ${Is_TDataStd_Real} == 1 && ${Is_TNaming_NamedShape} == 1 } {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

73
tests/bugs/caf/bug2932_19 Normal file
View File

@ -0,0 +1,73 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 18 (TDataStd_Variable)
#######################################################################################
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
# Set isConstant
set isConstant 1
# Set a units
set units "kg/m3"
############################################
set Real1 300.
set Real2 400.
set modified_attribute TDataStd_Real
############################################
# Set TDataStd_Variable
SetVariable D ${Label} ${isConstant} ${units}
############################################
SetReal D ${Label} ${Real1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TDataStd_Variable
SetVariable D ${Label} ${isConstant} ${units}
############################################
# Set new value for TDataStd_Real
SetReal D ${Label} ${Real2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

70
tests/bugs/caf/bug2932_20 Normal file
View File

@ -0,0 +1,70 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 19 (TDF_Reference)
#######################################################################################
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
set Reference 0:3
############################################
set Real1 300.
set Real2 400.
set modified_attribute TDataStd_Real
############################################
# Set TDF_Reference
Label D ${Reference}
SetReference D ${Label} ${Reference}
############################################
SetReal D ${Label} ${Real1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TDF_Reference
SetReference D ${Label} ${Reference}
############################################
# Set new value for TDataStd_Real
SetReal D ${Label} ${Real2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

71
tests/bugs/caf/bug2932_21 Normal file
View File

@ -0,0 +1,71 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 20 (TDF_TagSource)
#######################################################################################
pload QAcommands
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
set Tag 5
############################################
set Real1 300.
set Real2 400.
set modified_attribute TDataStd_Real
############################################
# Set TDF_TagSource
OCC2932_SetTag D ${Label} ${Tag}
############################################
SetReal D ${Label} ${Real1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TDF_TagSource
OCC2932_SetTag D ${Label} ${Tag}
############################################
# Set new value for TDataStd_Real
SetReal D ${Label} ${Real2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

73
tests/bugs/caf/bug2932_22 Normal file
View File

@ -0,0 +1,73 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 21 (TFunction_Function)
#######################################################################################
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
# Set a driver guid
set driverGuid "5b35ca00-5b78-11d1-8940-080009dc3333"
# Set a failure
set failureNb 13
############################################
set Real1 300.
set Real2 400.
set modified_attribute TDataStd_Real
############################################
# Set TFunction_Function
SetFunction D ${Label} ${driverGuid} ${failureNb}
############################################
SetReal D ${Label} ${Real1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TFunction_Function
SetFunction D ${Label} ${driverGuid} ${failureNb}
############################################
# Set new value for TDataStd_Real
SetReal D ${Label} ${Real2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

69
tests/bugs/caf/bug2932_23 Normal file
View File

@ -0,0 +1,69 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 22 (TPrsStd_AISPresentation)
#######################################################################################
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
Label D ${Label}
############################################
set Real1 300.
set Real2 400.
set modified_attribute TDataStd_Real
############################################
# Set TPrsStd_AISPresentation
AISSet D ${Label} NS
############################################
SetReal D ${Label} ${Real1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TPrsStd_AISPresentation
AISSet D ${Label} NS
############################################
# Set new value for TDataStd_Real
SetReal D ${Label} ${Real2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

72
tests/bugs/caf/bug2932_24 Normal file
View File

@ -0,0 +1,72 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 23 (TPrsStd_Position)
#######################################################################################
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
# Set a coordinates
set X 123.456
set Y 789.012
set Z 345.678
############################################
set Real1 300.
set Real2 400.
set modified_attribute TDataStd_Real
############################################
# Set TPrsStd_Position
SetPosition D ${Label} ${X} ${Y} ${Z}
############################################
SetReal D ${Label} ${Real1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TPrsStd_Position
SetPosition D ${Label} ${X} ${Y} ${Z}
############################################
# Set new value for TDataStd_Real
SetReal D ${Label} ${Real2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

75
tests/bugs/caf/bug2932_3 Normal file
View File

@ -0,0 +1,75 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 1 (TDataStd_Axis)
#######################################################################################
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
set X 10
set Y 20
set Z 30
set DX 100
set DY 200
set DZ 300
line Line ${X} ${Y} ${Z} ${DX} ${DY} ${DZ}
############################################
set Real1 300.
set Real2 400.
set modified_attribute TDataStd_Real
############################################
# Set TDataStd_Axis
SetAxis D ${Label} Line
############################################
SetReal D ${Label} ${Real1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TDataStd_Axis
SetAxis D ${Label} Line
############################################
# Set new value for TDataStd_Real
SetReal D ${Label} ${Real2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

69
tests/bugs/caf/bug2932_4 Normal file
View File

@ -0,0 +1,69 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 2 (TDataStd_Comment)
#######################################################################################
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
set Comment "New Comment"
############################################
set Real1 300.
set Real2 400.
set modified_attribute TDataStd_Real
############################################
# Set TDataStd_Comment
SetComment D ${Label} ${Comment}
############################################
SetReal D ${Label} ${Real1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TDataStd_Comment
SetComment D ${Label} ${Comment}
############################################
# Set new value for TDataStd_Real
SetReal D ${Label} ${Real2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

91
tests/bugs/caf/bug2932_5 Normal file
View File

@ -0,0 +1,91 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 3 (TDataStd_Constraint)
#######################################################################################
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
# Create a box
set X 10
set Y 20
set Z 30
set DX 100
set DY 200
set DZ 300
box Box ${X} ${Y} ${Z} ${DX} ${DY} ${DZ}
# Set a shape to the label
set BoxLabel 0:3
SetShape D ${BoxLabel} Box
# Set integer attribute
set Integer 10
set IntegerLabel 0:4
SetInteger D ${IntegerLabel} ${Integer}
############################################
set Real1 300.
set Real2 400.
set modified_attribute TDataStd_Real
############################################
# Set TDataStd_Constraint
Label D ${Label}
SetConstraint D ${Label} "tan" ${BoxLabel}
SetConstraint D ${Label} "plane" ${BoxLabel}
SetConstraint D ${Label} "value" ${IntegerLabel}
############################################
SetReal D ${Label} ${Real1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TDataStd_Constraint
SetConstraint D ${Label} "tan" ${BoxLabel}
SetConstraint D ${Label} "plane" ${BoxLabel}
SetConstraint D ${Label} "value" ${IntegerLabel}
############################################
# Set new value for TDataStd_Real
SetReal D ${Label} ${Real2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

71
tests/bugs/caf/bug2932_6 Normal file
View File

@ -0,0 +1,71 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 4 (TDataStd_Current)
#######################################################################################
pload QAcommands
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
#
############################################
set Real1 300.
set Real2 400.
set modified_attribute TDataStd_Real
############################################
# Set TDataStd_Current
OCC2932_SetCurrent D ${Label}
############################################
SetReal D ${Label} ${Real1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TDataStd_Current
OCC2932_SetCurrent D ${Label}
############################################
# Set new value for TDataStd_Real
SetReal D ${Label} ${Real2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

70
tests/bugs/caf/bug2932_7 Normal file
View File

@ -0,0 +1,70 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 5 (TDataStd_Expression)
#######################################################################################
pload QAcommands
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
set Expression "New Expression"
############################################
set Real1 300.
set Real2 400.
set modified_attribute TDataStd_Real
############################################
OCC2932_SetExpression D ${Label} ${Expression}
############################################
SetReal D ${Label} ${Real1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TDataStd_Expression
OCC2932_SetExpression D ${Label} ${Expression}
############################################
# Set new value for TDataStd_Real
SetReal D ${Label} ${Real2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

116
tests/bugs/caf/bug2932_8 Normal file
View File

@ -0,0 +1,116 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 6 (TDataStd_Geometry)
#######################################################################################
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
# Create a box
set X 10
set Y 20
set Z 30
set DX 100
set DY 200
set DZ 300
box Box ${X} ${Y} ${Z} ${DX} ${DY} ${DZ}
############################################
set Real1 300.
set Real2 400.
set modified_attribute TDataStd_Real
############################################
# Set TDataStd_Geometry
Label D ${Label}
SetGeometry D ${Label} "pnt" ${Box}
############################################
SetReal D ${Label} ${Real1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TDataStd_Geometry
SetGeometry D ${Label} "pnt" ${Box}
############################################
# Set new value for TDataStd_Real
SetReal D ${Label} ${Real2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
if { 1 == 2 } {
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}
}
# NEW VERSION!!!!!
set ll [llength ${list}]
set good_length 20
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute1 [lindex ${list} [expr ${good_length} - 1]]
set name_attribute2 [lindex ${list} [expr ${good_length} - 4]]
set modified_attribute2 TNaming_NamedShape
puts "name_attribute1 = ${name_attribute1}"
puts "name_attribute2 = ${name_attribute2}"
puts "modified_attribute = ${modified_attribute}"
puts "modified_attribute2 = ${modified_attribute2}"
set Is_TDataStd_Real 0
set Is_TNaming_NamedShape 0
if {[string compare ${name_attribute1} ${modified_attribute}] == 0 ||
[string compare ${name_attribute2} ${modified_attribute}] == 0 } {
set Is_TDataStd_Real 1
}
if {[string compare ${name_attribute1} ${modified_attribute2}] == 0 ||
[string compare ${name_attribute2} ${modified_attribute2}] == 0 } {
set Is_TNaming_NamedShape 1
}
if { ${Is_TDataStd_Real} == 1 && ${Is_TNaming_NamedShape} == 1 } {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

69
tests/bugs/caf/bug2932_9 Normal file
View File

@ -0,0 +1,69 @@
puts "================"
puts "OCC2932"
puts "================"
puts ""
#######################################################################################
# Create Attribute Delta depending on actual change of the attribute
#######################################################################################
# Case 7 (TDataStd_Integer)
#######################################################################################
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100
# Create a label and set attributes
NewCommand D
set Label 0:2
############################################
set Integer 100
############################################
set Real1 300.
set Real2 400.
set modified_attribute TDataStd_Real
############################################
# Set TDataStd_Integer
SetInteger D ${Label} ${Integer}
############################################
SetReal D ${Label} ${Real1}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
############################################
# Set old value for TDataStd_Integer
SetInteger D ${Label} ${Integer}
############################################
# Set new value for TDataStd_Real
SetReal D ${Label} ${Real2}
set list [DumpCommand D]
# Open a transaction
NewCommand D
set list [DumpCommand D]
# Checking
set ll [llength ${list}]
set good_length 17
puts "length = ${ll}"
puts "good_length = ${good_length}"
if { ${ll} != ${good_length} } {
puts "OCC2932 Error (case 1)"
} else {
set name_attribute [lindex ${list} [expr ${good_length} - 1]]
puts "name_attribute = ${name_attribute}"
puts "modified_attribute = ${modified_attribute}"
if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
puts "OCC2932 OK"
} else {
puts "OCC2932 Error (case 2)"
}
}

30
tests/bugs/caf/bug644 Normal file
View File

@ -0,0 +1,30 @@
puts "================="
puts "OCC644"
puts "SAM1513"
puts "================="
puts ""
NewDocument D
UndoLimit D 10
NewCommand D
SetVariable D 0:1 0 mm
SetRelation D 0:2 x=10 0:1
NewCommand D
SetRelation D 0:2 x=20 0:1
NewCommand D
Undo D
Redo D
Undo D
set RelationList [DumpRelation D 0:2]
if {[llength ${RelationList}] <= 10} {
puts "OCC644: OK"
} else {
puts "OCC644: ERROR"
}

18
tests/bugs/fclasses/bug11568_3 Normal file
View File

@ -0,0 +1,18 @@
puts "============"
puts "OCC11568"
puts "============"
puts ""
#######################################################################
# UnitsAPI package uses incorrect symbol for minutes: mn instead of min
#######################################################################
set BugNumber OCC11568
set UnitString "min"
set result "Token word : min\n"
if { [unitparsing ${UnitString}] == ${result} } {
puts "${BugNumber}: OK"
} else {
puts "${BugNumber}: Faulty"
}

18
tests/bugs/fclasses/bug11568_4 Normal file
View File

@ -0,0 +1,18 @@
puts "============"
puts "OCC11568"
puts "============"
puts ""
#######################################################################
# UnitsAPI package uses incorrect symbol for minutes: mn instead of min
#######################################################################
set BugNumber OCC11568
set UnitString "min"
set result "result: 60\n"
if { [unitconvtoSI 1 ${UnitString}] == ${result} } {
puts "${BugNumber}: OK"
} else {
puts "${BugNumber}: Faulty"
}

8
tests/bugs/fclasses/bug142 Normal file
View File

@ -0,0 +1,8 @@
puts "========"
puts "OCC142"
puts "CSR888 (call 68539)"
puts "========"
pload QAcommands
OCC142

36
tests/bugs/fclasses/bug181_1 Normal file
View File

@ -0,0 +1,36 @@
puts "========"
puts "OCC181"
puts "OCC701"
puts "========"
######################################################
# Resource_Manager class doen't return status of saving resources in a file.
######################################################
# Add method BuildPath to OSD_Directory
######################################################
# Clear tmp-data
######################################################################
set tmp ${imagedir}
######################################################################
pload QAcommands
file delete ${tmp}/1/2/3/OCC181
file delete ${tmp}/1/2/OCC181
file delete ${tmp}/1/OCC181
file delete ${tmp}/1/2/3
file delete ${tmp}/1/2
file delete ${tmp}/1
set log [OCC181 OCC181 ${imagedir} ${tmp}/1 0]
set list [split ${log}]
set ll [llength ${list}]
set status [lindex ${list} [expr ${ll} - 2] ]
if { ${status} == "TRUE"} then {
puts "OCC181: OK"
} else {
puts "OCC181: Error"
}

38
tests/bugs/fclasses/bug181_2 Normal file
View File

@ -0,0 +1,38 @@
puts "TODO OCC12345 ALL: OCC181: Error"
puts "========"
puts "OCC181"
puts "OCC701"
puts "========"
######################################################
# Resource_Manager class doen't return status of saving resources in a file.
######################################################
# Add method BuildPath to OSD_Directory
######################################################
# Clear tmp-data
######################################################################
set tmp ${imagedir}
######################################################################
pload QAcommands
file delete ${tmp}/1/2/3/OCC181
file delete ${tmp}/1/2/OCC181
file delete ${tmp}/1/OCC181
file delete ${tmp}/1/2/3
file delete ${tmp}/1/2
file delete ${tmp}/1
set log [OCC181 OCC181 ${imagedir} ${tmp}/1/2/3 0]
set list [split ${log}]
set ll [llength ${list}]
set status [lindex ${list} [expr ${ll} - 2] ]
if { ${status} == "TRUE"} then {
puts "OCC181: OK"
} else {
puts "OCC181: Error"
}

7
tests/bugs/fclasses/bug216 Normal file
View File

@ -0,0 +1,7 @@
puts "========"
puts "OCC216"
puts "========"
pload QAcommands
OCC216

44
tests/bugs/fclasses/bug309 Normal file
View File

@ -0,0 +1,44 @@
puts "================"
puts "OCC309"
puts "================"
puts ""
pload QAcommands
set result [OCC309]
set ll [llength ${result}]
if { ${ll} != 2 } {
puts "result = ${result}"
puts "length = ${ll}"
puts "OCC309: ERROR 0"
} else {
set result1 [lindex ${result} 0]
set result2 [lindex ${result} 1]
set CurrentDirectory [pwd]
set UpTrek [file dirname ${CurrentDirectory}]
if { [string compare $tcl_platform(platform) "windows"] != 0} {
set res1 [ string range $result1 1 [expr [string length $result1] -3 ] ]
set res2 [ string range $result2 1 [expr [string length $result2] -3 ] ]
} else {
set res1 [ string range $result1 1 [expr [string length $result1] -2 ] ]
set res2 [ string range $result1 1 [expr [string length $result2] -8 ] ]
}
if {[string compare ${res1} "${CurrentDirectory}"] == 0} {
puts "OCC309: OK 1"
} else {
puts "result1 = ${result1}"
puts "res1 = ${res1}"
puts "CurrentDirectory = ${CurrentDirectory}"
puts "OCC309: ERROR 1"
}
if {[string compare ${res2} "${UpTrek}"] == 0} {
puts "OCC309: OK 2"
} else {
puts "result2 = ${result2}"
puts "res2 = ${res2}"
puts "UpTrek = ${UpTrek}"
puts "OCC309: ERROR 2"
}
}

35
tests/bugs/fclasses/bug310 Normal file
View File

@ -0,0 +1,35 @@
puts "================"
puts "OCC310"
puts "================"
puts ""
pload QAcommands
set result [OCC310]
set ll [llength ${result}]
if { ${ll} != 2 } {
puts "result = ${result}"
puts "length = ${ll}"
puts "OCC310: ERROR 0"
} else {
set result1 [lindex ${result} 0]
set result2 [lindex ${result} 1]
set Directory "|where|you|want|tmp|qwerty|tmp|"
set UpTrek "|where|you|want|tmp|qwerty|"
if {[string compare ${result1} "${Directory}"] == 0} {
puts "OCC310: OK 1"
} else {
puts "result1 = ${result1}"
puts "Directory = ${Directory}"
puts "OCC310: ERROR 1"
}
if {[string compare ${result2} "${UpTrek}"] == 0} {
puts "OCC310: OK 2"
} else {
puts "result2 = ${result2}"
puts "UpTrek = ${UpTrek}"
puts "OCC310: ERROR 2"
}
}

31
tests/bugs/fclasses/bug6143 Normal file
View File

@ -0,0 +1,31 @@
puts "================"
puts "OCC1723"
puts "OCC2707"
puts "OCC6143"
puts "OCC12131"
puts "================"
puts ""
#######################################################################################
# OSD::SetSignal : not all FLT exceptions are catched
# Various improvements of RINA LH3D-3H project
# Correct handling of exceptions on WNT
#######################################################################################
pload QAcommands
set BugNumber OCC6143
set OK_string "TestExcept: Successfull completion\n"
set IsDone [catch {set aResult [OCC6143]} result]
if { ${IsDone} != 0 } {
puts "result = ${result}"
puts "Faulty ${BugNumber}"
} else {
if { [string first ${OK_string} ${aResult} ] != -1 } {
puts "OK ${BugNumber}"
} else {
puts "Faulty ${BugNumber}"
}
}

24
tests/bugs/fclasses/bug983 Normal file
View File

@ -0,0 +1,24 @@
puts "================"
puts "OCC983"
puts "================"
puts ""
#######################################################################################
# LDOM xml parser does not take into account "&amp;" xml entity.
#######################################################################################
pload QAcommands
set list [OCC983 [locate_data_file OCC983.xml]]
if { [regexp "Document parsed" $list] == 1 } {
if {[lsearch -exact ${list} "&View"] != -1 } {
puts "OCC983: OK"
} elseif {[lsearch -exact ${list} "&amp;View"] != 0 } {
puts "OCC983: Error"
} else {
puts "OCC983: Error ; bad input file."
}
} else {
puts "OCC983: Error ; document not parsed"
}

14
tests/bugs/iges/bug5079 Normal file
View File

@ -0,0 +1,14 @@
puts "================"
puts "OCC5079"
puts "================"
puts ""
#######################################################################################
# Exception in translating of IGES files
#######################################################################################
igesbrep [locate_data_file OCC5079.igs] a *
tpcompound result
checkshape result
set 2dviewer 0

16
tests/bugs/iges/bug6508 Normal file
View File

@ -0,0 +1,16 @@
puts "========"
puts "OCC6508"
puts "========"
puts ""
######################################################
# Reading invalid General Symbol entity from an IGES file causes an exception
######################################################
igesbrep [locate_data_file OCC6508.igs] a *
tpcompound result
checkshape result
set nb_f_good 192
set 2dviewer 0

23
tests/bugs/iges/bug663 Normal file
View File

@ -0,0 +1,23 @@
puts "========================"
puts "OCC663"
puts "========================"
#### Wrong translation of faces on SurfaceOfRevolution
puts ""
igesbrep [locate_data_file D44-11325-6.igs] a 2860
set x 62.5015115293408
set y -56.0926450759605
set z -44.3
vertex v $x $y $z
distmini d a_1 v
set MinDistList [dump d_val]
set MinDist [lindex $MinDistList end]
if {$MinDist > 1e-7} {
puts "Faulty OCC663"
} else {
puts "OCC663 OK"
}

59
tests/bugs/modalg/bug10160_1 Normal file
View File

@ -0,0 +1,59 @@
puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
puts "============"
puts "OCC10160"
puts "============"
puts ""
#######################################################################
# BOP perfomance improvemen
#######################################################################
set BugNumber OCC10160
restore [locate_data_file OCC10160-1.brep] b1
restore [locate_data_file OCC10160-2.brep] b2
set NbTests 3
dchrono h0 reset
dchrono h0 start
bop b1 b2
dchrono h0 stop
set CPU_time0_List [dchrono h0 show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
puts "CPU_user_time0=${CPU_user_time0}"
puts "Start boolean operation ..."
dchrono h reset; dchrono h start
#
# BOOLEAN OPERATION ----- START
#
for {set i 1} {$i <= ${NbTests}} {incr i} {
bopcommon result
}
#
# BOOLEAN OPERATION ----- FINISH
#
dchrono h stop; set CPU_time_List [dchrono h show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
puts "Finish boolean operation ..."
puts "CPU_user_time=${CPU_user_time}"
set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
puts "CPU_user_time=${CPU_user_time}"
set square 1.30062e+07
# Analysis of "nbshapes res"
set nb_v_good 20
set nb_e_good 28
set nb_w_good 16
set nb_f_good 15
set nb_sh_good 3
set nb_sol_good 3
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 86
set 2dviewer 0

54
tests/bugs/modalg/bug10160_10 Normal file
View File

@ -0,0 +1,54 @@
puts "============"
puts "OCC10160"
puts "============"
puts ""
#######################################################################
# BOP perfomance improvemen
#######################################################################
set BugNumber OCC10160
restore [locate_data_file OCC10160-2.brep] b1
restore [locate_data_file OCC10160-3.brep] b2
set NbTests 3
puts "Prepare boolean operation ..."
dchrono h0 reset; dchrono h0 start
bop b1 b2
dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
puts "CPU_user_time0=${CPU_user_time0}"
puts "Start boolean operation ..."
dchrono h reset; dchrono h start
#
# BOOLEAN OPERATION ----- START
#
for {set i 1} {$i <= ${NbTests}} {incr i} {
bopfuse result
}
#
# BOOLEAN OPERATION ----- FINISH
#
dchrono h stop; set CPU_time_List [dchrono h show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
puts "Finish boolean operation ..."
puts "CPU_user_time=${CPU_user_time}"
set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
puts "CPU_user_time=${CPU_user_time}"
set square 3.20326e+07
# Analysis of "nbshapes res"
set nb_v_good 116
set nb_e_good 173
set nb_w_good 67
set nb_f_good 63
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 422
set 2dviewer 0

54
tests/bugs/modalg/bug10160_11 Normal file
View File

@ -0,0 +1,54 @@
puts "============"
puts "OCC10160"
puts "============"
puts ""
#######################################################################
# BOP perfomance improvemen
#######################################################################
set BugNumber OCC10160
restore [locate_data_file OCC10160-2.brep] b1
restore [locate_data_file OCC10160-3.brep] b2
set NbTests 3
puts "Prepare boolean operation ..."
dchrono h0 reset; dchrono h0 start
bop b1 b2
dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
puts "CPU_user_time0=${CPU_user_time0}"
puts "Start boolean operation ..."
dchrono h reset; dchrono h start
#
# BOOLEAN OPERATION ----- START
#
for {set i 1} {$i <= ${NbTests}} {incr i} {
bopcut result
}
#
# BOOLEAN OPERATION ----- FINISH
#
dchrono h stop; set CPU_time_List [dchrono h show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
puts "Finish boolean operation ..."
puts "CPU_user_time=${CPU_user_time}"
set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
puts "CPU_user_time=${CPU_user_time}"
set square 3.05154e+07
# Analysis of "nbshapes res"
set nb_v_good 96
set nb_e_good 143
set nb_w_good 51
set nb_f_good 48
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 341
set 2dviewer 0

54
tests/bugs/modalg/bug10160_12 Normal file
View File

@ -0,0 +1,54 @@
puts "============"
puts "OCC10160"
puts "============"
puts ""
#######################################################################
# BOP perfomance improvemen
#######################################################################
set BugNumber OCC10160
restore [locate_data_file OCC10160-2.brep] b1
restore [locate_data_file OCC10160-3.brep] b2
set NbTests 3
puts "Prepare boolean operation ..."
dchrono h0 reset; dchrono h0 start
bop b1 b2
dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
puts "CPU_user_time0=${CPU_user_time0}"
puts "Start boolean operation ..."
dchrono h reset; dchrono h start
#
# BOOLEAN OPERATION ----- START
#
for {set i 1} {$i <= ${NbTests}} {incr i} {
boptuc result
}
#
# BOOLEAN OPERATION ----- FINISH
#
dchrono h stop; set CPU_time_List [dchrono h show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
puts "Finish boolean operation ..."
puts "CPU_user_time=${CPU_user_time}"
set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
puts "CPU_user_time=${CPU_user_time}"
set square 6.38359e+06
# Analysis of "nbshapes res"
set nb_v_good 108
set nb_e_good 161
set nb_w_good 61
set nb_f_good 60
set nb_sh_good 3
set nb_sol_good 3
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 397
set 2dviewer 0

57
tests/bugs/modalg/bug10160_2 Normal file
View File

@ -0,0 +1,57 @@
puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
puts "============"
puts "OCC10160"
puts "============"
puts ""
#######################################################################
# BOP perfomance improvemen
#######################################################################
set BugNumber OCC10160
restore [locate_data_file OCC10160-1.brep] b1
restore [locate_data_file OCC10160-2.brep] b2
set NbTests 3
puts "Prepare boolean operation ..."
dchrono h0 reset; dchrono h0 start
bop b1 b2
dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
puts "CPU_user_time0=${CPU_user_time0}"
puts "Start boolean operation ..."
dchrono h reset; dchrono h start
#
# BOOLEAN OPERATION ----- START
#
for {set i 1} {$i <= ${NbTests}} {incr i} {
bopfuse result
}
#
# BOOLEAN OPERATION ----- FINISH
#
dchrono h stop; set CPU_time_List [dchrono h show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
puts "Finish boolean operation ..."
puts "CPU_user_time=${CPU_user_time}"
set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
puts "CPU_user_time=${CPU_user_time}"
set square 4.75218e+07
# Analysis of "nbshapes res"
set nb_v_good 32
set nb_e_good 60
set nb_w_good 32
set nb_f_good 29
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 156
set 2dviewer 0

56
tests/bugs/modalg/bug10160_3 Normal file
View File

@ -0,0 +1,56 @@
puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
puts "TODO OCC11111 ALL: Error : The square of result shape is"
puts "============"
puts "OCC10160"
puts "============"
puts ""
#######################################################################
# BOP perfomance improvemen
#######################################################################
set BugNumber OCC10160
restore [locate_data_file OCC10160-1.brep] b1
restore [locate_data_file OCC10160-2.brep] b2
set NbTests 3
puts "Prepare boolean operation ..."
dchrono h0 reset; dchrono h0 start
bop b1 b2
dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
puts "CPU_user_time0=${CPU_user_time0}"
puts "Start boolean operation ..."
dchrono h reset; dchrono h start
#
# BOOLEAN OPERATION ----- START
#
for {set i 1} {$i <= ${NbTests}} {incr i} {
bopcut result
}
#
# BOOLEAN OPERATION ----- FINISH
#
dchrono h stop; set CPU_time_List [dchrono h show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
puts "Finish boolean operation ..."
puts "CPU_user_time=${CPU_user_time}"
set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
puts "CPU_user_time=${CPU_user_time}"
set square 2.36194e+07
# Analysis of "nbshapes res"
set nb_v_good 24
set nb_e_good 34
set nb_w_good 20
set nb_f_good 19
set nb_sh_good 4
set nb_sol_good 4
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 106
set 2dviewer 0

56
tests/bugs/modalg/bug10160_4 Normal file
View File

@ -0,0 +1,56 @@
puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
puts "============"
puts "OCC10160"
puts "============"
puts ""
#######################################################################
# BOP perfomance improvemen
#######################################################################
set BugNumber OCC10160
restore [locate_data_file OCC10160-1.brep] b1
restore [locate_data_file OCC10160-2.brep] b2
set NbTests 3
puts "Prepare boolean operation ..."
dchrono h0 reset; dchrono h0 start
bop b1 b2
dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
puts "CPU_user_time0=${CPU_user_time0}"
puts "Start boolean operation ..."
dchrono h reset; dchrono h start
#
# BOOLEAN OPERATION ----- START
#
for {set i 1} {$i <= ${NbTests}} {incr i} {
boptuc result
}
#
# BOOLEAN OPERATION ----- FINISH
#
dchrono h stop; set CPU_time_List [dchrono h show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
puts "Finish boolean operation ..."
puts "CPU_user_time=${CPU_user_time}"
set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
puts "CPU_user_time=${CPU_user_time}"
set square 3.56087e+07
# Analysis of "nbshapes res"
set nb_v_good 24
set nb_e_good 34
set nb_w_good 20
set nb_f_good 17
set nb_sh_good 3
set nb_sol_good 3
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 102
set 2dviewer 0

55
tests/bugs/modalg/bug10160_5 Normal file
View File

@ -0,0 +1,55 @@
puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
puts "============"
puts "OCC10160"
puts "============"
puts ""
#######################################################################
# BOP perfomance improvemen
#######################################################################
set BugNumber OCC10160
restore [locate_data_file OCC10160-1.brep] b1
restore [locate_data_file OCC10160-3.brep] b2
set NbTests 3
puts "Prepare boolean operation ..."
dchrono h0 reset; dchrono h0 start
bop b1 b2
dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
puts "CPU_user_time0=${CPU_user_time0}"
puts "Start boolean operation ..."
dchrono h reset; dchrono h start
#
# BOOLEAN OPERATION ----- START
#
for {set i 1} {$i <= ${NbTests}} {incr i} {
bopcommon result
}
#
# BOOLEAN OPERATION ----- FINISH
#
dchrono h stop; set CPU_time_List [dchrono h show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
puts "Finish boolean operation ..."
puts "CPU_user_time=${CPU_user_time}"
set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
puts "CPU_user_time=${CPU_user_time}"
set square 782201
# Analysis of "nbshapes res"
set nb_v_good 53
set nb_e_good 75
set nb_w_good 38
set nb_f_good 34
set nb_sh_good 6
set nb_sol_good 6
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 213
set 2dviewer 0

57
tests/bugs/modalg/bug10160_6 Normal file
View File

@ -0,0 +1,57 @@
puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
puts "============"
puts "OCC10160"
puts "============"
puts ""
#######################################################################
# BOP perfomance improvemen
#######################################################################
set BugNumber OCC10160
restore [locate_data_file OCC10160-1.brep] b1
restore [locate_data_file OCC10160-3.brep] b2
set NbTests 3
puts "Prepare boolean operation ..."
dchrono h0 reset; dchrono h0 start
bop b1 b2
dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
puts "CPU_user_time0=${CPU_user_time0}"
puts "Start boolean operation ..."
dchrono h reset; dchrono h start
#
# BOOLEAN OPERATION ----- START
#
for {set i 1} {$i <= ${NbTests}} {incr i} {
bopfuse result
}
#
# BOOLEAN OPERATION ----- FINISH
#
dchrono h stop; set CPU_time_List [dchrono h show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
puts "Finish boolean operation ..."
puts "CPU_user_time=${CPU_user_time}"
set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
puts "CPU_user_time=${CPU_user_time}"
set square 3.61484e+07
# Analysis of "nbshapes res"
set nb_v_good 121
set nb_e_good 178
set nb_w_good 65
set nb_f_good 59
set nb_sh_good 3
set nb_sol_good 2
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 429
set 2dviewer 0

56
tests/bugs/modalg/bug10160_7 Normal file
View File

@ -0,0 +1,56 @@
puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
puts "============"
puts "OCC10160"
puts "============"
puts ""
#######################################################################
# BOP perfomance improvemen
#######################################################################
set BugNumber OCC10160
restore [locate_data_file OCC10160-1.brep] b1
restore [locate_data_file OCC10160-3.brep] b2
set NbTests 3
puts "Prepare boolean operation ..."
dchrono h0 reset; dchrono h0 start
bop b1 b2
dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
puts "CPU_user_time0=${CPU_user_time0}"
puts "Start boolean operation ..."
dchrono h reset; dchrono h start
#
# BOOLEAN OPERATION ----- START
#
for {set i 1} {$i <= ${NbTests}} {incr i} {
bopcut result
}
#
# BOOLEAN OPERATION ----- FINISH
#
dchrono h stop; set CPU_time_List [dchrono h show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
puts "Finish boolean operation ..."
puts "CPU_user_time=${CPU_user_time}"
set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
puts "CPU_user_time=${CPU_user_time}"
set square 3.00597e+07
# Analysis of "nbshapes res"
set nb_v_good 61
set nb_e_good 87
set nb_w_good 44
set nb_f_good 36
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 231
set 2dviewer 0

55
tests/bugs/modalg/bug10160_8 Normal file
View File

@ -0,0 +1,55 @@
puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
puts "============"
puts "OCC10160"
puts "============"
puts ""
#######################################################################
# BOP perfomance improvemen
#######################################################################
set BugNumber OCC10160
restore [locate_data_file OCC10160-1.brep] b1
restore [locate_data_file OCC10160-3.brep] b2
set NbTests 3
puts "Prepare boolean operation ..."
dchrono h0 reset; dchrono h0 start
bop b1 b2
dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
puts "CPU_user_time0=${CPU_user_time0}"
puts "Start boolean operation ..."
dchrono h reset; dchrono h start
#
# BOOLEAN OPERATION ----- START
#
for {set i 1} {$i <= ${NbTests}} {incr i} {
boptuc result
}
#
# BOOLEAN OPERATION ----- FINISH
#
dchrono h stop; set CPU_time_List [dchrono h show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
puts "Finish boolean operation ..."
puts "CPU_user_time=${CPU_user_time}"
set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
puts "CPU_user_time=${CPU_user_time}"
set square 6.87093e+06
# Analysis of "nbshapes res"
set nb_v_good 113
set nb_e_good 166
set nb_w_good 59
set nb_f_good 57
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 398
set 2dviewer 0

54
tests/bugs/modalg/bug10160_9 Normal file
View File

@ -0,0 +1,54 @@
puts "============"
puts "OCC10160"
puts "============"
puts ""
#######################################################################
# BOP perfomance improvemen
#######################################################################
set BugNumber OCC10160
restore [locate_data_file OCC10160-2.brep] b1
restore [locate_data_file OCC10160-3.brep] b2
set NbTests 3
puts "Prepare boolean operation ..."
dchrono h0 reset; dchrono h0 start
bop b1 b2
dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
puts "CPU_user_time0=${CPU_user_time0}"
puts "Start boolean operation ..."
dchrono h reset; dchrono h start
#
# BOOLEAN OPERATION ----- START
#
for {set i 1} {$i <= ${NbTests}} {incr i} {
bopcommon result
}
#
# BOOLEAN OPERATION ----- FINISH
#
dchrono h stop; set CPU_time_List [dchrono h show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
puts "Finish boolean operation ..."
puts "CPU_user_time=${CPU_user_time}"
set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
puts "CPU_user_time=${CPU_user_time}"
set square 4.86635e+06
# Analysis of "nbshapes res"
set nb_v_good 88
set nb_e_good 131
set nb_w_good 45
set nb_f_good 45
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 312
set 2dviewer 0

38
tests/bugs/modalg/bug10232 Normal file
View File

@ -0,0 +1,38 @@
puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
puts "============"
puts "OCC10232"
puts "============"
puts ""
#######################################################################
# Exception "Segmentation violation" in Boolean Operations
#######################################################################
set BugNumber OCC10232
puts "Load first shape ..."
restore [locate_data_file OCC10232_ms1.brep] b1
puts "Load second shape ..."
restore [locate_data_file OCC10232_ms2.brep] b2
puts "Prepare boolean operation ..."
bop b1 b2
puts "Start boolean operation ..."
bopsection result
puts "Finish boolean operation ..."
set length 3210.71
set nb_v_good 1197
set nb_e_good 1182
set nb_w_good 0
set nb_f_good 0
set nb_sh_good 0
set nb_sol_good 0
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 2380
set 2dviewer 1

38
tests/bugs/modalg/bug10435_1 Normal file
View File

@ -0,0 +1,38 @@
puts "============"
puts "OCC10435"
puts "============"
puts ""
#######################################################################
# error in fillet after Cut of torus from box
#######################################################################
set BugNumber OCC10435
restore [locate_data_file OCC10435.brep] a
checkshape a
explode a e
set radius 5.
if { [catch {fillet result a ${radius} a_10 ${radius} a_15 ${radius} a_16 } catch_result] } {
puts "Faulty ${BugNumber} exception (case 1): Fillet operation fails on given shape "
} else {
puts "${BugNumber} (case 1) OK: Fillet operation was made"
set square 36455.2
# Analysis of "nbshapes res"
set nb_v_good 12
set nb_e_good 19
set nb_w_good 11
set nb_f_good 10
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 55
}
set 2dviewer 0

34
tests/bugs/modalg/bug10435_2 Normal file
View File

@ -0,0 +1,34 @@
puts "============"
puts "OCC10435"
puts "============"
puts ""
#######################################################################
# error in fillet after Cut of torus from box
#######################################################################
set BugNumber OCC10435
puts "Load shape ..."
restore [locate_data_file OCC10435.brep] b1
explode b1 e
puts "Start fillet ..."
fillet result b1 5 b1_15 5 b1_16 5 b1_10
puts "Finish fillet ..."
set square 36455.2
# Analysis of "nbshapes res"
set nb_v_good 12
set nb_e_good 19
set nb_w_good 11
set nb_f_good 10
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 55
set 2dviewer 1

34
tests/bugs/modalg/bug10605_1 Normal file
View File

@ -0,0 +1,34 @@
puts "============"
puts "OCC10605"
puts "============"
puts ""
#######################################################################
# Fuse Fails
#######################################################################
set BugNumber OCC10605
restore [locate_data_file OCC10605-1.brep] b1
restore [locate_data_file OCC10605-3.brep] b2
puts "Prepare boolean operation ..."
bop b1 b2
puts "Start boolean operation ..."
bopcommon result
puts "Finish boolean operation ..."
set square 233.798
# Analysis of "nbshapes res"
set nb_v_good 10
set nb_e_good 15
set nb_w_good 7
set nb_f_good 7
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 42
set 2dviewer 0

34
tests/bugs/modalg/bug10605_2 Normal file
View File

@ -0,0 +1,34 @@
puts "============"
puts "OCC10605"
puts "============"
puts ""
#######################################################################
# Fuse Fails
#######################################################################
set BugNumber OCC10605
restore [locate_data_file OCC10605-1.brep] b1
restore [locate_data_file OCC10605-3.brep] b2
puts "Prepare boolean operation ..."
bop b1 b2
puts "Start boolean operation ..."
bopfuse result
puts "Finish boolean operation ..."
set square 838.752
# Analysis of "nbshapes res"
set nb_v_good 15
set nb_e_good 22
set nb_w_good 10
set nb_f_good 9
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 59
set 2dviewer 0

34
tests/bugs/modalg/bug10605_3 Normal file
View File

@ -0,0 +1,34 @@
puts "============"
puts "OCC10605"
puts "============"
puts ""
#######################################################################
# Fuse Fails
#######################################################################
set BugNumber OCC10605
restore [locate_data_file OCC10605-1.brep] b1
restore [locate_data_file OCC10605-3.brep] b2
puts "Prepare boolean operation ..."
bop b1 b2
puts "Start boolean operation ..."
bopcut result
puts "Finish boolean operation ..."
set square 779.887
# Analysis of "nbshapes res"
set nb_v_good 13
set nb_e_good 19
set nb_w_good 8
set nb_f_good 7
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 50
set 2dviewer 0

34
tests/bugs/modalg/bug10605_4 Normal file
View File

@ -0,0 +1,34 @@
puts "============"
puts "OCC10605"
puts "============"
puts ""
#######################################################################
# Fuse Fails
#######################################################################
set BugNumber OCC10605
restore [locate_data_file OCC10605-1.brep] b1
restore [locate_data_file OCC10605-3.brep] b2
puts "Prepare boolean operation ..."
bop b1 b2
puts "Start boolean operation ..."
boptuc result
puts "Finish boolean operation ..."
set square 292.663
# Analysis of "nbshapes res"
set nb_v_good 12
set nb_e_good 18
set nb_w_good 9
set nb_f_good 9
set nb_sh_good 2
set nb_sol_good 2
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 53
set 2dviewer 0

33
tests/bugs/modalg/bug10605_5 Normal file
View File

@ -0,0 +1,33 @@
puts "============"
puts "OCC10605"
puts "============"
puts ""
#######################################################################
# Fuse Fails
#######################################################################
set BugNumber OCC10605
restore [locate_data_file OCC10605-1.brep] b1
restore [locate_data_file OCC10605-3.brep] b2
puts "Prepare boolean operation ..."
bop b1 b2
puts "Start boolean operation ..."
bopsection result b1 b2
puts "Finish boolean operation ..."
set length 59.8334
# Analysis of "nbshapes res"
set nb_v_good 9
set nb_e_good 9
set nb_w_good 0
set nb_f_good 0
set nb_sh_good 0
set nb_sol_good 0
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 19
set 2dviewer 0

34
tests/bugs/modalg/bug10606_1 Normal file
View File

@ -0,0 +1,34 @@
puts "============"
puts "OCC10606"
puts "============"
puts ""
#######################################################################
# Fuse Fails
#######################################################################
set BugNumber OCC10606
restore [locate_data_file OCC10604-1.brep] b1
restore [locate_data_file OCC10606-2.brep] b2
puts "Prepare boolean operation ..."
bop b1 b2
puts "Start boolean operation ..."
bopcommon result
puts "Finish boolean operation ..."
set square 66.672
# Analysis of "nbshapes res"
set nb_v_good 6
set nb_e_good 8
set nb_w_good 2
set nb_f_good 2
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 21
set 2dviewer 0

34
tests/bugs/modalg/bug10606_2 Normal file
View File

@ -0,0 +1,34 @@
puts "============"
puts "OCC10606"
puts "============"
puts ""
#######################################################################
# Fuse Fails
#######################################################################
set BugNumber OCC10606
restore [locate_data_file OCC10604-1.brep] b1
restore [locate_data_file OCC10606-2.brep] b2
puts "Prepare boolean operation ..."
bop b1 b2
puts "Start boolean operation ..."
bopfuse result
puts "Finish boolean operation ..."
set square 1450.22
# Analysis of "nbshapes res"
set nb_v_good 6
set nb_e_good 8
set nb_w_good 4
set nb_f_good 4
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 25
set 2dviewer 0

34
tests/bugs/modalg/bug10606_3 Normal file
View File

@ -0,0 +1,34 @@
puts "============"
puts "OCC10606"
puts "============"
puts ""
#######################################################################
# Fuse Fails
#######################################################################
set BugNumber OCC10606
restore [locate_data_file OCC10604-1.brep] b1
restore [locate_data_file OCC10606-2.brep] b2
puts "Prepare boolean operation ..."
bop b1 b2
puts "Start boolean operation ..."
bopcut result
puts "Finish boolean operation ..."
set square 761.355
# Analysis of "nbshapes res"
set nb_v_good 6
set nb_e_good 8
set nb_w_good 3
set nb_f_good 3
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 23
set 2dviewer 0

34
tests/bugs/modalg/bug10606_4 Normal file
View File

@ -0,0 +1,34 @@
puts "============"
puts "OCC10606"
puts "============"
puts ""
#######################################################################
# Fuse Fails
#######################################################################
set BugNumber OCC10606
restore [locate_data_file OCC10604-1.brep] b1
restore [locate_data_file OCC10606-2.brep] b2
puts "Prepare boolean operation ..."
bop b1 b2
puts "Start boolean operation ..."
boptuc result
puts "Finish boolean operation ..."
set square 755.54
# Analysis of "nbshapes res"
set nb_v_good 6
set nb_e_good 8
set nb_w_good 3
set nb_f_good 3
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 23
set 2dviewer 0

34
tests/bugs/modalg/bug10606_5 Normal file
View File

@ -0,0 +1,34 @@
puts "============"
puts "OCC10606"
puts "============"
puts ""
#######################################################################
# Fuse Fails
#######################################################################
set BugNumber OCC10606
restore [locate_data_file OCC10604-1.brep] b1
restore [locate_data_file OCC10606-2.brep] b2
puts "Prepare boolean operation ..."
bop b1 b2
puts "Start boolean operation ..."
bopsection result b1 b2
puts "Finish boolean operation ..."
set length 18.3861
# Analysis of "nbshapes res"
set nb_v_good 4
set nb_e_good 4
set nb_w_good 0
set nb_f_good 0
set nb_sh_good 0
set nb_sol_good 0
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 9
set 2dviewer 0

16
tests/bugs/modalg/bug1077 Normal file
View File

@ -0,0 +1,16 @@
pload QAcommands
puts "============"
puts "OCC1077"
puts "============"
puts ""
######################################################
# BUG in boolean operations in the development version
######################################################
if { [catch { OCC1077 result } catch_result] } {
puts "Faulty OCC1077"
}
set square 587.181
set 3dviewer 1

36
tests/bugs/modalg/bug10842_1 Normal file
View File

@ -0,0 +1,36 @@
puts "TODO OCC111111 ALL: Error : Result shape is WRONG"
puts "============"
puts "OCC10842"
puts "============"
puts ""
#######################################################################
# Bug in Bop
#######################################################################
set BugNumber OCC10842
restore [locate_data_file OCC10842-1.brep] b1
restore [locate_data_file OCC10842-2.brep] b2
puts "Prepare boolean operation ..."
bop b1 b2
puts "Start boolean operation ..."
bopcommon result
puts "Finish boolean operation ..."
set square 2312.93
# Analysis of "nbshapes res"
set nb_v_good 7
set nb_e_good 9
set nb_w_good 4
set nb_f_good 4
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 27
set 2dviewer 0

36
tests/bugs/modalg/bug10842_2 Normal file
View File

@ -0,0 +1,36 @@
puts "TODO OCC111111 ALL: Error : Result shape is WRONG"
puts "============"
puts "OCC10842"
puts "============"
puts ""
#######################################################################
# Bug in Bop
#######################################################################
set BugNumber OCC10842
restore [locate_data_file OCC10842-1.brep] b1
restore [locate_data_file OCC10842-2.brep] b2
puts "Prepare boolean operation ..."
bop b1 b2
puts "Start boolean operation ..."
bopfuse result
puts "Finish boolean operation ..."
set square 27919.7
# Analysis of "nbshapes res"
set nb_v_good 15
set nb_e_good 21
set nb_w_good 7
set nb_f_good 6
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 52
set 2dviewer 0

36
tests/bugs/modalg/bug10842_3 Normal file
View File

@ -0,0 +1,36 @@
puts "TODO OCC111111 ALL: Error : Result shape is WRONG"
puts "============"
puts "OCC10842"
puts "============"
puts ""
#######################################################################
# Bug in Bop
#######################################################################
set BugNumber OCC10842
restore [locate_data_file OCC10842-1.brep] b1
restore [locate_data_file OCC10842-2.brep] b2
puts "Prepare boolean operation ..."
bop b1 b2
puts "Start boolean operation ..."
bopcut result
puts "Finish boolean operation ..."
set square 18757.7
# Analysis of "nbshapes res"
set nb_v_good 13
set nb_e_good 18
set nb_w_good 6
set nb_f_good 6
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 46
set 2dviewer 0

36
tests/bugs/modalg/bug10842_4 Normal file
View File

@ -0,0 +1,36 @@
puts "TODO OCC111111 ALL: Error : Result shape is WRONG"
puts "============"
puts "OCC10842"
puts "============"
puts ""
#######################################################################
# Bug in Bop
#######################################################################
set BugNumber OCC10842
restore [locate_data_file OCC10842-1.brep] b1
restore [locate_data_file OCC10842-2.brep] b2
puts "Prepare boolean operation ..."
bop b1 b2
puts "Start boolean operation ..."
boptuc result
puts "Finish boolean operation ..."
set square 11475
# Analysis of "nbshapes res"
set nb_v_good 9
set nb_e_good 12
set nb_w_good 5
set nb_f_good 4
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 33
set 2dviewer 0

34
tests/bugs/modalg/bug10842_5 Normal file
View File

@ -0,0 +1,34 @@
puts "============"
puts "OCC10842"
puts "============"
puts ""
#######################################################################
# Bug in Bop
#######################################################################
set BugNumber OCC10842
restore [locate_data_file OCC10842-1.brep] b1
restore [locate_data_file OCC10842-2.brep] b2
puts "Prepare boolean operation ..."
bop b1 b2
puts "Start boolean operation ..."
bopsection result b1 b2
puts "Finish boolean operation ..."
set length 122.816
# Analysis of "nbshapes res"
set nb_v_good 6
set nb_e_good 6
set nb_w_good 0
set nb_f_good 0
set nb_sh_good 0
set nb_sol_good 0
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 13
set 2dviewer 0

34
tests/bugs/modalg/bug10846_1 Normal file
View File

@ -0,0 +1,34 @@
puts "============"
puts "OCC10846"
puts "============"
puts ""
#######################################################################
# Cut operation produces invalid result
#######################################################################
set BugNumber OCC10846
restore [locate_data_file bug10846_solid1.brep] b1
restore [locate_data_file bug10846_solid2.brep] b2
puts "Prepare boolean operation ..."
bop b1 b2
puts "Start boolean operation ..."
bopcommon result
puts "Finish boolean operation ..."
set square 183.567
# Analysis of "nbshapes res"
set nb_v_good 18
set nb_e_good 31
set nb_w_good 19
set nb_f_good 19
set nb_sh_good 6
set nb_sol_good 6
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 100
set 2dviewer 0

34
tests/bugs/modalg/bug10846_2 Normal file
View File

@ -0,0 +1,34 @@
puts "============"
puts "OCC10846"
puts "============"
puts ""
#######################################################################
# Cut operation produces invalid result
#######################################################################
set BugNumber OCC10846
restore [locate_data_file bug10846_solid1.brep] b1
restore [locate_data_file bug10846_solid2.brep] b2
puts "Prepare boolean operation ..."
bop b1 b2
puts "Start boolean operation ..."
bopfuse result
puts "Finish boolean operation ..."
set square 2309.97
# Analysis of "nbshapes res"
set nb_v_good 25
set nb_e_good 45
set nb_w_good 15
set nb_f_good 15
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 103
set 2dviewer 0

34
tests/bugs/modalg/bug10846_3 Normal file
View File

@ -0,0 +1,34 @@
puts "============"
puts "OCC10846"
puts "============"
puts ""
#######################################################################
# Cut operation produces invalid result
#######################################################################
set BugNumber OCC10846
restore [locate_data_file bug10846_solid1.brep] b1
restore [locate_data_file bug10846_solid2.brep] b2
puts "Prepare boolean operation ..."
bop b1 b2
puts "Start boolean operation ..."
bopcut result
puts "Finish boolean operation ..."
set square 510.907
# Analysis of "nbshapes res"
set nb_v_good 24
set nb_e_good 43
set nb_w_good 20
set nb_f_good 20
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 110
set 2dviewer 0

34
tests/bugs/modalg/bug10846_4 Normal file
View File

@ -0,0 +1,34 @@
puts "============"
puts "OCC10846"
puts "============"
puts ""
#######################################################################
# Cut operation produces invalid result
#######################################################################
set BugNumber OCC10846
restore [locate_data_file bug10846_solid1.brep] b1
restore [locate_data_file bug10846_solid2.brep] b2
puts "Prepare boolean operation ..."
bop b1 b2
puts "Start boolean operation ..."
boptuc result
puts "Finish boolean operation ..."
set square 1982.63
# Analysis of "nbshapes res"
set nb_v_good 19
set nb_e_good 33
set nb_w_good 14
set nb_f_good 14
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 83
set 2dviewer 0

22
tests/bugs/modalg/bug10846_5 Normal file
View File

@ -0,0 +1,22 @@
puts "============"
puts "OCC10846"
puts "============"
puts ""
#######################################################################
# Cut operation produces invalid result
#######################################################################
set BugNumber OCC10846
restore [locate_data_file bug10846_solid1.brep] b1
restore [locate_data_file bug10846_solid2.brep] b2
puts "Prepare boolean operation ..."
bop b1 b2
puts "Start boolean operation ..."
bopsection result b1 b2
puts "Finish boolean operation ..."
set length 94.4534
set 2dviewer 0

47
tests/bugs/modalg/bug12213 Normal file
View File

@ -0,0 +1,47 @@
puts "============"
puts "OCC12213"
puts "============"
puts ""
#######################################################################
# Invalid sweep was created by command "buildsweep" in DRAW in case circular path
#######################################################################
set BugNumber OCC12213
circle c1 0 0 0 100
trim cc1 c1 0 3.14
mkedge e2 cc1
wire w2 e2
box a 95 -10 -5 10 10 10
explode a w
explode a_4 e
wire w21 a_4_1 a_4_2 a_4_3 a_4_4
box b -110 -10 -5 20 10 10
explode b w
explode b_4 e
wire w22 b_4_1 b_4_2 b_4_3 b_4_4
explode w2 v
mksweep w2
addsweep w21 w2_1
addsweep w22 w2_2
buildsweep result
set square 15708.8
# Analysis of "nbshapes res"
set nb_v_good 8
set nb_e_good 12
set nb_w_good 4
set nb_f_good 4
set nb_sh_good 1
set nb_sol_good 0
set nb_compsol_good 0
set nb_compound_good 0
set nb_shape_good 29
set 2dviewer 1

37
tests/bugs/modalg/bug12257 Normal file
View File

@ -0,0 +1,37 @@
puts "============"
puts "OCC12257"
puts "============"
puts ""
#######################################################################
# Fuse operation fails
#######################################################################
set BugNumber OCC12257
puts "Load shape ..."
restore [locate_data_file OCC12257.brep] b1
explode b1
puts "Prepare boolean operation ..."
bop b1_1 b1_2
puts "Start boolean operation ..."
bopfuse result
puts "Finish boolean operation ..."
set square 3394.17
# Analysis of "nbshapes res"
set nb_v_good 72
set nb_e_good 109
set nb_w_good 39
set nb_f_good 39
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 262
set 2dviewer 1

24
tests/bugs/modalg/bug1226 Normal file
View File

@ -0,0 +1,24 @@
puts "================"
puts "OCC1226"
puts "The revolution problem reproduced in OCC Samples"
puts "================"
puts ""
vertex v1 0 0 0
vertex v2 50 0 0
vertex v3 50 50 0
edge e1 v1 v2
edge e2 v2 v3
edge e3 v3 v1
wire w e1 e2 e3
mkplane f w
revol result f 0 0 30 0 1 0 180
set square 23211.3
set 2dviewer 0

26
tests/bugs/modalg/bug1243_1 Normal file
View File

@ -0,0 +1,26 @@
puts "================"
puts "OCC1243"
puts "================"
puts "Bad solid created from face with command 'revol'"
puts ""
restore [locate_data_file OCC1243-1.brep] f1
checkshape f1
revol result f1 -5000.0 0.0 0.0 10000.0 0.0 0.0 360.0
set tolerance [maxtolerance result]
regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
set max_tolerance 1.00000e-06
if { ${MaxFaceTolerance} > ${max_tolerance} || ${MaxEdgeTolerance} > ${max_tolerance} || ${MaxVertexTolerance} > ${max_tolerance} } {
puts "OCC1243 - Error"
} else {
puts "OCC1243 - OK"
}
set square 350733
set 2dviewer 0

26
tests/bugs/modalg/bug1243_2 Normal file
View File

@ -0,0 +1,26 @@
puts "================"
puts "OCC1243"
puts "================"
puts "Bad solid created from face with command 'revol'"
puts ""
restore [locate_data_file OCC1243-2.brep] f1
checkshape f1
revol result f1 -5000.0 0.0 0.0 10000.0 0.0 0.0 360.0
set tolerance [maxtolerance result]
regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
set max_tolerance 1.00000e-06
if { ${MaxFaceTolerance} > ${max_tolerance} || ${MaxEdgeTolerance} > ${max_tolerance} || ${MaxVertexTolerance} > ${max_tolerance} } {
puts "OCC1243 - Error"
} else {
puts "OCC1243 - OK"
}
set square 3.06024e+06
set 2dviewer 0

16
tests/bugs/modalg/bug1255 Normal file
View File

@ -0,0 +1,16 @@
puts "================"
puts "OCC1255"
puts "================"
puts ""
# Exception in command 'section'
restore [locate_data_file OCC1255.brep] a
checkshape a
plane p1 0 -36.8067 0 0 1 0
mkface f1 p1
bsection result a f1
set length 5534.74
set 2dviewer 0

24
tests/bugs/modalg/bug1255_1 Normal file
View File

@ -0,0 +1,24 @@
puts "========="
puts " OCC1255 "
puts "========="
puts ""
###############################################
## Exception in command 'section'
# (This script tests new topology)
###############################################
restore [locate_data_file OCC1255.brep] a
checkshape a
plane p1 0 -36.8067 0 0 1 0
mkface f1 p1
if { [catch {bop a f1 } ] } {
puts "Faulty OCC1255: BOP operation was made wrongly"
} else {
bopsection result
}
set length 5383.42
set 2dviewer 0

19
tests/bugs/modalg/bug1360 Normal file
View File

@ -0,0 +1,19 @@
pload QAcommands
puts "================"
puts "OCC1360"
puts "================"
puts ""
######################################################
# Solid correctly displayed in shadding mode, but one tis faces itself has no prs
######################################################
pload XDE
restore [locate_data_file OCC1360.brep] sh
fixshape result sh 1e-7
set square 407.599
set 3dviewer 1

36
tests/bugs/modalg/bug1456 Normal file
View File

@ -0,0 +1,36 @@
puts "============"
puts "OCC1456"
puts "============"
puts ""
######################################################
# Impossible to build mixed type fillets
######################################################
restore [locate_data_file OCC1456.brep] a
checkshape a
##############################################
explode a w
explode a_4 e
mkevol result a
updatevol a_4_1 0 5 0.5 20 1 5
updatevol a_4_2 0 5
updatevol a_4_3 0 5
updatevol a_4_4 0 5 0.5 20 1 5
updatevol a_4_5 0 5 0.5 20 1 5
updatevol a_4_6 0 5
updatevol a_4_7 0 5 0.5 20 1 5
updatevol a_4_8 0 5
if { [catch { buildevol } catch_result] } {
puts "Faulty OCC1456 (case 2)"
}
vinit
vdisplay result
vsetdispmode 0
vfit
set square 3.21455e+06
set only_screen 1

25
tests/bugs/modalg/bug1477_1 Normal file
View File

@ -0,0 +1,25 @@
puts "============"
puts "OCC1477"
puts "============"
puts ""
######################################################
# Problems in MakePipeShell
# (case 1)
######################################################
restore [locate_data_file OCC1477-1.brep] s1
restore [locate_data_file OCC1477-2.brep] s2
checkshape s1
checkshape s2
mksweep s1
addsweep s2
if { [catch {buildsweep result} catch_result] } {
puts "Faulty OCC1477"
}
set square 913238
set 3dviewer 1

29
tests/bugs/modalg/bug1477_10 Normal file
View File

@ -0,0 +1,29 @@
puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
puts "TODO OCC11111 ALL: Error : The square of result shape is"
puts "============"
puts "OCC1477"
puts "============"
puts ""
######################################################
# Problems in MakePipeShell
# (case 10)
######################################################
restore [locate_data_file OCC1477-1.brep] s1
restore [locate_data_file OCC1477-2.brep] s2
checkshape s1
checkshape s2
mksweep s1
addsweep s2 -T 0 1 1 2 2 .5
if { [catch {buildsweep result -C} catch_result] } {
puts "Faulty OCC1477"
}
set square 0
set 3dviewer 1

31
tests/bugs/modalg/bug1477_11 Normal file
View File

@ -0,0 +1,31 @@
puts "TODO ?OCC11111 ALL: An exception was caught"
puts "TODO ?OCC11111 ALL: Exception"
puts "TODO ?OCC11111 ALL: Faulty OCC1477"
puts "TODO ?OCC11111 ALL: TEST INCOMPLETE"
puts "============"
puts "OCC1477"
puts "============"
puts ""
######################################################
# Problems in MakePipeShell
# (case 11)
######################################################
restore [locate_data_file OCC1477-1.brep] s1
restore [locate_data_file OCC1477-2.brep] s2
checkshape s1
checkshape s2
mksweep s1
addsweep s2 0 1 1 2 2 .5
if { [catch {buildsweep result -R} catch_result] } {
puts "Faulty OCC1477"
}
set square 1.81647e+006
set 3dviewer 1

26
tests/bugs/modalg/bug1477_12 Normal file
View File

@ -0,0 +1,26 @@
puts "============"
puts "OCC1477"
puts "============"
puts ""
######################################################
# Problems in MakePipeShell
# (case 12)
######################################################
restore [locate_data_file OCC1477-1.brep] s1
restore [locate_data_file OCC1477-2.brep] s2
checkshape s1
checkshape s2
mksweep s1
addsweep s2 -T 0 1 1 2 2 .5
if { [catch {buildsweep result -R} catch_result] } {
puts "Faulty OCC1477"
}
set good_square 1.99019e+06
set 3dviewer 1

26
tests/bugs/modalg/bug1477_2 Normal file
View File

@ -0,0 +1,26 @@
puts "============"
puts "OCC1477"
puts "============"
puts ""
######################################################
# Problems in MakePipeShell
# (case 2)
######################################################
restore [locate_data_file OCC1477-1.brep] s1
restore [locate_data_file OCC1477-2.brep] s2
checkshape s1
checkshape s2
mksweep s1
addsweep s2 -T
if { [catch {buildsweep result} catch_result] } {
puts "Faulty OCC1477"
}
set square 913238
set 3dviewer 1

Some files were not shown because too many files have changed in this diff Show More