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 set xd [Xdump D]
  21
  22 regexp {Free Shapes: ([-0-9.+eE]+)} $xd full FreeShapes
  23 puts "FreeShapes=${FreeShapes}"
  24
  25 if { ${FreeShapes} != 1 } {
  26    puts "Faulty ${BugNumber}"
  27 } else {
  28    puts "OK ${BugNumber}"
  29 }
  30
  31