tests/bugs/xde/bug23047_1

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