diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-06 20:40:57 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-06 20:40:57 (GMT) |
| commit | 4d73199fb21e569752b34938e8155e9e6669538c (patch) | |
| tree | d8e8940c78ff44216148bd4975930cf8a4225869 /tests | |
| parent | a9a9afc838c1d357e9a50c1045a90276f49edb42 (diff) | |
| download | tcl-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.test | 2 | ||||
| -rw-r--r-- | tests/exec.test | 2 |
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] } |