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 "================"
6 puts "================"
8 ########################################################################################################
9 # Behaviour of XDE sample is non-stable
10 ########################################################################################################
12 set BugNumber OCC23047
20 XRemoveShape D 0:1:1:1 0
24 regexp {Free Shapes: ([-0-9.+eE]+)} $xd full FreeShapes
25 puts "FreeShapes=${FreeShapes}"
27 if { ${FreeShapes} != 1 } {
28 puts "Faulty ${BugNumber}"
30 puts "OK ${BugNumber}"