9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
-
+
|
# Copyright (c) 1994-1997 Sun Microsystems, Inc.
# Copyright (c) 1998-1999 by Scriptics Corporation.
# Copyright (c) 2006 ActiveState
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) $Id: info.test,v 1.47.2.11 2010/02/02 20:51:47 andreas_kupries Exp $
# RCS: @(#) $Id: info.test,v 1.47.2.12 2010/08/03 16:50:49 andreas_kupries Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
namespace import -force ::tcltest::*
}
# Set up namespaces needed to test operation of "info args", "info body",
|
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
|
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
|
-
+
-
+
|
if "$$y != 1" {
} else {
print_one
} ;#line 1722^
# Do not put the comments listing the line numbers into the
# branches. We need shared literals, and the comments would
# them different, thus unshared.
# make them different, thus unshared.
}
proc get_frame_info { cmd_str op } {
lappend ::result [reduce [eval {info frame 9}]]
lappend ::result [reduce [eval {info frame -3}]]
}
trace add execution print_one enter get_frame_info
} -body {
test_info_frame;
join $result \n
} -cleanup {
trace remove execution print_one enter get_frame_info
|