Tcl Source Code

Check-in [f28e0cda05]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Better testevent cleanup and event loop management
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: f28e0cda0570e12651cd99ec27c3051472d618ba
User & Date: dgp 2013-01-31 04:07:11
Context
2013-01-31
04:34
For traces and embedding support, select modernizations from Patrick Fradin. check-in: d36209124c user: dgp tags: trunk
04:14
merge trunk check-in: 1eee93abda user: dgp tags: dgp-refactor
04:07
Better testevent cleanup and event loop management check-in: f28e0cda05 user: dgp tags: trunk
2013-01-30
22:40
Remove old vars and tests, now unused, one that collides with tcltest. check-in: 744155fc38 user: dgp tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/parse.test.

1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
    testparser {\x12X} 4
} {- {\x12} 1 word {\x12} 1 backslash {\x12} 0 X}
test parse-20.12 {TclParseBackslash: truncated escape} testparser {
    testparser {\x12X} 5
} {- {\x12X} 1 word {\x12X} 2 backslash {\x12} 0 text X 0 {}}

test parse-21.0 {Bug 1884496} testevent {
    set ::script {set a [p]; return -level 0 $a}
    proc ::p {} {string first s $::script}
    testevent queue a head $::script
    update
    testevent delete a
} {}

cleanupTests
}

namespace delete ::tcl::test::parse
return







|


<
|







1088
1089
1090
1091
1092
1093
1094
1095
1096
1097

1098
1099
1100
1101
1102
1103
1104
1105
    testparser {\x12X} 4
} {- {\x12} 1 word {\x12} 1 backslash {\x12} 0 X}
test parse-20.12 {TclParseBackslash: truncated escape} testparser {
    testparser {\x12X} 5
} {- {\x12X} 1 word {\x12X} 2 backslash {\x12} 0 text X 0 {}}

test parse-21.0 {Bug 1884496} testevent {
    set ::script {testevent delete a; set a [p]; set ::done $a}
    proc ::p {} {string first s $::script}
    testevent queue a head $::script

    vwait done
} {}

cleanupTests
}

namespace delete ::tcl::test::parse
return