Tcl Source Code

Check-in [f6849d360d]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment: Fixed more tests.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-1-branch-old
Files: files | file ages | folders
SHA1: f6849d360db7608ab76611ec7a4c7801bcfd1e97
User & Date: rjohnson 1999-04-06 04:51:22
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to tests/interp.test.

     6      6   #
     7      7   # Copyright (c) 1995-1996 Sun Microsystems, Inc.
     8      8   # Copyright (c) 1998-1999 by Scriptics Corporation.
     9      9   #
    10     10   # See the file "license.terms" for information on usage and redistribution
    11     11   # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
    12     12   #
    13         -# RCS: @(#) $Id: interp.test,v 1.1.2.11 1999/04/06 04:27:03 rjohnson Exp $
           13  +# RCS: @(#) $Id: interp.test,v 1.1.2.12 1999/04/06 04:51:22 rjohnson Exp $
    14     14   
    15     15   if {[lsearch [namespace children] ::tcltest] == -1} {
    16     16       source [file join [pwd] [file dirname [info script]] defs.tcl]
    17     17   }
    18     18   
    19     19   # The set of hidden commands is platform dependent:
    20     20   
    21     21   if {"$tcl_platform(platform)" == "macintosh"} {
    22         -    set hidden_cmds {beep cd echo exit fconfigure file glob load ls open pwd socket source}
           22  +    set hidden_cmds {beep cd echo encoding exit fconfigure file glob load ls open pwd socket source}
    23     23   } else {
    24     24       set hidden_cmds {cd encoding exec exit fconfigure file glob load open pwd socket source}
    25     25   }
    26     26   
    27     27   foreach i [interp slaves] {
    28     28     interp delete $i
    29     29   }
................................................................................
  1678   1678       lappend l [interp aliases a]
  1679   1679       lappend l [lsort [interp hidden a]]
  1680   1680       a alias bar {}
  1681   1681       lappend l [interp aliases a]
  1682   1682       lappend l [lsort [interp hidden a]]
  1683   1683       interp delete a
  1684   1684       set l
  1685         -} {{cd encoding exec exit fconfigure file glob load open pwd socket source} bar {cd exec exit fconfigure file glob load open pwd socket source} bar {bar cd exec exit fconfigure file glob load open pwd socket source} {} {cd exec exit fconfigure file glob load open pwd socket source}} 
         1685  +} {{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}} 
  1686   1686   
  1687   1687   test interp-23.3 {testing hiding vs aliases} {macOnly} {
  1688   1688       catch {interp delete a}
  1689   1689       interp create a -safe
  1690   1690       set l ""
  1691   1691       lappend l [lsort [interp hidden a]]
  1692   1692       a alias bar bar