0027932: Improvement of standard attributes usability.
[occt.git] / tests / caf / basic / B5
1 #INTERFACE CAF
2 # Basic attributes
3 #
4 # Testing attribute: User defined (additional GUID) TDataStd_Real
5 #
6 # Testing command:   SetReal
7 # Testing command:   GetReal
8 #
9
10 puts "caf001-B5"
11
12 # Add an attribute to a data framework
13 set aSetAttr1 100.11
14 set aSetAttr2 200.11
15 set aGuid1 "12e94551-6dbc-11d4-b9c8-0060b0ee281b"
16 set aGuid2 "12e94552-6dbc-11d4-b9c8-0060b0ee281b"
17 set aLabel 0:2
18 SetReal D ${aLabel} ${aSetAttr1} ${aGuid1}
19 SetReal D ${aLabel} ${aSetAttr2} ${aGuid2}
20
21 # Close/Open the transaction
22 NewCommand D
23
24 # Set a new value of the attributes
25 set aSetAttr12 199.11
26 SetReal D ${aLabel} ${aSetAttr12} ${aGuid1}
27
28 set aSetAttr22 299.11
29 SetReal D ${aLabel} ${aSetAttr12} ${aGuid2}
30
31 # Close/Open the transaction
32 NewCommand D
33
34 # Undo-Redo-Undo
35 Undo D
36
37 # Get a value of the attribute
38 set aGetAttr1 [GetReal D ${aLabel} ${aGuid1}]
39 if { ${aSetAttr1}!=${aGetAttr1} } {
40         puts "aSetAttr1=${aSetAttr1} aGetAttr1=${aGetAttr1}"
41         puts "Add user defined TDataStd_Real attribute: Error"
42         return
43 }
44
45 set aGetAttr2 [GetReal D ${aLabel} ${aGuid2}]
46 if { ${aSetAttr2}!=${aGetAttr2} } {
47         puts "aSetAttr2=${aSetAttr2} aGetAttr2=${aGetAttr2}"
48         puts "Add user defined TDataStd_Real attribute: Error"
49         return
50 }
51
52 puts "Add user defined TDataStd_Real attributes: OK"