0014531: Boolean Operation Algorithm fails
[occt.git] / tests / bugs / demo / bug25344_1
CommitLineData
191082ac 1puts "========"
2puts "OCC25344"
3puts "========"
4puts ""
5#######################################################
6# Draw variables do not follow the scope of TCL level
7#######################################################
8
9proc setproc {} {
10 dset local_var 1.1
11 puts "in setproc scope: local_var=[dval local_var]"
12}
13
14setproc
15puts "in global scope: local_var=[dval local_var]"
16
17if {[dval local_var] != 0} {
18 puts "ERROR: local_var is set, but must not"
19 if {[lsearch [directory] local_var] == -1} {
20 puts "ERROR: as it is absent among TCL variables"
21 }
22}