summaryrefslogtreecommitdiffstats
path: root/tests/clipboard.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/clipboard.test')
-rw-r--r--tests/clipboard.test361
1 files changed, 122 insertions, 239 deletions
diff --git a/tests/clipboard.test b/tests/clipboard.test
index 6077940..37e45a3 100644
--- a/tests/clipboard.test
+++ b/tests/clipboard.test
@@ -11,8 +11,7 @@
# environment variable TK_ALT_DISPLAY is set to an alternate display.
#
-package require tcltest 2.2
-namespace import ::tcltest::*
+package require tcltest 2.1
eval tcltest::configure $argv
tcltest::loadTestedCommands
@@ -24,189 +23,124 @@ foreach i {a b c d e f g j h i j k l m o p q r s t u v w x y z} {
}
# Now we start the main body of the test code
-
-test clipboard-1.1 {ClipboardHandler procedure} -setup {
+
+test clipboard-1.1 {ClipboardHandler procedure} {
clipboard clear
-} -body {
clipboard append "test"
clipboard get
-} -cleanup {
- clipboard clear
-} -result {test}
-test clipboard-1.2 {ClipboardHandler procedure} -setup {
+} {test}
+test clipboard-1.2 {ClipboardHandler procedure} {
clipboard clear
-} -body {
clipboard append "test"
clipboard append "ing"
clipboard get
-} -cleanup {
+} {testing}
+test clipboard-1.3 {ClipboardHandler procedure} {
clipboard clear
-} -result {testing}
-test clipboard-1.3 {ClipboardHandler procedure} -setup {
- clipboard clear
-} -body {
clipboard append "t"
clipboard append "e"
clipboard append "s"
clipboard append "t"
clipboard get
-} -cleanup {
- clipboard clear
-} -result {test}
-test clipboard-1.4 {ClipboardHandler procedure} -setup {
+} {test}
+test clipboard-1.4 {ClipboardHandler procedure} {
clipboard clear
-} -body {
clipboard append $longValue
clipboard get
-} -cleanup {
+} "$longValue"
+test clipboard-1.5 {ClipboardHandler procedure} {
clipboard clear
-} -result "$longValue"
-test clipboard-1.5 {ClipboardHandler procedure} -setup {
- clipboard clear
-} -body {
clipboard append $longValue
clipboard append "test"
clipboard get
-} -cleanup {
- clipboard clear
-} -result "${longValue}test"
-test clipboard-1.6 {ClipboardHandler procedure} -setup {
+} "${longValue}test"
+test clipboard-1.6 {ClipboardHandler procedure} {
clipboard clear
-} -body {
clipboard append -t TEST $longValue
clipboard append -t STRING "test"
- list [clipboard get -t STRING] [clipboard get -t TEST]
-} -cleanup {
+ list [clipboard get -t STRING] \
+ [clipboard get -t TEST]
+} [list test $longValue]
+test clipboard-1.7 {ClipboardHandler procedure} {
clipboard clear
-} -result [list test $longValue]
-test clipboard-1.7 {ClipboardHandler procedure} -setup {
- clipboard clear
-} -body {
clipboard append -t TEST [string range $longValue 1 4000]
clipboard append -t STRING "test"
- list [clipboard get -t STRING] [clipboard get -t TEST]
-} -cleanup {
- clipboard clear
-} -result [list test [string range $longValue 1 4000]]
-test clipboard-1.8 {ClipboardHandler procedure} -setup {
+ list [clipboard get -t STRING] \
+ [clipboard get -t TEST]
+} [list test [string range $longValue 1 4000]]
+test clipboard-1.8 {ClipboardHandler procedure} {
clipboard clear
-} -body {
clipboard append ""
clipboard get
-} -cleanup {
+} {}
+test clipboard-1.9 {ClipboardHandler procedure} {
clipboard clear
-} -result {}
-test clipboard-1.9 {ClipboardHandler procedure} -setup {
- clipboard clear
-} -body {
clipboard append ""
clipboard append "Test"
clipboard get
-} -cleanup {
- clipboard clear
-} -result {Test}
+} {Test}
##############################################################################
-test clipboard-2.1 {ClipboardAppHandler procedure} -setup {
+test clipboard-2.1 {ClipboardAppHandler procedure} {
set oldAppName [tk appname]
- clipboard clear
-} -body {
tk appname UnexpectedName
+ clipboard clear
clipboard append -type NEW_TYPE Data
- selection get -selection CLIPBOARD -type TK_APPLICATION
-} -cleanup {
+ set result [selection get -selection CLIPBOARD -type TK_APPLICATION]
tk appname $oldAppName
- clipboard clear
-} -result {UnexpectedName}
+ set result
+} {UnexpectedName}
##############################################################################
-test clipboard-3.1 {ClipboardWindowHandler procedure} -setup {
+test clipboard-3.1 {ClipboardWindowHandler procedure} {
set oldAppName [tk appname]
- clipboard clear
-} -body {
tk appname UnexpectedName
+ clipboard clear
clipboard append -type NEW_TYPE Data
- selection get -selection CLIPBOARD -type TK_WINDOW
-} -cleanup {
+ set result [selection get -selection CLIPBOARD -type TK_WINDOW]
tk appname $oldAppName
- clipboard clear
-} -result {.}
+ set result
+} {.}
##############################################################################
-test clipboard-4.1 {ClipboardLostSel procedure} -setup {
+test clipboard-4.1 {ClipboardLostSel procedure} {
clipboard clear
-} -body {
clipboard append "Test"
selection clear -s CLIPBOARD
- clipboard get
-} -cleanup {
- clipboard clear
-} -returnCodes error -result {CLIPBOARD selection doesn't exist or form "STRING" not defined}
-test clipboard-4.2 {ClipboardLostSel procedure} -setup {
- clipboard clear
-} -body {
- clipboard append "Test"
- clipboard append -t TEST "Test2"
- selection clear -s CLIPBOARD
- clipboard get
-} -cleanup {
- clipboard clear
-} -returnCodes error -result {CLIPBOARD selection doesn't exist or form "STRING" not defined}
-test clipboard-4.3 {ClipboardLostSel procedure} -setup {
+ list [catch {clipboard get} msg] $msg
+} {1 {CLIPBOARD selection doesn't exist or form "STRING" not defined}}
+test clipboard-4.2 {ClipboardLostSel procedure} {
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"
- clipboard append -t TEST "Test2"
- clipboard append "Test3"
- selection clear -s CLIPBOARD
- clipboard get
-} -cleanup {
+ list [catch {clipboard get} msg] $msg \
+ [catch {clipboard get -t TEST} msg] $msg
+} {1 {CLIPBOARD selection doesn't exist or form "STRING" not defined} 1 {CLIPBOARD selection doesn't exist or form "TEST" not defined}}
+test clipboard-4.3 {ClipboardLostSel procedure} {
clipboard clear
-} -returnCodes error -result {CLIPBOARD selection doesn't exist or form "STRING" not defined}
-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}
-
-
+ list [catch {clipboard get} msg] $msg \
+ [catch {clipboard get -t TEST} msg] $msg
+} {1 {CLIPBOARD selection doesn't exist or form "STRING" not defined} 1 {CLIPBOARD selection doesn't exist or form "TEST" not defined}}
##############################################################################
-test clipboard-5.1 {Tk_ClipboardClear procedure} -setup {
+test clipboard-5.1 {Tk_ClipboardClear procedure} {
clipboard clear
-} -body {
clipboard append -t TEST "test"
set result [lsort [clipboard get TARGETS]]
clipboard clear
list $result [lsort [clipboard get TARGETS]]
-} -cleanup {
+} {{MULTIPLE TARGETS TEST TIMESTAMP TK_APPLICATION TK_WINDOW} {MULTIPLE TARGETS TIMESTAMP TK_APPLICATION TK_WINDOW}}
+test clipboard-5.2 {Tk_ClipboardClear procedure} {
clipboard clear
-} -result {{MULTIPLE TARGETS TEST TIMESTAMP TK_APPLICATION TK_WINDOW} {MULTIPLE TARGETS TIMESTAMP TK_APPLICATION TK_WINDOW}}
-test clipboard-5.2 {Tk_ClipboardClear procedure} -setup {
- clipboard clear
-} -body {
clipboard append -t TEST "test"
set result [lsort [clipboard get TARGETS]]
selection own -s CLIPBOARD .
@@ -214,148 +148,97 @@ test clipboard-5.2 {Tk_ClipboardClear procedure} -setup {
clipboard clear
clipboard append -t TEST "test"
lappend result [lsort [clipboard get TARGETS]]
-} -cleanup {
- clipboard clear
-} -result {MULTIPLE TARGETS TEST TIMESTAMP TK_APPLICATION TK_WINDOW {MULTIPLE TARGETS TIMESTAMP TK_APPLICATION TK_WINDOW} {MULTIPLE TARGETS TEST TIMESTAMP TK_APPLICATION TK_WINDOW}}
+} {MULTIPLE TARGETS TEST TIMESTAMP TK_APPLICATION TK_WINDOW {MULTIPLE TARGETS TIMESTAMP TK_APPLICATION TK_WINDOW} {MULTIPLE TARGETS TEST TIMESTAMP TK_APPLICATION TK_WINDOW}}
##############################################################################
-test clipboard-6.1 {Tk_ClipboardAppend procedure} -setup {
+test clipboard-6.1 {Tk_ClipboardAppend procedure} {
clipboard clear
-} -body {
clipboard append "first chunk"
selection own -s CLIPBOARD .
+ list [catch {
clipboard append " second chunk"
clipboard get
-} -cleanup {
- clipboard clear
-} -returnCodes ok -result {first chunk second chunk}
-test clipboard-6.2 {Tk_ClipboardAppend procedure} -constraints unix -setup {
- clipboard clear
-} -body {
+ } msg] $msg
+} {0 {first chunk second chunk}}
+test clipboard-6.2 {Tk_ClipboardAppend procedure} unix {
setupbg
+ clipboard clear
clipboard append -f INTEGER -t TEST "16"
set result [dobg {clipboard get TEST}]
- return $result
-} -cleanup {
- clipboard clear
cleanupbg
-} -result {0x10 }
-test clipboard-6.3 {Tk_ClipboardAppend procedure} -setup {
+ set result
+} {0x10 }
+test clipboard-6.3 {Tk_ClipboardAppend procedure} {
clipboard clear
-} -body {
clipboard append -f INTEGER -t TEST "16"
- clipboard append -t TEST "test"
-} -cleanup {
- clipboard clear
-} -returnCodes error -result {format "STRING" does not match current format "INTEGER" for TEST}
+ list [catch {clipboard append -t TEST "test"} msg] $msg
+} {1 {format "STRING" does not match current format "INTEGER" for TEST}}
##############################################################################
-test clipboard-7.1 {Tk_ClipboardCmd procedure} -body {
- clipboard
-} -returnCodes error -result {wrong # args: should be "clipboard option ?arg ...?"}
-test clipboard-7.2 {Tk_ClipboardCmd procedure} -setup {
- clipboard clear
-} -body {
- clipboard append --
-} -cleanup {
- clipboard clear
-} -returnCodes ok -result {}
-test clipboard-7.3 {Tk_ClipboardCmd procedure} -setup {
- clipboard clear
-} -body {
- clipboard append --
- selection get -selection CLIPBOARD
-} -cleanup {
- clipboard clear
-} -result {--}
-test clipboard-7.4 {Tk_ClipboardCmd procedure} -setup {
- clipboard clear
-} -body {
- clipboard append -- information
- selection get -selection CLIPBOARD
-} -cleanup {
- clipboard clear
-} -result {information}
-test clipboard-7.5 {Tk_ClipboardCmd procedure} -body {
- clipboard append --x a b
-} -returnCodes error -result {bad option "--x": must be -displayof, -format, or -type}
-test clipboard-7.6 {Tk_ClipboardCmd procedure} -body {
- clipboard append -- a b
-} -returnCodes error -result {wrong # args: should be "clipboard append ?-option value ...? data"}
-test clipboard-7.7 {Tk_ClipboardCmd procedure} -setup {
- clipboard clear
-} -body {
- clipboard append -format
-} -returnCodes ok -result {}
-test clipboard-7.8 {Tk_ClipboardCmd procedure} -setup {
- clipboard clear
-} -body {
- clipboard append -format
- selection get -selection CLIPBOARD
-} -cleanup {
- clipboard clear
-} -result {-format}
-test clipboard-7.9 {Tk_ClipboardCmd procedure} -body {
- clipboard append -displayofoo f
-} -returnCodes error -result {bad option "-displayofoo": must be -displayof, -format, or -type}
-test clipboard-7.10 {Tk_ClipboardCmd procedure} -body {
- clipboard append -type TEST
-} -returnCodes error -result {wrong # args: should be "clipboard append ?-option value ...? data"}
-test clipboard-7.11 {Tk_ClipboardCmd procedure} -body {
- clipboard append -displayof foo "test"
-} -returnCodes error -result {bad window path name "foo"}
-test clipboard-7.12 {Tk_ClipboardCmd procedure} -body {
- clipboard clear -displayof
-} -returnCodes error -result {wrong # args: should be "clipboard clear ?-displayof window?"}
-test clipboard-7.13 {Tk_ClipboardCmd procedure} -body {
- clipboard clear -displayofoo f
-} -returnCodes error -result {bad option "-displayofoo": must be -displayof}
-test clipboard-7.14 {Tk_ClipboardCmd procedure} -body {
- clipboard clear foo
-} -returnCodes error -result {wrong # args: should be "clipboard clear ?-displayof window?"}
-test clipboard-7.15 {Tk_ClipboardCmd procedure} -body {
- clipboard clear -displayof foo
-} -returnCodes error -result {bad window path name "foo"}
-test clipboard-7.16 {Tk_ClipboardCmd procedure} -body {
- clipboard error
-} -returnCodes error -result {bad option "error": must be append, clear, or get}
-test clipboard-7.17 {Tk_ClipboardCmd procedure} -setup {
- clipboard clear
-} -body {
- clipboard append -displayof
-} -cleanup {
- clipboard clear
-} -returnCodes ok -result {}
-test clipboard-7.18 {Tk_ClipboardCmd procedure} -setup {
- clipboard clear
-} -body {
- clipboard append -displayof
- selection get -selection CLIPBOARD
-} -cleanup {
- clipboard clear
-} -result {-displayof}
-test clipboard-7.19 {Tk_ClipboardCmd procedure} -setup {
- clipboard clear
-} -body {
- clipboard append -type
-} -cleanup {
- clipboard clear
-} -returnCodes ok -result {}
-test clipboard-7.20 {Tk_ClipboardCmd procedure} -setup {
- clipboard clear
-} -body {
- clipboard append -type
- selection get -selection CLIPBOARD
-} -cleanup {
- clipboard clear
-} -result {-type}
-
+test clipboard-7.1 {Tk_ClipboardCmd procedure} {
+ list [catch {clipboard} msg] $msg
+} {1 {wrong # args: should be "clipboard option ?arg arg ...?"}}
+test clipboard-7.2 {Tk_ClipboardCmd procedure} {
+ clipboard clear
+ list [catch {clipboard append --} msg] $msg \
+ [selection get -selection CLIPBOARD]
+} {0 {} --}
+test clipboard-7.3 {Tk_ClipboardCmd procedure} {
+ clipboard clear
+ list [catch {clipboard append -- information} msg] $msg \
+ [selection get -selection CLIPBOARD]
+} {0 {} information}
+test clipboard-7.4 {Tk_ClipboardCmd procedure} {
+ list [catch {clipboard append --x a b} msg] $msg
+} {1 {bad option "--x": must be -displayof, -format, or -type}}
+test clipboard-7.5 {Tk_ClipboardCmd procedure} {
+ list [catch {clipboard append -- a b} msg] $msg
+} {1 {wrong # args: should be "clipboard append ?options? data"}}
+test clipboard-7.6 {Tk_ClipboardCmd procedure} {
+ clipboard clear
+ list [catch {clipboard append -format} msg] $msg \
+ [selection get -selection CLIPBOARD]
+} {0 {} -format}
+test clipboard-7.7 {Tk_ClipboardCmd procedure} {
+ list [catch {clipboard append -displayofoo f} msg] $msg
+} {1 {bad option "-displayofoo": must be -displayof, -format, or -type}}
+test clipboard-7.8 {Tk_ClipboardCmd procedure} {
+ list [catch {clipboard append -type TEST} msg] $msg
+} {1 {wrong # args: should be "clipboard append ?options? data"}}
+test clipboard-7.9 {Tk_ClipboardCmd procedure} {
+ list [catch {clipboard append -displayof foo "test"} msg] $msg
+} {1 {bad window path name "foo"}}
+
+test clipboard-7.10 {Tk_ClipboardCmd procedure} {
+ list [catch {clipboard clear -displayof} msg] $msg
+} {1 {wrong # args: should be "clipboard clear ?-displayof window?"}}
+test clipboard-7.11 {Tk_ClipboardCmd procedure} {
+ list [catch {clipboard clear -displayofoo f} msg] $msg
+} {1 {bad option "-displayofoo": must be -displayof}}
+test clipboard-7.12 {Tk_ClipboardCmd procedure} {
+ list [catch {clipboard clear foo} msg] $msg
+} {1 {wrong # args: should be "clipboard clear ?-displayof window?"}}
+test clipboard-7.13 {Tk_ClipboardCmd procedure} {
+ list [catch {clipboard clear -displayof foo} msg] $msg
+} {1 {bad window path name "foo"}}
+
+test clipboard-7.14 {Tk_ClipboardCmd procedure} {
+ list [catch {clipboard error} msg] $msg
+} {1 {bad option "error": must be append, clear, or get}}
+
+test clipboard-7.15 {Tk_ClipboardCmd procedure} {
+ clipboard clear
+ list [catch {clipboard append -displayof} msg] $msg \
+ [selection get -selection CLIPBOARD]
+} {0 {} -displayof}
+test clipboard-7.16 {Tk_ClipboardCmd procedure} {
+ clipboard clear
+ list [catch {clipboard append -type} msg] $msg \
+ [selection get -selection CLIPBOARD]
+} {0 {} -type}
+
# cleanup
cleanupTests
return
-
-# Local Variables:
-# mode: tcl
-# End:
generated by cgit v0.12 at 2024-07-03 10:32:55 (GMT)