summaryrefslogtreecommitdiffstats
path: root/tk8.6/tests/clipboard.test
diff options
context:
space:
mode:
Diffstat (limited to 'tk8.6/tests/clipboard.test')
-rw-r--r--tk8.6/tests/clipboard.test361
1 files changed, 0 insertions, 361 deletions
diff --git a/tk8.6/tests/clipboard.test b/tk8.6/tests/clipboard.test
deleted file mode 100644
index 6077940..0000000
--- a/tk8.6/tests/clipboard.test
+++ /dev/null
@@ -1,361 +0,0 @@
-# This file is a Tcl script to test out Tk's clipboard management code,
-# especially the "clipboard" command. It is organized in the standard
-# fashion for Tcl tests.
-#
-# Copyright (c) 1994 Sun Microsystems, Inc.
-# Copyright (c) 1998-1999 by Scriptics Corporation.
-# All rights reserved.
-
-#
-# Note: Multiple display clipboard handling will only be tested if the
-# environment variable TK_ALT_DISPLAY is set to an alternate display.
-#
-
-package require tcltest 2.2
-namespace import ::tcltest::*
-eval tcltest::configure $argv
-tcltest::loadTestedCommands
-
-# set up a very large buffer to test INCR retrievals
-set longValue ""
-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} {
- set j $i.1$i.2$i.3$i.4$i.5$i.6$i.7$i.8$i.9$i.10$i.11$i.12$i.13$i.14
- append longValue A$j B$j C$j D$j E$j F$j G$j H$j I$j K$j L$j M$j N$j
-}
-
-# Now we start the main body of the test code
-
-test clipboard-1.1 {ClipboardHandler procedure} -setup {
- clipboard clear
-} -body {
- clipboard append "test"
- clipboard get
-} -cleanup {
- clipboard clear
-} -result {test}
-test clipboard-1.2 {ClipboardHandler procedure} -setup {
- clipboard clear
-} -body {
- clipboard append "test"
- clipboard append "ing"
- clipboard get
-} -cleanup {
- 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 {
- clipboard clear
-} -body {
- clipboard append $longValue
- clipboard get
-} -cleanup {
- 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 {
- clipboard clear
-} -body {
- clipboard append -t TEST $longValue
- clipboard append -t STRING "test"
- list [clipboard get -t STRING] [clipboard get -t TEST]
-} -cleanup {
- 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 {
- clipboard clear
-} -body {
- clipboard append ""
- clipboard get
-} -cleanup {
- 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 clipboard-2.1 {ClipboardAppHandler procedure} -setup {
- set oldAppName [tk appname]
- clipboard clear
-} -body {
- tk appname UnexpectedName
- clipboard append -type NEW_TYPE Data
- selection get -selection CLIPBOARD -type TK_APPLICATION
-} -cleanup {
- tk appname $oldAppName
- clipboard clear
-} -result {UnexpectedName}
-
-##############################################################################
-
-test clipboard-3.1 {ClipboardWindowHandler procedure} -setup {
- set oldAppName [tk appname]
- clipboard clear
-} -body {
- tk appname UnexpectedName
- clipboard append -type NEW_TYPE Data
- selection get -selection CLIPBOARD -type TK_WINDOW
-} -cleanup {
- tk appname $oldAppName
- clipboard clear
-} -result {.}
-
-##############################################################################
-
-test clipboard-4.1 {ClipboardLostSel procedure} -setup {
- 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 {
- 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 {
- 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}
-
-
-
-##############################################################################
-
-test clipboard-5.1 {Tk_ClipboardClear procedure} -setup {
- clipboard clear
-} -body {
- clipboard append -t TEST "test"
- set result [lsort [clipboard get TARGETS]]
- clipboard clear
- list $result [lsort [clipboard get TARGETS]]
-} -cleanup {
- 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 .
- lappend result [lsort [clipboard get TARGETS]]
- 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}}
-
-##############################################################################
-
-test clipboard-6.1 {Tk_ClipboardAppend procedure} -setup {
- clipboard clear
-} -body {
- clipboard append "first chunk"
- selection own -s CLIPBOARD .
- 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 {
- setupbg
- 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 {
- 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}
-
-##############################################################################
-
-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}
-
-# cleanup
-cleanupTests
-return
-
-# Local Variables:
-# mode: tcl
-# End:
generated by cgit v0.12 at 2024-10-30 09:04:22 (GMT)