From 6f173b7f6fa783afed059c46c49241bebb0995b7 Mon Sep 17 00:00:00 2001 From: mdejong Date: Sat, 23 Jul 2005 02:59:56 +0000 Subject: * tests/string.test: Add string is tests for functionality that was not tested. * win/README: Update msys + mingw URL. Remove old Cygwin + mingw info. --- ChangeLog | 7 +++++++ tests/string.test | 50 +++++++++++++++++++++++++++++++++++++++++++++++++- win/README | 15 ++------------- 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 + + * 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 * 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. -- cgit v0.12