summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-06 20:40:57 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-06 20:40:57 (GMT)
commit4d73199fb21e569752b34938e8155e9e6669538c (patch)
treed8e8940c78ff44216148bd4975930cf8a4225869 /tests
parenta9a9afc838c1d357e9a50c1045a90276f49edb42 (diff)
downloadtcl-4d73199fb21e569752b34938e8155e9e6669538c.zip
tcl-4d73199fb21e569752b34938e8155e9e6669538c.tar.gz
tcl-4d73199fb21e569752b34938e8155e9e6669538c.tar.bz2
Don't depend on Spencer-specific regexp syntax (/u and /U) any more in unrelated places
. Bump http package to 2.8.6.
Diffstat (limited to 'tests')
-rw-r--r--tests/env.test2
-rw-r--r--tests/exec.test2
2 files changed, 2 insertions, 2 deletions
diff --git a/tests/env.test b/tests/env.test
index 9010f52..e75d517 100644
--- a/tests/env.test
+++ b/tests/env.test
@@ -70,7 +70,7 @@ set printenvScript [makeFile {
}
proc mangle s {
regsub -all {\[|\\|\]} $s {\\&} s
- regsub -all {[\u0000-\u001f\u007f-\uffff]} $s {[manglechar &]} s
+ regsub -all "\[\u0000-\u001f\u007f-\uffff\]" $s {[manglechar &]} s
return [subst -novariables $s]
}
proc manglechar c {
diff --git a/tests/exec.test b/tests/exec.test
index 64d3517..871c0c5 100644
--- a/tests/exec.test
+++ b/tests/exec.test
@@ -157,7 +157,7 @@ test exec-2.6 {redirecting input from immediate source, with UTF} -setup {
encoding system iso8859-1
proc quotenonascii s {
regsub -all {\[|\\|\]} $s {\\&} s
- regsub -all {[\u007f-\uffff]} $s \
+ regsub -all "\[\u007f-\uffff\]" $s \
{[apply {c {format {\u%04x} [scan $c %c]}} &]} s
return [subst -novariables $s]
}