Tcl Source Code

Check-in [3bfdd781da]
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:Disable windows builds. Make test failures fatal.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | travis-8.5
Files: files | file ages | folders
SHA3-256: 3bfdd781da3541e16b99a7940f8922ecd4ef19cd0f2f6a87ddcdc7ea5f9feaa3
User & Date: dkf 2018-10-21 10:16:05
Context
2018-10-22
13:11
Expand the build matrix Closed-Leaf check-in: e8f9027ec2 user: dkf tags: travis-8.5
2018-10-21
10:17
Disable windows builds. Make test failures fatal. check-in: 051fd3862f user: dkf tags: travis-8.6
10:16
Disable windows builds. Make test failures fatal. check-in: 3bfdd781da user: dkf tags: travis-8.5
2018-10-20
18:02
Remove old README check-in: c7d905abde user: dkf tags: travis-8.5
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to .travis.yml.

44
45
46
47
48
49
50
51

52
53
54
55
56
57

58
59
60
61
62
63
    - os: osx
      osx_image: xcode8
      env:
        - MATRIX_EVAL="BUILD_DIR=unix"
    - os: osx
      osx_image: xcode8
      env:
        - MATRIX_EVAL="BUILD_DIR=macosx"

    - os: windows
      env:
        - MATRIX_EVAL="BUILD_DIR=win"

before_install:
  - eval "${MATRIX_EVAL}"

  - cd ${BUILD_DIR}
install:
  - ./configure
script:
  - make
  - make test






|
>
|
|
|



>


|



44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
    - os: osx
      osx_image: xcode8
      env:
        - MATRIX_EVAL="BUILD_DIR=unix"
    - os: osx
      osx_image: xcode8
      env:
        - MATRIX_EVAL="BUILD_DIR=macosx && NO_DIRECT_CONFIGURE=1"
### C builds not currently supported on Windows instances
#    - os: windows
#      env:
#        - MATRIX_EVAL="BUILD_DIR=win"

before_install:
  - eval "${MATRIX_EVAL}"
  - export ERROR_ON_FAILURES=1
  - cd ${BUILD_DIR}
install:
  - test -z "$NO_DIRECT_CONFIGURE" || ./configure
script:
  - make
  - make test

Changes to library/tcltest/tcltest.tcl.

2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704
2705
2706
....
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
#	skip patterns provided.  after sourcing test files, it goes on
#	to source all.tcl files in matching test subdirectories.
#
# Arguments:
#	shell being tested
#
# Results:
#	None.
#
# Side effects:
#	None.

proc tcltest::runAllTests { {shell ""} } {
    variable testSingleFile
    variable numTestFiles
................................................................................
	uplevel 1 [list ::source [file join $directory all.tcl]]
	
	set endTime [eval $timeCmd]
	puts [outputChannel] "\n$dir test ended at $endTime"
	puts [outputChannel] ""
	puts [outputChannel] [string repeat ~ 44]
    }
    return
}

#####################################################################

# Test utility procs - not used in tcltest, but may be useful for
# testing.







|







 







|







2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704
2705
2706
....
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
#	skip patterns provided.  after sourcing test files, it goes on
#	to source all.tcl files in matching test subdirectories.
#
# Arguments:
#	shell being tested
#
# Results:
#	Whether there were any failures.
#
# Side effects:
#	None.

proc tcltest::runAllTests { {shell ""} } {
    variable testSingleFile
    variable numTestFiles
................................................................................
	uplevel 1 [list ::source [file join $directory all.tcl]]
	
	set endTime [eval $timeCmd]
	puts [outputChannel] "\n$dir test ended at $endTime"
	puts [outputChannel] ""
	puts [outputChannel] [string repeat ~ 44]
    }
    return [info exists testFileFailures]
}

#####################################################################

# Test utility procs - not used in tcltest, but may be useful for
# testing.

Changes to tests/all.tcl.

10
11
12
13
14
15
16


17
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

package require Tcl 8.5
package require tcltest 2.2
namespace import tcltest::*
configure {*}$argv -testdir [file dir [info script]]


runAllTests






>
>
|
10
11
12
13
14
15
16
17
18
19
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

package require Tcl 8.5
package require tcltest 2.2
namespace import tcltest::*
configure {*}$argv -testdir [file dir [info script]]
set ErrorOnFailures [info exists env(ERROR_ON_FAILURES)]
unset -nocomplain env(ERROR_ON_FAILURES)
if {[runAllTests] && $ErrorOnFailures} {exit 1}