Tcl Library Source Code

Differences From Artifact [d2ecc61520]:

• File modules/textutil/tabify.test — part of check-in [4dec80260b] at 2002-02-26 23:31:09 on branch trunk — Fix for #521590 "tabify2/untabify2 fails on empty string" (user: jenglish size: 4918)

To Artifact [1c26b218a6]:

• File modules/textutil/tabify.test — part of check-in [e728b2e380] at 2006-01-22 00:27:21 on branch trunk — Removed comon test constrants from 'all.tcl', ditto 'wrongNumArgs' and 'tooManyArgs' emulations. This is now all in the common test support code. Put common test constraints into the common test support code. Fixed expected errorCode in math-7.4 Replaced 'queryConstraint' with regular 'testConstraint'. Removed more copies of the common command "dictsort". Hooked the "[s-z]*" packages into the new common test support code. Hooked the "[m-r]*" packages into the new common test support code. Updated Tcl dependency information for logger::utilities, requires 8.4 due to use of new trace APIs. Hooked the "[hijkl]*" packages into the new common test support code. Hooked the "[efg]*" packages into the new common test support code. Hooked the "[cd]*" packages into the new common test support code. Fixed usage of 8.4isms in package declared to work for 8.2+. Better emulation of testConstraint command, with query ability. Hooked all "[ab]*" packages into the new test support code. Fixed reversed guard conditions, and polished the error messages a bit. (user: andreas_kupries size: 5113)

1
2


3
4
5
6
7

8
9
10
11









12
13
14
15
16
17
18

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

-

+
+





+
-
-
-
-
+
+
+
+
+
+
+
+
+

# tabify.test:  tests for the tabify sub-package of the textutil package.
# -*- tcl -*-
# tabify.test:  tests for the tabify sub-package of the textutil package.
#
# 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.
#

# -------------------------------------------------------------------------
if {[lsearch [namespace children] ::tcltest] == -1} {
    package require tcltest
    namespace import ::tcltest::*
}

source [file join \
	[file dirname [file dirname [file join [pwd] [info script]]]] \
	devtools testutilities.tcl]

testsNeedTcl     8.2
testsNeedTcltest 1.0

# -------------------------------------------------------------------------

if { [ lsearch [ namespace children ] "::textutil" ] == -1 } then {
    source [file join [file dirname [info script]] textutil.tcl]
}

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