tests/bugs/caf/bug2269

   1 puts "REQUIRED All: Cannot retrieve real member for RealArray attribute"
   2
   3 puts "================"
   4 puts "OCC2269"
   5 puts "================"
   6 puts ""
   7 #######################################################################################
   8 # XML persistance should be more robust
   9 #######################################################################################
  10 #
  11 # Tested file is contains 3 labels with TDataStd_RealArray attributes
  12 # 0:2   label has good TDataStd_RealArray attribute
  13 # 0:22  label has bad  TDataStd_RealArray attribute
  14 # 0:222 label has good TDataStd_RealArray attribute
  15 #
  16 #######################################################################################
  17
  18 #set ScriptDir $XmlDir
  19 #source ${ScriptDir}/begin
  20 #source ${ScriptDir}/002/begin
  21
  22 #set aTestName "OCC2269"
  23 #set WorkDirectory ${filedir}
  24 #set aFile $WorkDirectory/${aTestName}.${FileSuffix}
  25 #catch {Close D}
  26
  27 set IsGood 1
  28 Open [locate_data_file OCC2269.xml] DD
  29
  30 if [catch {XDumpDF DD } result] {
  31    puts "Error during dump ${aFile} file"
  32    set IsGood 0
  33 }
  34 if [catch {CheckLabel DD 0:2} result] {
  35    puts "Error during search 0:2 label in ${aFile} file"
  36    set IsGood 0
  37 }
  38 if [catch {CheckLabel DD 0:22} result] {
  39    puts "Error during search 0:22 label in ${aFile} file"
  40    set IsGood 0
  41 }
  42 if [catch {CheckLabel DD 0:222} result] {
  43    puts "Error during search 0:222 label in ${aFile} file"
  44    set IsGood 0
  45 }
  46
  47 Close DD
  48
  49 if { ${IsGood} == 0} {
  50   puts "Faulty OCC2269"
  51 } else {
  52   puts "OK OCC2269"
  53 }