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