summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog7
-rw-r--r--tests/string.test50
-rw-r--r--win/README15
3 files changed, 58 insertions, 14 deletions
diff --git a/ChangeLog b/ChangeLog
index 8b851d6..bf13767 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2005-07-22 Mo DeJong <mdejong@users.sourceforge.net>
+
+ * tests/string.test: Add string is tests for
+ functionality that was not tested.
+ * win/README: Update msys + mingw URL.
+ Remove old Cygwin + mingw info.
+
2005-07-23 Miguel Sofer <msofer@users.sf.net>
* generic/tclExecute.c (INST_DICT_*): stop 2 compiler
diff --git a/tests/string.test b/tests/string.test
index 02555a4..2cfd78a 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: string.test,v 1.49 2005/05/12 22:48:17 dgp Exp $
+# RCS: @(#) $Id: string.test,v 1.50 2005/07/23 02:59:59 mdejong Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -1422,6 +1422,54 @@ test string-23.0 {string is boolean, Bug 1187123} testindexobj {
string is boolean $x
} 0
+test string-23.1 {string is command with empty string} {
+ set s ""
+ list \
+ [string is alnum $s] \
+ [string is alpha $s] \
+ [string is ascii $s] \
+ [string is control $s] \
+ [string is boolean $s] \
+ [string is digit $s] \
+ [string is double $s] \
+ [string is false $s] \
+ [string is graph $s] \
+ [string is integer $s] \
+ [string is lower $s] \
+ [string is print $s] \
+ [string is punct $s] \
+ [string is space $s] \
+ [string is true $s] \
+ [string is upper $s] \
+ [string is wordchar $s] \
+ [string is xdigit $s] \
+
+} {1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1}
+
+test string-23.2 {string is command with empty string} {
+ set s ""
+ list \
+ [string is alnum -strict $s] \
+ [string is alpha -strict $s] \
+ [string is ascii -strict $s] \
+ [string is control -strict $s] \
+ [string is boolean -strict $s] \
+ [string is digit -strict $s] \
+ [string is double -strict $s] \
+ [string is false -strict $s] \
+ [string is graph -strict $s] \
+ [string is integer -strict $s] \
+ [string is lower -strict $s] \
+ [string is print -strict $s] \
+ [string is punct -strict $s] \
+ [string is space -strict $s] \
+ [string is true -strict $s] \
+ [string is upper -strict $s] \
+ [string is wordchar -strict $s] \
+ [string is xdigit -strict $s] \
+
+} {0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0}
+
# cleanup
::tcltest::cleanupTests
return
diff --git a/win/README b/win/README
index dff16e8..6b57f16 100644
--- a/win/README
+++ b/win/README
@@ -1,6 +1,6 @@
Tcl 8.5 for Windows
-RCS: @(#) $Id: README,v 1.32 2004/07/01 10:08:11 dkf Exp $
+RCS: @(#) $Id: README,v 1.33 2005/07/23 02:59:59 mdejong Exp $
1. Introduction
---------------
@@ -30,7 +30,7 @@ In order to compile Tcl for Windows, you need the following:
Msys + Mingw
- http://prdownloads.sourceforge.net/tcl/msys_mingw6.zip
+ http://prdownloads.sourceforge.net/tcl/msys_mingw7.zip
This Msys + Mingw download is the minimal environment
needed to build Tcl/Tk under Windows. It includes a
@@ -41,17 +41,6 @@ In order to compile Tcl for Windows, you need the following:
to launch the msys shell, you then run the configure
script in the tcl/win directory.
- or
-
- Cygwin 1.1 or newer (See http://sources.redhat.com/cygwin)
-
- Mingw 2.0 (http://prdownloads.sourceforge.net/mingw/MinGW-2.0.0-3.exe)
-
- Extract the contents of the archive file into /usr/local/mingw
- and place /usr/local/mingw/bin at the front of your PATH env var
- before running the configure script in the tcl/win directory.
-
-
In practice, this release is built with Visual C++ 6.0 and the TEA
Makefile.