tests/bugs/caf/bug2269

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