Adjusting testing cases for current state of OCCT
[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 QARebuild Xdump
21
22 set xd [Xdump D]
23
24 set FreeShapes 0
25
26 regexp {Free Shapes: ([-0-9.+eE]+)} $xd full FreeShapes
27 puts "FreeShapes=${FreeShapes}"
28
29 if { ${FreeShapes} == 1 } {
30    puts "OK ${BugNumber}"
31 } else {
32    puts "Faulty ${BugNumber}"
33 }
34