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

34
tests/filebox.test
View File

@@ -110,8 +110,10 @@ if {$tcl_platform(platform) == "unix"} {
set modes 1
}
set unknownOptionsMsg(tk_getOpenFile) {bad option "-foo": must be -defaultextension, -filetypes, -initialdir, -initialfile, -multiple, -parent, -title, or -typevariable}
set unknownOptionsMsg(tk_getSaveFile) {bad option "-foo": must be -confirmoverwrite, -defaultextension, -filetypes, -initialdir, -initialfile, -parent, -title, or -typevariable}
set unknownOptionsMsg(tk_getOpenFile,notAqua) {bad option "-foo": must be -defaultextension, -filetypes, -initialdir, -initialfile, -multiple, -parent, -title, or -typevariable}
set unknownOptionsMsg(tk_getOpenFile,aqua) {bad option "-foo": must be -defaultextension, -filetypes, -initialdir, -initialfile, -message, -multiple, -parent, -title, -typevariable, or -command}
set unknownOptionsMsg(tk_getSaveFile,notAqua) {bad option "-foo": must be -confirmoverwrite, -defaultextension, -filetypes, -initialdir, -initialfile, -parent, -title, or -typevariable}
set unknownOptionsMsg(tk_getSaveFile,aqua) {bad option "-foo": must be -defaultextension, -filetypes, -initialdir, -initialfile, -message, -parent, -title, -typevariable, -command, or -confirmoverwrite}
set tmpFile "filebox.tmp"
makeFile {
@@ -155,9 +157,12 @@ foreach mode $modes {
}
}
test filebox-1.1-$mode "tk_getOpenFile command" -body {
test filebox-1.1.1-$mode "tk_getOpenFile command" -constraints notAqua -body {
tk_getOpenFile -foo
} -returnCodes error -result $unknownOptionsMsg(tk_getOpenFile)
} -returnCodes error -result $unknownOptionsMsg(tk_getOpenFile,notAqua)
test filebox-1.1.2-$mode "tk_getOpenFile command" -constraints aqua -body {
tk_getOpenFile -foo
} -returnCodes error -result $unknownOptionsMsg(tk_getOpenFile,aqua)
catch {tk_getOpenFile -foo 1} msg
regsub -all , $msg "" options
@@ -171,9 +176,12 @@ foreach mode $modes {
}
}
test filebox-1.3-$mode "tk_getOpenFile command" -body {
test filebox-1.3.1-$mode "tk_getOpenFile command" -constraints notAqua -body {
tk_getOpenFile -foo bar
} -returnCodes error -result $unknownOptionsMsg(tk_getOpenFile)
} -returnCodes error -result $unknownOptionsMsg(tk_getOpenFile,notAqua)
test filebox-1.3.2-$mode "tk_getOpenFile command" -constraints aqua -body {
tk_getOpenFile -foo bar
} -returnCodes error -result $unknownOptionsMsg(tk_getOpenFile,aqua)
test filebox-1.4-$mode "tk_getOpenFile command" -body {
tk_getOpenFile -initialdir
} -returnCodes error -result {value for "-initialdir" missing}
@@ -289,9 +297,12 @@ foreach mode $modes {
} $res
}
test filebox-4.1-$mode "tk_getSaveFile command" -body {
test filebox-4.1.1-$mode "tk_getSaveFile command" -constraints notAqua -body {
tk_getSaveFile -foo
} -returnCodes error -result $unknownOptionsMsg(tk_getSaveFile)
} -returnCodes error -result $unknownOptionsMsg(tk_getSaveFile,notAqua)
test filebox-4.1.2-$mode "tk_getSaveFile command" -constraints aqua -body {
tk_getSaveFile -foo
} -returnCodes error -result $unknownOptionsMsg(tk_getSaveFile,aqua)
catch {tk_getSaveFile -foo 1} msg
regsub -all , $msg "" options
@@ -305,9 +316,12 @@ foreach mode $modes {
}
}
test filebox-4.3-$mode "tk_getSaveFile command" -body {
test filebox-4.3.1-$mode "tk_getSaveFile command" -constraints notAqua -body {
tk_getSaveFile -foo bar
} -returnCodes error -result $unknownOptionsMsg(tk_getSaveFile)
} -returnCodes error -result $unknownOptionsMsg(tk_getSaveFile,notAqua)
test filebox-4.3.2-$mode "tk_getSaveFile command" -constraints aqua -body {
tk_getSaveFile -foo bar
} -returnCodes error -result $unknownOptionsMsg(tk_getSaveFile,aqua)
test filebox-4.4-$mode "tk_getSaveFile command" -body {
tk_getSaveFile -initialdir
} -returnCodes error -result {value for "-initialdir" missing}