0014531: Boolean Operation Algorithm fails
[occt.git] / tests / bugs / demo / bug25344_3
1 puts "========"
2 puts "OCC25344"
3 puts "========"
4 puts ""
5 #######################################################
6 # Draw variables do not follow the scope of TCL level
7 #######################################################
8
9 proc boxproc {shape} {
10   upvar $shape local_shape
11   box local_shape 1 1 1
12 }
13
14 boxproc mybox
15
16 if {[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
27 if {[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 }