tests/caf/tree/B2

   1 #INTERFACE CAF
   2 # Tree construction attributes
   3 #
   4 # Testing attribute: TDataStd_Directory
   5 #
   6 # Testing command:   AddDirectory
   7 #
   8
   9 puts "caf005-B2"
  10
  11 # Add an attribute to a data framework
  12 set aLabel1 0:2
  13 NewDirectory D ${aLabel1}
  14 set aName1 Label1
  15 SetName D ${aLabel1} ${aName1}
  16 set aSubDirectory [AddDirectory D ${aLabel1}]
  17 set aName2 SubDirectory1
  18 set aLabel2 [lindex ${aSubDirectory} 0]
  19 SetName D ${aLabel2} ${aName2}
  20
  21 # Close/Open the transaction
  22 NewCommand D
  23
  24 # Forget the attribute
  25 ForgetAll D ${aLabel1}
  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 aGetName2 [GetName D ${aLabel2}]
  37 if { ${aName2}!=${aGetName2} } {
  38         puts "aName2=${aName2} aGetName2=${aGetName2}"
  39         puts "Add TDataStd_Directory attribute: Error"
  40         return
  41 }
  42 puts "Add TDataStd_Directory attribute: OK"