Tk Source Code

Check-in [79464cbb]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2018 Conference, Houston/TX, US, Oct 15-19
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Aug 20.

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

Overview
Comment:Remove superfluous code in clipboard-4.3 and clipboard-4.5 tests
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | bug-b947864419
Files: files | file ages | folders
SHA3-256:79464cbbd3e04d024434893c2335222b1d1b2c5875be365b2c2d3a7197edf571
User & Date: fvogel 2018-07-08 20:08:01
Context
2018-07-17
18:53
Fix [b947864419]: clipboard-4.1, -4.2, -4.4 fail on macOS check-in: 1b121d88 user: fvogel tags: core-8-6-branch
2018-07-08
20:08
Remove superfluous code in clipboard-4.3 and clipboard-4.5 tests Closed-Leaf check-in: 79464cbb user: fvogel tags: bug-b947864419
19:58
Fix [b947864419]: clipboard-4.1, -4.2, -4.4 fail on macOS check-in: b4c5f163 user: fvogel tags: bug-b947864419
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/clipboard.test.

157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
...
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
}  -returnCodes error -result {CLIPBOARD selection doesn't exist or form "STRING" not defined}
test clipboard-4.3 {ClipboardLostSel procedure} -setup {
    clipboard clear
} -body {
    clipboard append "Test"
    clipboard append -t TEST "Test2"
    selection clear -s CLIPBOARD
    catch {clipboard get}
	clipboard get -t TEST
} -cleanup {
    clipboard clear
}  -returnCodes error -result {CLIPBOARD selection doesn't exist or form "TEST" not defined}
test clipboard-4.4 {ClipboardLostSel procedure} -setup {
    clipboard clear
} -body {
    clipboard append "Test"
................................................................................
test clipboard-4.5 {ClipboardLostSel procedure} -setup {
    clipboard clear
} -body {
    clipboard append "Test"
    clipboard append -t TEST "Test2"
    clipboard append "Test3"
    selection clear -s CLIPBOARD
    catch {clipboard get}
	clipboard get -t TEST
} -cleanup {
    clipboard clear
}  -returnCodes error -result {CLIPBOARD selection doesn't exist or form "TEST" not defined}



##############################################################################







<
|







 







<
|







157
158
159
160
161
162
163

164
165
166
167
168
169
170
171
...
179
180
181
182
183
184
185

186
187
188
189
190
191
192
193
}  -returnCodes error -result {CLIPBOARD selection doesn't exist or form "STRING" not defined}
test clipboard-4.3 {ClipboardLostSel procedure} -setup {
    clipboard clear
} -body {
    clipboard append "Test"
    clipboard append -t TEST "Test2"
    selection clear -s CLIPBOARD

    clipboard get -t TEST
} -cleanup {
    clipboard clear
}  -returnCodes error -result {CLIPBOARD selection doesn't exist or form "TEST" not defined}
test clipboard-4.4 {ClipboardLostSel procedure} -setup {
    clipboard clear
} -body {
    clipboard append "Test"
................................................................................
test clipboard-4.5 {ClipboardLostSel procedure} -setup {
    clipboard clear
} -body {
    clipboard append "Test"
    clipboard append -t TEST "Test2"
    clipboard append "Test3"
    selection clear -s CLIPBOARD

    clipboard get -t TEST
} -cleanup {
    clipboard clear
}  -returnCodes error -result {CLIPBOARD selection doesn't exist or form "TEST" not defined}



##############################################################################