tests/bugs/caf/bug28425

   1 puts "==========="
   2 puts "OCC28425"
   3 puts "==========="
   4 puts ""
   5 ############################################################
   6 # Open/save NamedShape changes order of shapes
   7 ############################################################
   8
   9 pload QAcommands
  10 set aTestFileBin $imagedir/${casename}.cbf
  11 set aTestFileXml $imagedir/${casename}.xml
  12
  13 vertex v 1 2 3
  14 box b 10 20 30
  15
  16 # Test bin document
  17 NewDocument D1 BinOcaf
  18 BuildNamedShape D1 0:1 PRIMITIVE v b
  19 GetNewShapes D1 0:1 s
  20 set info [whatis s_1]
  21 if { [regexp "SOLID" $info] != 1 } {
  22     puts "Error: first shape should be solid"
  23 } else {
  24     puts "OK: order of shapes is correct"
  25 }
  26 SaveAs D1 ${aTestFileBin}
  27 Close D1
  28 Open ${aTestFileBin} D2
  29 GetNewShapes D2 0:1 s
  30 set info [whatis s_1]
  31 if { [regexp "SOLID" $info] != 1 } {
  32     puts "Error: first shape should be solid"
  33 } else {
  34     puts "OK: order of shapes is correct"
  35 }
  36 Close D2
  37
  38 # Test xml document
  39 NewDocument D1 XmlOcaf
  40 BuildNamedShape D1 0:1 PRIMITIVE v b
  41 GetNewShapes D1 0:1 s
  42 set info [whatis s_1]
  43 if { [regexp "SOLID" $info] != 1 } {
  44     puts "Error: first shape should be solid"
  45 } else {
  46     puts "OK: order of shapes is correct"
  47 }
  48 SaveAs D1 ${aTestFileXml}
  49 Close D1
  50 Open ${aTestFileXml} D2
  51 GetNewShapes D2 0:1 s
  52 set info [whatis s_1]
  53 if { [regexp "SOLID" $info] != 1 } {
  54     puts "Error: first shape should be solid"
  55 } else {
  56     puts "OK: order of shapes is correct"
  57 }
  58 Close D2