tests/bugs/xde/bug23047_1

   1 puts "TODO ?OCC23047 ALL: Faulty OCC23047"
   2 puts "================"
   3 puts "OCC23047"
   4 puts "================"
   5 puts ""
   6 ########################################################################################################
   7 # Behaviour of XDE sample is non-stable
   8 ########################################################################################################
   9
  10 set BugNumber OCC23047
  11
  12 pload QAcommands
  13
  14 XNewDoc D
  15 box b 1 1 1
  16 ttranslate b 1 0 0
  17 XAddShape D b
  18 XRemoveShape D 0:1:1:1 0
  19
  20 QARebuild Xdump
  21
  22 set xd [Xdump D]
  23
  24 set FreeShapes 0
  25
  26 regexp {Free Shapes: ([-0-9.+eE]+)} $xd full FreeShapes
  27 puts "FreeShapes=${FreeShapes}"
  28
  29 if { ${FreeShapes} == 1 } {
  30    puts "OK ${BugNumber}"
  31 } else {
  32    puts "Faulty ${BugNumber}"
  33 }
  34