tests/caf/tree/A2

   1 #INTERFACE CAF
   2 # Tree construction attributes
   3 #
   4 # Testing attribute: TDF_TagSource
   5 #
   6 # Testing command:   NewChild
   7 # Testing command:   NewTag
   8 #
   9
  10 puts "caf005-A2"
  11
  12 set aTokList {:}
  13
  14 # Add an attribute to a data framework
  15 set aLabel1 0:2
  16 set aName1 Label1
  17 SetTagger D ${aLabel1}
  18 SetName D ${aLabel1} ${aName1}
  19
  20 set aLabel2 0:3
  21 set aName2 Label2
  22 SetTagger D ${aLabel2}
  23 SetName D ${aLabel2} ${aName2}
  24
  25 set aChild1 [NewChild D ${aLabel1}]
  26
  27 set aTagNumber 4
  28 for {set i 1} {${i}<${aTagNumber}} {incr i} {
  29         NewTag D ${aLabel2}
  30 }
  31 set aChild2 [NewChild D ${aLabel2}]
  32
  33 #  Get a value of the attribute
  34 set aTag1 [lindex [split ${aChild1} ${aTokList}] 2]
  35 set aTag2 [lindex [split ${aChild2} ${aTokList}] 2]
  36 if { ${aTag1}!=1 || ${aTag2}!=${aTagNumber}} {
  37         puts "aTag1=${aTag1} aTag2=${aTag2} aTagNumber=${aTagNumber}"
  38         puts "Set TDF_TagSource attribute: Error"
  39         return
  40 }
  41 puts "Set TDF_TagSource attribute: OK"