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