source [file dirname [info script]]/testing.tcl

needs cmd exists
testConstraint lambda [expr {[info commands lambda] ne {}}]

test exists-1.1 "Exists var" {
	set a 1
	exists a
} 1

test exists-1.1 "Exists var" {
	unset -nocomplain b
	exists b
} 0

test exists-1.1 "Exists -var" {
	exists -var a
} 1

test exists-1.1 "Exists -var" {
	exists -var b
} 0

test exists-1.1 "Exists in proc" {
	proc a {name} { exists $name }
	a ::a
} 1

test exists-1.1 "Exists in proc" {
	a ::b
} 0

test exists-1.1 "Exists in proc" {
	a name
} 1

test exists-1.1 "Exists in proc" {
	a none
} 0

test exists-1.1 "Exists -proc" {
	exists -proc a
} 1

test exists-1.1 "Exists -proc" {
	exists -proc bogus
} 0

test exists-1.1 "Exists -proc" {
	exists -proc info
} 0

test exists-1.1 "Exists -command" {
	exists -command a
} 1

test exists-1.1 "Exists -command" {
	exists -command info
} 1

test exists-1.1 "Exists -command" {
	exists -command bogus
} 0

test exists-1.1 "Exists local lambda after exit" lambda {
	proc a {} {
		local lambda {} {dummy}
	}
	exists -proc [a]
} 0

test exists-1.1 "Exists local lambda" lambda {
	proc a {} {
		exists -proc [local lambda {} {dummy}]
	}
	a
} 1

testreport