7fdbb5181e5eff3eae9cc5ff6f6ddb74d6b7f9fc
[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
24 regexp {Free Shapes: ([-0-9.+eE]+)} $xd full FreeShapes
25 puts "FreeShapes=${FreeShapes}"
26
27 if { ${FreeShapes} != 0 } {
28    puts "Faulty ${BugNumber}"
29 } else {
30    puts "OK ${BugNumber}"   
31 }
32
33