1 puts "TODO ?OCC23047 ALL: Tcl Exception: can't read"
2 puts "TODO ?OCC23047 ALL: TEST INCOMPLETE"
3 puts "================"
5 puts "================"
7 ########################################################################################################
8 # Behaviour of XDE sample is non-stable
9 ########################################################################################################
11 set BugNumber OCC23047
19 XRemoveShape D 0:1:1:1 1
23 regexp {Free Shapes: ([-0-9.+eE]+)} $xd full FreeShapes
24 puts "FreeShapes=${FreeShapes}"
26 if { ${FreeShapes} != 0 } {
27 puts "Faulty ${BugNumber}"
29 puts "OK ${BugNumber}"