0024927: Getting rid of "Persistent" functionality -- Tests
[occt.git] / tests / bugs / caf / bug2932_1
1 puts "================"
2 puts "OCC2932"
3 puts "================"
4 puts ""
5 #######################################################################################
6 # Create Attribute Delta depending on actual change of the attribute 
7 #######################################################################################
8 # Case 8 (TDataStd_IntegerArray)
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 From 1
21 set To 2
22 set IntegerArray1 3
23 set IntegerArray2 4
24 ############################################
25
26 set Real1 300.
27 set Real2 400.
28 set modified_attribute TDataStd_Real
29
30 ############################################
31 # Set TDataStd_IntegerArray
32 SetIntArray D ${Label} ${From} ${To} ${IntegerArray1} ${IntegerArray2} 0
33 ############################################
34
35 SetReal D ${Label} ${Real1}
36 set list [DumpCommand D]
37
38 # Open a transaction
39 NewCommand D
40 set list [DumpCommand D]
41
42 ############################################
43 # Set old value for TDataStd_IntegerArray
44 SetIntArray D ${Label} ${From} ${To} ${IntegerArray1} ${IntegerArray2} 0
45 ############################################
46
47 # Set new value for TDataStd_Real
48 SetReal D ${Label} ${Real2}
49 set list [DumpCommand D]
50
51 # Open a transaction
52 NewCommand D
53 set list [DumpCommand D]
54
55 # Checking
56 set ll [llength ${list}]
57 set good_length 17
58 puts "length = ${ll}"
59 puts "good_length = ${good_length}"
60
61 if { ${ll} != ${good_length} } {
62   puts "OCC2932 Error (case 1)"
63 } else {
64   set name_attribute [lindex ${list} [expr ${good_length} - 1]]
65   puts "name_attribute = ${name_attribute}"
66   puts "modified_attribute = ${modified_attribute}"
67   if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
68     puts "OCC2932 OK"
69   } else {
70     puts "OCC2932 Error (case 2)"
71   }
72 }
73
74