tests/xml/data/xcaf/A2

   1 if { [string compare $subgroup "xcaf_xml"] == 0 } {
   2     puts "TODO ?OCC23768 ALL: Error : File is not valid"
   3     puts "TODO ?OCC23768 ALL: Error at line"
   4 }
   5
   6 set aTestName "SATCOM"
   7 puts $aTestName
   8
   9 stepread [locate_data_file 1_SATCOM_BIRD_7.stp] aShape *
  10 XAddShape D aShape_1
  11
  12 # Close the transaction
  13 NewCommand D
  14
  15 # Save the document
  16 set aFile $WorkDirectory/${aTestName}.${FileSuffix}
  17
  18 SaveToFile D $aFile
  19
  20 # Restore the document
  21 Close D
  22 Open ${aFile} DD