puts "TODO ?OCC23047 ALL: Tcl Exception: can't read"
puts "TODO ?OCC23047 ALL: TEST INCOMPLETE"
puts "================"
puts "OCC23047"
puts "================"
puts ""
########################################################################################################
# Behaviour of XDE sample is non-stable
########################################################################################################

set BugNumber OCC23047

pload QAcommands

XNewDoc D
box b 1 1 1
ttranslate b 1 0 0
XAddShape D b
XRemoveShape D 0:1:1:1 1

set xd [Xdump D]

regexp {Free Shapes: ([-0-9.+eE]+)} $xd full FreeShapes
puts "FreeShapes=${FreeShapes}"

if { ${FreeShapes} != 0 } {
   puts "Faulty ${BugNumber}"
} else {
   puts "OK ${BugNumber}"   
}