[occt.git] / tests / bugs / fclasses / bug24863_3

# Test for #24863: protect variable

box b 10 10 10
set is_ok [whatis b]
protect b

if {![catch {set b aaaaa}]} {
     puts "Error : variable was changed"
}

if {$b != "b"} {
    puts "Error : tcl variable doesn't point to same-named draw variable"
}

set check_ok [whatis b]
if {$is_ok != $check_ok} {
    puts "Error : results of command \"whatis\" are different"
}
Commit	Line	Data
1951a27c	1	# Test for #24863: protect variable
	2
	3	box b 10 10 10
	4	set is_ok [whatis b]
	5	protect b
	6
	7	if {![catch {set b aaaaa}]} {
	8	puts "Error : variable was changed"
	9	}
	10
191082ac	11	if {$b != "b"} {
191082ac	12	puts "Error : tcl variable doesn't point to same-named draw variable"
1951a27c	13	}
	14
	15	set check_ok [whatis b]
	16	if {$is_ok != $check_ok} {
	17	puts "Error : results of command \"whatis\" are different"
	18	}