diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-26 13:45:31 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-26 13:45:31 (GMT) |
| commit | 517c43964819a77fc1e9718047ec1ed921a4657d (patch) | |
| tree | 23345cc24d5a095143de2feacb5581f5fd8a2837 | |
| parent | 4f868f4026ad68c90c861dcb715d33738e49b366 (diff) | |
| parent | d04358a7db334200fd94ee8887cb772c066ff347 (diff) | |
| download | tcl-517c43964819a77fc1e9718047ec1ed921a4657d.zip tcl-517c43964819a77fc1e9718047ec1ed921a4657d.tar.gz tcl-517c43964819a77fc1e9718047ec1ed921a4657d.tar.bz2 | |
Merge 8.6
| -rw-r--r-- | tests/word.test | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/tests/word.test b/tests/word.test index 8e5bac5..f616064 100644 --- a/tests/word.test +++ b/tests/word.test @@ -1,9 +1,7 @@ # This file is a Tcl script to test the [tcl_startOf|endOf]* functions in # word.tcl. It is organized in the standard fashion for Tcl tests. # -# Copyright © 1994 The Regents of the University of California. -# Copyright © 1994-1995 Sun Microsystems, Inc. -# Copyright © 1998-1999 Scriptics Corporation. +# Copyright (c) 2024 Jan Nijtmans # All rights reserved. if {"::tcltest" ni [namespace children]} { @@ -72,7 +70,7 @@ test word-4.7 {tcl_startOfPreviousWord} -body { test word-4.8 {tcl_startOfPreviousWord} -body { tcl_startOfPreviousWord "ab cd" {} } -result -1 -test word-4.9 {tcl_startOfPreviousWord} -body { +test word-4.9 {tcl_startOfPreviousWord, bug [16e25e1402]} -body { tcl_startOfPreviousWord "ab cd" end-1 } -result 0 |