1 puts "================"
3 puts "================"
5 #######################################################################################
6 # Wrong behaviour of the method CommitCommand of class TDocStd_MultiTransactionManager
7 #######################################################################################
9 proc OCC1722_Check_real_attribute {IsGood doc label good_real case} {
11 # Check real attribute
13 if [catch { set real [GetReal ${doc} ${label}] } message] {
15 puts "OCC1722 Error (case ${case})"
17 set real_percent [expr abs(${real} - ${good_real}) / double(${good_real}) * 100.]
18 if {${real_percent} > ${percent_max}} {
19 puts "good_real = ${good_real}"
21 puts "real_percent = ${real_percent}"
22 puts "OCC1722 Error (case ${case}-2)"
41 SetReal doc1 ${aLabel} ${aReal1}
42 set IsGood [OCC1722_Check_real_attribute ${IsGood} ${doc1} ${aLabel} ${aReal1} [incr Case]]
45 SetReal doc1 ${aLabel} ${aReal2}
46 set IsGood [OCC1722_Check_real_attribute ${IsGood} ${doc1} ${aLabel} ${aReal2} [incr Case]]
49 ################################################################################
51 # There is one document ( "3095112" ) in the manager
52 # Nested transaction mode is off
56 ################################################################################
57 set index1 [lsearch -exact ${list} "Undo:"]
61 if { ${index1} != -1 } {
63 puts "OCC1722 Error (case ${case})"
66 mtmCommit Transaction1
69 ################################################################################
71 # There is one document ( "3095112" ) in the manager
72 # Nested transaction mode is off
74 # Undo: Transaction1 - 1 documents ( "3095112" ) < Last action
77 ################################################################################
78 set index2 [lsearch -exact ${list} "Undo:"]
82 if { ${index2} == -1 } {
84 puts "OCC1722 Error (case ${case})"
88 set IsGood [OCC1722_Check_real_attribute ${IsGood} ${doc1} ${aLabel} ${aReal1} [incr Case]]
91 set IsGood [OCC1722_Check_real_attribute ${IsGood} ${doc1} ${aLabel} ${aReal2} [incr Case]]
94 if { ${IsGood} == 1 } {