Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fixed more tests. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | core-8-1-branch-old |
| Files: | files | file ages | folders |
| SHA1: |
f6849d360db7608ab76611ec7a4c7801 |
| User & Date: | rjohnson 1999-04-06 04:51:22.000 |
Context
|
1999-04-06
| ||
| 05:50 | Updated for 8.1b3 check-in: 7fc5f3a9bd user: welch tags: core-8-1-branch-old | |
| 04:51 | Fixed more tests. check-in: f6849d360d user: rjohnson tags: core-8-1-branch-old | |
| 04:27 | Made internal functions call Tcl_GetCwd & Tcl_Chdir Fixed broken tests due to adding encoding funct... check-in: 4ee7449197 user: rjohnson tags: core-8-1-branch-old | |
Changes
Changes to tests/interp.test.
1 2 3 4 5 6 7 8 9 10 11 12 | # This file tests the multiple interpreter facility of Tcl # # This file contains a collection of tests for one or more of the Tcl # built-in commands. Sourcing this file into Tcl runs the tests and # generates output for errors. No output means no errors were found. # # Copyright (c) 1995-1996 Sun Microsystems, Inc. # Copyright (c) 1998-1999 by Scriptics Corporation. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # | | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
# This file tests the multiple interpreter facility of Tcl
#
# This file contains a collection of tests for one or more of the Tcl
# built-in commands. Sourcing this file into Tcl runs the tests and
# generates output for errors. No output means no errors were found.
#
# Copyright (c) 1995-1996 Sun Microsystems, Inc.
# Copyright (c) 1998-1999 by Scriptics Corporation.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) $Id: interp.test,v 1.1.2.12 1999/04/06 04:51:22 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
}
# The set of hidden commands is platform dependent:
if {"$tcl_platform(platform)" == "macintosh"} {
set hidden_cmds {beep cd echo encoding exit fconfigure file glob load ls open pwd socket source}
} else {
set hidden_cmds {cd encoding exec exit fconfigure file glob load open pwd socket source}
}
foreach i [interp slaves] {
interp delete $i
}
|
| ︙ | ︙ | |||
1678 1679 1680 1681 1682 1683 1684 |
lappend l [interp aliases a]
lappend l [lsort [interp hidden a]]
a alias bar {}
lappend l [interp aliases a]
lappend l [lsort [interp hidden a]]
interp delete a
set l
| | | 1678 1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 1692 |
lappend l [interp aliases a]
lappend l [lsort [interp hidden a]]
a alias bar {}
lappend l [interp aliases a]
lappend l [lsort [interp hidden a]]
interp delete a
set l
} {{cd encoding exec exit fconfigure file glob load open pwd socket source} bar {cd encoding exec exit fconfigure file glob load open pwd socket source} bar {bar cd encoding exec exit fconfigure file glob load open pwd socket source} {} {cd encoding exec exit fconfigure file glob load open pwd socket source}}
test interp-23.3 {testing hiding vs aliases} {macOnly} {
catch {interp delete a}
interp create a -safe
set l ""
lappend l [lsort [interp hidden a]]
a alias bar bar
|
| ︙ | ︙ |