Jim Tcl
Check-in [2db7fb9400]
Not logged in

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

Overview
Comment:prefix.test: Use the correct package name

Signed-off-by: Steve Bennett <steveb@workware.net.au>

Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:2db7fb9400311ce1394f90f4801988a0e9c2d570
User & Date: steveb@workware.net.au 2017-09-21 06:31:35
Context
2017-09-21
06:31
auto.def: tclprefix should not be enabled by default

It is listed as not enabled by default, but it is enabled by default

Signed-off-by: Steve Bennett <steveb@workware.net.au> check-in: fa321624e5 user: steveb@workware.net.au tags: trunk

06:31
prefix.test: Use the correct package name

Signed-off-by: Steve Bennett <steveb@workware.net.au> check-in: 2db7fb9400 user: steveb@workware.net.au tags: trunk

06:31
tcltest: Support 'needs package xxx'

Makes it easy to skip all tests if the package isn't available

Signed-off-by: Steve Bennett <steveb@workware.net.au> check-in: c4f990b209 user: steveb@workware.net.au tags: trunk

Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/prefix.test.

10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
# Copyright (c) 2001 by Kevin B. Kenny.  All rights reserved.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

source [file dirname [info script]]/testing.tcl

needs cmd tcl::prefix prefix
testConstraint namespace [expr {[info commands namespace] ne ""}]

test string-26.1 {tcl::prefix, too few args} -body {
    tcl::prefix match a
} -returnCodes 1 -match glob -result {wrong # args: should be "tcl::prefix match ?options*? table string"}
test string-26.1.1 {tcl::prefix, too few args} -body {
    tcl::prefix







|







10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
# Copyright (c) 2001 by Kevin B. Kenny.  All rights reserved.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

source [file dirname [info script]]/testing.tcl

needs cmd tcl::prefix tclprefix
testConstraint namespace [expr {[info commands namespace] ne ""}]

test string-26.1 {tcl::prefix, too few args} -body {
    tcl::prefix match a
} -returnCodes 1 -match glob -result {wrong # args: should be "tcl::prefix match ?options*? table string"}
test string-26.1.1 {tcl::prefix, too few args} -body {
    tcl::prefix