summaryrefslogtreecommitdiffstats
path: root/testing/062_namespace_resolution.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'testing/062_namespace_resolution.tcl')
-rw-r--r--testing/062_namespace_resolution.tcl68
1 files changed, 0 insertions, 68 deletions
diff --git a/testing/062_namespace_resolution.tcl b/testing/062_namespace_resolution.tcl
deleted file mode 100644
index dcc6701..0000000
--- a/testing/062_namespace_resolution.tcl
+++ /dev/null
@@ -1,68 +0,0 @@
-#// objective: tests correct namespace resolution, only references/referencedby relations are relevant
-#// check: namespacen1.xml
-#// check: namespacen2.xml
-#// check: namespacen3.xml
-#// config: REFERENCED_BY_RELATION = yes
-#// config: REFERENCES_RELATION = yes
-#// config: EXTRACT_ALL = yes
-#// config: INLINE_SOURCES = yes
-
-# now: combine namespace eval and qualified names
-namespace eval n1 {
- proc p1 args {
- array set info [info frame 0]; puts -nonewline ->$info(proc)
- p2
- return
- }
- proc p2 args {
- array set info [info frame 0]; puts -nonewline ->$info(proc)
- return
- }
- namespace eval n1 {
- proc p1 args {
- array set info [info frame 0]; puts -nonewline ->$info(proc)
- return
- }
- }
-}
-# same thing, but fully qualified proc names
-namespace eval ::n2 {}
-namespace eval ::n2::n2 {}
-proc ::n2::p1 args {
- array set info [info frame 0]; puts -nonewline ->$info(proc)
- p2
- return
-}
-proc ::n2::p2 args {
- array set info [info frame 0]; puts -nonewline ->$info(proc)
- return
-}
-proc ::n2::n2::p2 args {
- array set info [info frame 0]; puts -nonewline ->$info(proc)
- return
-}
-# same thing, without leading ::
-namespace eval n3 {}
-namespace eval n3::n3 {}
-proc n3::p1 args {
- array set info [info frame 0]; puts -nonewline ->$info(proc)
- p2
- return
-}
-proc n3::p2 args {
- array set info [info frame 0]; puts -nonewline ->$info(proc)
- return
-}
-proc n3::n3::p2 args {
- array set info [info frame 0]; puts -nonewline ->$info(proc)
- return
-}
-# now, check with tcl what is called
-n1::p1
-puts ""
-n2::p1
-puts ""
-n3::p1
-puts ""
-exit
-