tests/bugs/xde/bug23047_1

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