diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-12-25 17:45:11 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-12-25 17:45:11 (GMT) |
commit | 5f5fd2864a3193a8d5da12fcb92ba7379084c286 (patch) | |
tree | bcdca927ed2a7b05c647b9a6bfdfd4a7ca5c730e /tk8.6/tests/xmfbox.test | |
parent | 535baffcecf6e738102fc12cda0109bc963e150f (diff) | |
download | blt-5f5fd2864a3193a8d5da12fcb92ba7379084c286.zip blt-5f5fd2864a3193a8d5da12fcb92ba7379084c286.tar.gz blt-5f5fd2864a3193a8d5da12fcb92ba7379084c286.tar.bz2 |
update tcl/tk
Diffstat (limited to 'tk8.6/tests/xmfbox.test')
-rw-r--r-- | tk8.6/tests/xmfbox.test | 166 |
1 files changed, 0 insertions, 166 deletions
diff --git a/tk8.6/tests/xmfbox.test b/tk8.6/tests/xmfbox.test deleted file mode 100644 index f50329c..0000000 --- a/tk8.6/tests/xmfbox.test +++ /dev/null @@ -1,166 +0,0 @@ -# xmfbox.test -- -# -# This file is a Tcl script to test the file dialog that's used -# when the tk_strictMotif flag is set. Because the file dialog -# runs in a modal loop, the only way to test it sufficiently is -# to call the internal Tcl procedures in xmfbox.tcl directly. -# -# Copyright (c) 1997 Sun Microsystems, Inc. -# Copyright (c) 1998-1999 by Scriptics Corporation. -# Contributions from Don Porter, NIST, 2002. (not subject to US copyright) -# All rights reserved. - -package require tcltest 2.2 -namespace import ::tcltest::* -tcltest::configure {*}$argv -tcltest::loadTestedCommands - -set testPWD [pwd] -catch {unset data foo} - -proc cleanup {} { - global testPWD - - set err0 [catch { - cd $testPWD - } msg0] - - set err1 [catch { - if [file exists ./~nosuchuser1] { - file delete ./~nosuchuser1 - } - } msg1] - - set err2 [catch { - if [file exists ./~nosuchuser2] { - file delete ./~nosuchuser2 - } - } msg2] - - set err3 [catch { - if [file exists ./~nosuchuser3] { - file delete ./~nosuchuser3 - } - } msg3] - - set err4 [catch { - if [file exists ./~nosuchuser4] { - file delete ./~nosuchuser4 - } - } msg4] - - if {$err0 || $err1 || $err2 || $err3 || $err4} { - error [list $msg0 $msg1 $msg2 $msg3 $msg4] - } - catch {unset foo} - destroy .foo -} - -# ---------------------------------------------------------------------- - -test xmfbox-1.1 {tk::MotifFDialog_Create, -parent switch} -constraints { - unix -} -setup { - catch {unset foo} -} -body { - set x [tk::MotifFDialog_Create foo open {-parent .}] -} -cleanup { - destroy $x -} -result {.foo} - -test xmfbox-1.2 {tk::MotifFDialog_Create, -parent switch} -constraints { - unix -} -setup { - catch {unset foo} - deleteWindows -} -body { - toplevel .bar - wm geometry .bar +0+0 - set x [tk::MotifFDialog_Create foo open {-parent .bar}] -} -cleanup { - destroy $x - destroy .bar -} -result {.bar.foo} - - -test xmfbox-2.1 {tk::MotifFDialog_InterpFilter, ~ in dir names} -constraints { - unix -} -body { - cleanup - file mkdir ./~nosuchuser1 - set x [tk::MotifFDialog_Create foo open {}] - $::tk::dialog::file::foo(fEnt) delete 0 end - $::tk::dialog::file::foo(fEnt) insert 0 [pwd]/~nosuchuser1 - set kk [tk::MotifFDialog_InterpFilter $x] -} -result "$testPWD/~nosuchuser1 *" - -test xmfbox-2.2 {tk::MotifFDialog_InterpFilter, ~ in file names} -constraints { - unix -} -body { - cleanup - close [open ./~nosuchuser1 {CREAT TRUNC WRONLY}] - set x [tk::MotifFDialog_Create foo open {}] - $::tk::dialog::file::foo(fEnt) delete 0 end - $::tk::dialog::file::foo(fEnt) insert 0 [pwd]/~nosuchuser1 - set kk [tk::MotifFDialog_InterpFilter $x] -} -result "$testPWD ./~nosuchuser1" - -test xmfbox-2.3 {tk::MotifFDialog_Update, ~ in file names} -constraints { - unix -} -body { - cleanup - close [open ./~nosuchuser1 {CREAT TRUNC WRONLY}] - set x [tk::MotifFDialog_Create foo open {}] - $::tk::dialog::file::foo(fEnt) delete 0 end - $::tk::dialog::file::foo(fEnt) insert 0 [pwd]/~nosuchuser1 - tk::MotifFDialog_InterpFilter $x - tk::MotifFDialog_Update $x - $::tk::dialog::file::foo(fList) get end -} -result {~nosuchuser1} - -test xmfbox-2.4 {tk::MotifFDialog_LoadFile, ~ in file names} -constraints { - unix -} -body { - cleanup - close [open ./~nosuchuser1 {CREAT TRUNC WRONLY}] - set x [tk::MotifFDialog_Create foo open {}] - set i [lsearch [$::tk::dialog::file::foo(fList) get 0 end] ~nosuchuser1] - expr {$i >= 0} -} -result 1 - -test xmfbox-2.5 {tk::MotifFDialog_BrowseFList, ~ in file names} -constraints { - unix -} -body { - cleanup - close [open ./~nosuchuser1 {CREAT TRUNC WRONLY}] - set x [tk::MotifFDialog_Create foo open {}] - set i [lsearch [$::tk::dialog::file::foo(fList) get 0 end] ~nosuchuser1] - $::tk::dialog::file::foo(fList) selection clear 0 end - $::tk::dialog::file::foo(fList) selection set $i - tk::MotifFDialog_BrowseFList $x - $::tk::dialog::file::foo(sEnt) get -} -result "$testPWD/~nosuchuser1" - -test xmfbox-2.6 {tk::MotifFDialog_ActivateFList, ~ in file names} -constraints { - unix -} -body { - cleanup - close [open ./~nosuchuser1 {CREAT TRUNC WRONLY}] - set x [tk::MotifFDialog_Create foo open {}] - set i [lsearch [$::tk::dialog::file::foo(fList) get 0 end] ~nosuchuser1] - $::tk::dialog::file::foo(fList) selection clear 0 end - $::tk::dialog::file::foo(fList) selection set $i - tk::MotifFDialog_BrowseFList $x - tk::MotifFDialog_ActivateFList $x - list $::tk::dialog::file::foo(selectPath) \ - $::tk::dialog::file::foo(selectFile) $tk::Priv(selectFilePath) -} -result "$testPWD ~nosuchuser1 $testPWD/~nosuchuser1" - -# cleanup -cleanup -cleanupTests -return - -# Local variables: -# mode: tcl -# End: |