e87a5bc6 |
1 | puts "TODO ?OCC23047 ALL: Tcl Exception: can't read" |
2 | puts "TODO ?OCC23047 ALL: TEST INCOMPLETE" |
3bea4c16 |
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 | |
3bea4c16 |
21 | set xd [Xdump D] |
22 | |
3bea4c16 |
23 | regexp {Free Shapes: ([-0-9.+eE]+)} $xd full FreeShapes |
24 | puts "FreeShapes=${FreeShapes}" |
25 | |
e87a5bc6 |
26 | if { ${FreeShapes} != 0 } { |
3bea4c16 |
27 | puts "Faulty ${BugNumber}" |
e87a5bc6 |
28 | } else { |
29 | puts "OK ${BugNumber}" |
3bea4c16 |
30 | } |
31 | |
e87a5bc6 |
32 | |