Adding test cases from chl grid
[occt.git] / tests / bugs / xde / bug23047_1
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
19 QARebuild Xdump
20
21 set xd [Xdump D]
22
23 set FreeShapes 0
24
25 regexp {Free Shapes: ([-0-9.+eE]+)} $xd full FreeShapes
26 puts "FreeShapes=${FreeShapes}"
27
28 if { ${FreeShapes} == 1 } {
29    puts "OK ${BugNumber}"
30 } else {
31    puts "Faulty ${BugNumber}"
32 }
33