diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2005-09-08 14:09:05 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2005-09-08 14:09:05 (GMT) |
| commit | 49c00d7396dbb3216c0d6de96176643df0ae40fe (patch) | |
| tree | c18e36b78553cd48da938eeae053a32dce60a34c /generic/tclTest.c | |
| parent | c7958aa907e245e18248e2ec5c1dfaa5b92be61d (diff) | |
| download | tcl-49c00d7396dbb3216c0d6de96176643df0ae40fe.zip tcl-49c00d7396dbb3216c0d6de96176643df0ae40fe.tar.gz tcl-49c00d7396dbb3216c0d6de96176643df0ae40fe.tar.bz2 | |
Test suite about fixed up for TIP#254
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 1c44d17..641c781 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTest.c,v 1.94 2005/09/08 13:40:08 dkf Exp $ + * RCS: @(#) $Id: tclTest.c,v 1.95 2005/09/08 14:09:05 dkf Exp $ */ #define TCL_TEST @@ -2560,7 +2560,6 @@ TestlinkCmd(dummy, interp, argc, argv) static double realVar = 1.23; static Tcl_WideInt wideVar = Tcl_LongAsWide(79); static char *stringVar = NULL; - static char charVar = '@'; static unsigned char ucharVar = 130; static short shortVar = 3000; @@ -2570,7 +2569,6 @@ TestlinkCmd(dummy, interp, argc, argv) static unsigned long ulongVar = 3456789012; static float floatVar = 4.5; static Tcl_WideUInt uwideVar = (Tcl_WideUInt) Tcl_LongAsWide(123); - static int created = 0; char buffer[2*TCL_DOUBLE_SPACE]; int writable, flag; |