Tcl Source Code

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

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

Overview
Comment:normalize package provide for tcltests 0.1 (declaration moved from pkgIndex.tcl to package source)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA3-256:d1a1d17e9c1cddf99f5e3b4a9e788dee52055cf7790be4735df2c00013245e72
User & Date: sebres 2019-01-14 19:51:02
Context
2019-01-22
16:52
Remove some mac OSX pre-10.4 stuff, which is outdated: current build doesn't support this anymore check-in: 5f09219d79 user: jan.nijtmans tags: core-8-6-branch
2019-01-14
19:59
merge 8.6, conflicts resolved in win/Makefile.in (fixed auto-path and load tcltests for ROOT_DIR/tes... check-in: f051b4e598 user: sebres tags: core-8-branch
19:51
normalize package provide for tcltests 0.1 (declaration moved from pkgIndex.tcl to package source) check-in: d1a1d17e9c user: sebres tags: core-8-6-branch
17:04
mingw/win-autoconf build: provide tcltest-executable (for consistency reasons); normalizes loading p... check-in: b35d1cc2ea user: sebres tags: core-8-6-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/pkgIndex.tcl.

1
2
3
4
5
6
#! /usr/bin/env tclsh

package ifneeded tcltests 0.1 "
    source [list $dir/tcltests.tcl]
    package provide tcltests 0.1
"


|
<
<
<
1
2
3



#! /usr/bin/env tclsh

package ifneeded tcltests 0.1 [list source $dir/tcltests.tcl]



Changes to tests/tcltests.tcl.

5
6
7
8
9
10
11



testConstraint exec          [llength [info commands exec]]
testConstraint fcopy         [llength [info commands fcopy]]
testConstraint fileevent     [llength [info commands fileevent]]
testConstraint thread        [
    expr {0 == [catch {package require Thread 2.7-}]}]
testConstraint notValgrind   [expr {![testConstraint valgrind]}]









>
>
5
6
7
8
9
10
11
12
13

testConstraint exec          [llength [info commands exec]]
testConstraint fcopy         [llength [info commands fcopy]]
testConstraint fileevent     [llength [info commands fileevent]]
testConstraint thread        [
    expr {0 == [catch {package require Thread 2.7-}]}]
testConstraint notValgrind   [expr {![testConstraint valgrind]}]

package provide tcltests 0.1