diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2023-01-27 00:46:36 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2023-01-27 00:46:36 (GMT) |
| commit | 23e46e5885c4d067e714ea71ec37d6cdb915d47c (patch) | |
| tree | 174f20a0f04f109231aab31fa33be429e6f06d07 | |
| parent | 97041036d3837f2043eb4a5d4d9b44ad79038ddd (diff) | |
| parent | d271c9f407a60528785465284451c752639b1128 (diff) | |
| download | tcl-23e46e5885c4d067e714ea71ec37d6cdb915d47c.zip tcl-23e46e5885c4d067e714ea71ec37d6cdb915d47c.tar.gz tcl-23e46e5885c4d067e714ea71ec37d6cdb915d47c.tar.bz2 | |
Merge 8.7
| -rw-r--r-- | generic/tclBasic.c | 1 | ||||
| -rw-r--r-- | tests/encoding.test | 8 |
2 files changed, 7 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 561e4cd..669b1ca 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -9833,6 +9833,7 @@ TclNRCoroutineObjCmd( corPtr->running.lineLABCPtr = corPtr->lineLABCPtr; corPtr->stackLevel = NULL; corPtr->auxNumLevels = 0; + corPtr->yieldPtr = NULL; /* * Create the coro's execEnv, switch to it to push the exit and coro diff --git a/tests/encoding.test b/tests/encoding.test index 48b0203..fdff367 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -514,8 +514,11 @@ test encoding-17.10 {Utf32ToUtfProc} -body { encoding convertfrom -nocomplain utf-32 "\xFF\xFF\xFF\xFF" } -result \uFFFD -test encoding-18.1 {TableToUtfProc} { -} {} + +test encoding-18.1 {TableToUtfProc error on invalid input with -strict} -body { + list [catch {encoding convertto -strict jis0208 \\} res] $res +} -result {1 {unexpected character at index 0: 'U+00005C'}} + test encoding-19.1 {TableFromUtfProc} { } {} @@ -918,6 +921,7 @@ test encoding-29.0 {get encoding nul terminator lengths} -constraints { [testencoding nullength ksc5601] } -result {1 2 4 2 2} + # cleanup namespace delete ::tcl::test::encoding ::tcltest::cleanupTests |