0024927: Getting rid of "Persistent" functionality -- Tests
[occt.git] / tests / bugs / caf / bug2932_11
1 puts "================"
2 puts "OCC2932"
3 puts "================"
4 puts ""
5 #######################################################################################
6 # Create Attribute Delta depending on actual change of the attribute 
7 #######################################################################################
8 # Case 9 (TDataStd_Name)
9 #######################################################################################
10
11 # Create a new document and set UndoLimit
12 NewDocument D BinOcaf
13 UndoLimit D 100
14
15 # Create a label and set attributes
16 NewCommand D
17 set Label 0:2
18
19 ############################################
20 set Name "New Name"
21 ############################################
22
23 set Real1 300.
24 set Real2 400.
25 set modified_attribute TDataStd_Real
26
27 ############################################
28 # Set TDataStd_Name
29 Label D ${Label}
30 SetName D ${Label} ${Name}
31 ############################################
32
33 SetReal D ${Label} ${Real1}
34 set list [DumpCommand D]
35
36 # Open a transaction
37 NewCommand D
38 set list [DumpCommand D]
39
40 ############################################
41 # Set old value for TDataStd_Name
42 SetName D ${Label} ${Name}
43 ############################################
44
45 # Set new value for TDataStd_Real
46 SetReal D ${Label} ${Real2}
47 set list [DumpCommand D]
48
49 # Open a transaction
50 NewCommand D
51 set list [DumpCommand D]
52
53 # Checking
54 set ll [llength ${list}]
55 set good_length 17
56 puts "length = ${ll}"
57 puts "good_length = ${good_length}"
58
59 if { ${ll} != ${good_length} } {
60   puts "OCC2932 Error (case 1)"
61 } else {
62   set name_attribute [lindex ${list} [expr ${good_length} - 1]]
63   puts "name_attribute = ${name_attribute}"
64   puts "modified_attribute = ${modified_attribute}"
65   if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
66     puts "OCC2932 OK"
67   } else {
68     puts "OCC2932 Error (case 2)"
69   }
70 }