ag/cpython-source-deps
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Imported Tk 8.6.9

Browse Source
This commit is contained in:
Steve Dower
2018-12-11 10:05:28 -08:00
parent 753ac6b037
commit 5ba5cbc9af
184 changed files with 6223 additions and 1994 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
tests/choosedir.test
View File

@@ -85,23 +85,25 @@ set fake [file join $dir non-existant]
set parent .
test choosedir-1.1 {tk_chooseDirectory command} -constraints unix -body {
test choosedir-1.1 {tk_chooseDirectory command} -body {
tk_chooseDirectory -initialdir
} -returnCodes error -result {value for "-initialdir" missing}
test choosedir-1.2 {tk_chooseDirectory command} -constraints unix -body {
test choosedir-1.2 {tk_chooseDirectory command} -body {
tk_chooseDirectory -mustexist
} -returnCodes error -result {value for "-mustexist" missing}
test choosedir-1.3 {tk_chooseDirectory command} -constraints unix -body {
test choosedir-1.3 {tk_chooseDirectory command} -body {
tk_chooseDirectory -parent
} -returnCodes error -result {value for "-parent" missing}
test choosedir-1.4 {tk_chooseDirectory command} -constraints unix -body {
test choosedir-1.4 {tk_chooseDirectory command} -body {
tk_chooseDirectory -title
} -returnCodes error -result {value for "-title" missing}
test choosedir-1.5 {tk_chooseDirectory command} -constraints unix -body {
test choosedir-1.5.1 {tk_chooseDirectory command} -constraints notAqua -body {
tk_chooseDirectory -foo bar
} -returnCodes error -result {bad option "-foo": must be -initialdir, -mustexist, -parent, or -title}
test choosedir-1.6 {tk_chooseDirectory command} -constraints unix -body {
test choosedir-1.5.2 {tk_chooseDirectory command} -constraints aqua -body {
tk_chooseDirectory -foo bar
} -returnCodes error -result {bad option "-foo": must be -initialdir, -message, -mustexist, -parent, -title, or -command}
test choosedir-1.6 {tk_chooseDirectory command} -body {
tk_chooseDirectory -parent foo.bar
} -returnCodes error -result {bad window path name "foo.bar"}