tests/caf/basic/M2

   1 #INTERFACE CAF
   2 puts "================"
   3 puts "OCC6493"
   4 puts "================"
   5 puts ""
   6 ######################################################
   7 # No binary persistence for TDataStd_ExtStringArray attribute
   8 ######################################################
   9
  10 # Basic attributes
  11 # TDataStd_ExtStringArray
  12 #
  13 # Testing attribute: TDataStd_ExtStringArray
  14 #
  15 # Testing command:   SetExtStringArray
  16 # Testing command:   GetExtStringArray
  17 #
  18
  19 puts "caf001-M2"
  20 set QA_DUP 0
  21
  22 # Add an attribute to a data framework
  23 set aFrom1 1
  24 set aTo1 2
  25 set aSetAttr11 "TDataStd"
  26 set aSetAttr12 "ExtStringArray"
  27 set aLabel 0:2
  28 set isDelta 0
  29 SetExtStringArray D ${aLabel} ${isDelta} ${aFrom1} ${aTo1} ${aSetAttr11} ${aSetAttr12}
  30
  31 # Close/Open the transaction
  32 NewCommand D
  33
  34 # Set a new value of the attribute
  35 set aFrom2 1
  36 set aTo2 2
  37 set aSetAttr21 "NEW TDataStd"
  38 set aSetAttr22 "NEW ExtStringArray"
  39 SetExtStringArray D ${aLabel} ${isDelta} ${aFrom2} ${aTo2} ${aSetAttr21} ${aSetAttr22}
  40
  41 # Close/Open the transaction
  42 NewCommand D
  43
  44 # Undo
  45 Undo D
  46
  47 # Get a value of the attribute
  48 set IsGood 1
  49 set aMessage2 "Set a value of TDataStd_ExtStringArray attribute: Error"
  50 set aGetAttr2 [GetExtStringArray D ${aLabel}]
  51 set aLen2 [llength ${aGetAttr2}]
  52 if { ${aLen2} != [expr ${aTo1} - ${aFrom1} + 1] } {
  53    set IsGood 0
  54    puts "aLen2=${aLen2}"
  55    puts ${aMessage2}
  56 }
  57 set aGetAttr31 [lindex ${aGetAttr2} 0]
  58 if { ${aSetAttr11} != ${aGetAttr31} } {
  59    set IsGood 0
  60    puts "aGetAttr31=${aGetAttr31}"
  61    puts ${aMessage2}
  62 }
  63 set aGetAttr32 [lindex ${aGetAttr2} 1]
  64 if { ${aSetAttr12} != ${aGetAttr32} } {
  65    set IsGood 0
  66    puts "aGetAttr32=${aGetAttr32}"
  67    puts ${aMessage2}
  68 }
  69
  70 if { ${IsGood} == 0} {
  71   puts "OCC6493: Error"
  72 } else {
  73   puts "OCC6493: OK"
  74 }