tests/bugs/xde/bug23047_2

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