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