From f5d4ffd4633b850b12389d71358c75289cc61b2c Mon Sep 17 00:00:00 2001
From: ashok <ashok>
Date: Fri, 9 Oct 2015 04:44:27 +0000
Subject: Added missing tests for tk_getOpenFile -defaultextension

---
 tests/winDialog.test | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/tests/winDialog.test b/tests/winDialog.test
index 80a025c..49d9c17 100644
--- a/tests/winDialog.test
+++ b/tests/winDialog.test
@@ -391,6 +391,35 @@ test winDialog-5.7.6 {GetFileName: All/extension } -constraints {
     unset msg
 } -result bar.ext
 
+test winDialog-5.7.7 {tk_getOpenFile: -defaultextension} -constraints {
+    nt testwinevent
+} -body {
+    unset -nocomplain x
+    tcltest::makeFile "" "5 7 7.ext" [initialdir]
+    start {set x [tk_getOpenFile \
+                      -defaultextension ext \
+                      -initialdir [file nativename [initialdir]] \
+                      -initialfile "5 7 7" -title Foo]}
+    then {
+        Click ok
+    }
+    return $x
+} -result [file join [initialdir] "5 7 7.ext"]
+
+test winDialog-5.7.8 {tk_getOpenFile: -defaultextension} -constraints {
+    nt testwinevent
+} -body {
+    unset -nocomplain x
+    tcltest::makeFile "" "5 7 8.ext" [initialdir]
+    start {set x [tk_getOpenFile \
+                      -defaultextension ext \
+                      -initialdir [file nativename [initialdir]] \
+                      -initialfile "5 7 8.ext" -title Foo]}
+    then {
+        Click ok
+    }
+    return $x
+} -result [file join [initialdir] "5 7 8.ext"]
 
 test winDialog-5.8 {GetFileName: extension doesn't begin with .} -constraints {
     nt testwinevent
-- 
cgit v0.12