Tcl Source Code

Check-in [eae342ae08]
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:2 pcOnly tests require c drive to be shared, so I added a sharedCdrive constraint.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-1-branch-old
Files: files | file ages | folders
SHA1: eae342ae0831066b9b11640932c27a6b69b446e9
User & Date: hershey 1999-04-06 22:01:43
Context
1999-04-07
00:05
Decreased the timeout for DDE. check-in: ef9fdecc87 user: redman tags: core-8-1-branch-old
1999-04-06
22:01
2 pcOnly tests require c drive to be shared, so I added a sharedCdrive constraint. check-in: eae342ae08 user: hershey tags: core-8-1-branch-old
20:59
Adjusted error reporting in TclpRename to better handle common error condition on IRIX. The change... check-in: b03aba6368 user: rjohnson tags: core-8-1-branch-old
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to tests/fileName.test.

     6      6   #
     7      7   # Copyright (c) 1995-1996 Sun Microsystems, Inc.
     8      8   # Copyright (c) 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: fileName.test,v 1.1.2.8 1999/04/06 20:21:25 stanton Exp $
           13  +# RCS: @(#) $Id: fileName.test,v 1.1.2.9 1999/04/06 22:01:43 hershey 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   if {[info commands testsetplatform] == {}} {
    20     20       puts "This application hasn't been compiled with the \"testsetplatform\""
................................................................................
  1375   1375   test filename-16.10 {windows specific globbing} {pcOnly} {
  1376   1376       lsort [glob c:globTest\\\\*.bat]
  1377   1377   } {c:globTest/x1.BAT c:globTest/y1.Bat c:globTest/z1.bat}
  1378   1378   test filename-16.11 {windows specific globbing} {pcOnly} {
  1379   1379       lsort [glob c:\\\\globTest\\\\*.bat]
  1380   1380   } {c:/globTest/x1.BAT c:/globTest/y1.Bat c:/globTest/z1.bat}
  1381   1381   
  1382         -test filename-16.12 {windows specific globbing} {pcOnly} {
         1382  +# some tests require a shared C drive
         1383  +
         1384  +if {[catch {cd //[info hostname]/c}]} {
         1385  +    set ::tcltest::testConfig(sharedCdrive) 0
         1386  +} else {
         1387  +    set ::tcltest::testConfig(sharedCdrive) 1
         1388  +}
         1389  +
         1390  +test filename-16.12 {windows specific globbing} {pcOnly sharedCdrive} {
  1383   1391       cd //[info hostname]/c
  1384   1392       removeDirectory globTest
  1385   1393       makeDirectory globTest
  1386   1394       close [open globTest/x1.BAT w]
  1387   1395       close [open globTest/y1.Bat w]
  1388   1396       close [open globTest/z1.bat w]
  1389   1397       glob //[info hostname]/c/*Test
  1390   1398   } //[info hostname]/c/globTest
  1391         -test filename-16.13 {windows specific globbing} {pcOnly} {
         1399  +test filename-16.13 {windows specific globbing} {pcOnly sharedCdrive} {
  1392   1400       cd //[info hostname]/c
  1393   1401       removeDirectory globTest
  1394   1402       makeDirectory globTest
  1395   1403       close [open globTest/x1.BAT w]
  1396   1404       close [open globTest/y1.Bat w]
  1397   1405       close [open globTest/z1.bat w]
  1398   1406       glob "\\\\\\\\[info hostname]\\\\c\\\\*Test"