summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authormlafon <mlafon@gmail.com>2017-05-04 22:27:23 (GMT)
committermlafon <mlafon@gmail.com>2017-05-04 22:27:23 (GMT)
commit45bf0120ad12d84441a0c3133a9aa88c446afdc0 (patch)
treec5fa202ff0effa2d836caa70c515e9376bb7f25f /tests
parentaa7f26cefe717461f284fb9e389ee6a613b2d970 (diff)
downloadtcl-info_linkedname.zip
tcl-info_linkedname.tar.gz
tcl-info_linkedname.tar.bz2
Add [info linkedname] introspection commandinfo_linkedname
Diffstat (limited to 'tests')
-rw-r--r--tests/info.test33
1 files changed, 29 insertions, 4 deletions
diff --git a/tests/info.test b/tests/info.test
index fd89b47..38b7887 100644
--- a/tests/info.test
+++ b/tests/info.test
@@ -678,16 +678,16 @@ test info-21.1 {miscellaneous error conditions} -returnCodes error -body {
} -result {wrong # args: should be "info subcommand ?arg ...?"}
test info-21.2 {miscellaneous error conditions} -returnCodes error -body {
info gorp
-} -result {unknown or ambiguous subcommand "gorp": must be args, body, class, cmdcount, commands, complete, coroutine, default, errorstack, exists, frame, functions, globals, hostname, level, library, loaded, locals, nameofexecutable, object, patchlevel, procs, script, sharedlibextension, tclversion, or vars}
+} -result {unknown or ambiguous subcommand "gorp": must be args, body, class, cmdcount, commands, complete, coroutine, default, errorstack, exists, frame, functions, globals, hostname, level, library, linkedname, loaded, locals, nameofexecutable, object, patchlevel, procs, script, sharedlibextension, tclversion, or vars}
test info-21.3 {miscellaneous error conditions} -returnCodes error -body {
info c
-} -result {unknown or ambiguous subcommand "c": must be args, body, class, cmdcount, commands, complete, coroutine, default, errorstack, exists, frame, functions, globals, hostname, level, library, loaded, locals, nameofexecutable, object, patchlevel, procs, script, sharedlibextension, tclversion, or vars}
+} -result {unknown or ambiguous subcommand "c": must be args, body, class, cmdcount, commands, complete, coroutine, default, errorstack, exists, frame, functions, globals, hostname, level, library, linkedname, loaded, locals, nameofexecutable, object, patchlevel, procs, script, sharedlibextension, tclversion, or vars}
test info-21.4 {miscellaneous error conditions} -returnCodes error -body {
info l
-} -result {unknown or ambiguous subcommand "l": must be args, body, class, cmdcount, commands, complete, coroutine, default, errorstack, exists, frame, functions, globals, hostname, level, library, loaded, locals, nameofexecutable, object, patchlevel, procs, script, sharedlibextension, tclversion, or vars}
+} -result {unknown or ambiguous subcommand "l": must be args, body, class, cmdcount, commands, complete, coroutine, default, errorstack, exists, frame, functions, globals, hostname, level, library, linkedname, loaded, locals, nameofexecutable, object, patchlevel, procs, script, sharedlibextension, tclversion, or vars}
test info-21.5 {miscellaneous error conditions} -returnCodes error -body {
info s
-} -result {unknown or ambiguous subcommand "s": must be args, body, class, cmdcount, commands, complete, coroutine, default, errorstack, exists, frame, functions, globals, hostname, level, library, loaded, locals, nameofexecutable, object, patchlevel, procs, script, sharedlibextension, tclversion, or vars}
+} -result {unknown or ambiguous subcommand "s": must be args, body, class, cmdcount, commands, complete, coroutine, default, errorstack, exists, frame, functions, globals, hostname, level, library, linkedname, loaded, locals, nameofexecutable, object, patchlevel, procs, script, sharedlibextension, tclversion, or vars}
##
# ### ### ### ######### ######### #########
@@ -2415,6 +2415,31 @@ test info-39.0 {Bug 4b61afd660} -setup {
rename probe {}
} -result 3
+# -------------------------------------------------------------------------
+# info linkedname
+test info-41.0 {info linkedname - valid} -body {
+ proc getname {var} { upvar 1 $var up ; return [info linkedname up] }
+ set i 1
+ getname i
+} -result {i}
+test info-41.1 {info linkedname - valid} -body {
+ proc getname {var} { upvar 1 $var up ; return [info linkedname up] }
+ proc p {i} { return [getname i] }
+ p 2
+} -result {i}
+test info-41.2 {info linkedname - valid} -body {
+ proc getname {var} { upvar 1 $var up ; return [info linkedname up] }
+ array set a {1 one 2 two}
+ getname a(1)
+} -result {a(1)}
+test info-41.3 {info linkedname - no such variable} -body {
+ info linkedname foo
+} -returnCodes error -result {can't access "foo": no such variable}
+test info-41.4 {info linkedname - not a varlink object} -body {
+ set i 5
+ info linkedname i
+} -returnCodes error -result {can't access "i": variable isn't a link}
+
# cleanup
catch {namespace delete test_ns_info1 test_ns_info2}
::tcltest::cleanupTests