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