0014531: Boolean Operation Algorithm fails
[occt.git] / tests / bugs / demo / bug25344_3
CommitLineData
191082ac 1puts "========"
2puts "OCC25344"
3puts "========"
4puts ""
5#######################################################
6# Draw variables do not follow the scope of TCL level
7#######################################################
8
9proc boxproc {shape} {
10 upvar $shape local_shape
11 box local_shape 1 1 1
12}
13
14boxproc mybox
15
16if {[dtyp mybox] == ""} {
17 puts "ERROR: box mybox is not created"
18} else {
19 puts "SUCCESS: mybox is created"
20 if {[lsearch [directory] mybox] == -1} {
21 puts "ERRROR: but it is absent among TCL variables"
22 } else {
23 puts "SUCCESS: and it is present among TCL variables"
24 }
25}
26
27if {[dtyp local_shape] != ""} {
28 puts "Box local_shape is created"
29 if {[lsearch [directory] local_shape] == -1} {
30 puts "ERROR: but it is absent among TCL variables"
31 }
32}