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