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