Add the [exists] command

Especially simplifies checking for the existence of procs.

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 78 insertions, 0 deletions

diff --git a/tests/exists.test b/tests/exists.test
new file mode 100644
index 0000000..ae35a87
--- /dev/null
+++ b/tests/exists.test
@@ -0,0 +1,78 @@
+source [file dirname [info script]]/testing.tcl
+
+needs cmd exists
+
+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" {
+	proc a {} {
+		local lambda {} {dummy}
+	}
+	exists -proc [a]
+} 0
+
+test exists-1.1 "Exists local lambda" {
+	proc a {} {
+		exists -proc [local lambda {} {dummy}]
+	}
+	a
+} 1
+
+testreport