Change .ext extension into .aaa in winDialog.test since some corporate policies forbid .ext extension. See https://core.tcl-lang.org/tcl/tktview/cc74e50996e20cbb6a851087b36c52eb75526aa4

1 files changed, 10 insertions, 10 deletions

diff --git a/tests/winDialog.test b/tests/winDialog.test
index c53b6d7..30ea7b9 100755
--- a/tests/winDialog.test
+++ b/tests/winDialog.test
@@ -376,8 +376,8 @@ test winDialog-5.7.5 {GetFileName: extension {} } -constraints {
 test winDialog-5.7.6 {GetFileName: All/extension } -constraints {
     nt testwinevent
 } -body {
-    # In 8.6.4 this combination resulted in bar.ext.ext which is bad
-    start {set x [tk_getSaveFile -filetypes {{All *}} -defaultextension {ext} -title Save]}
+    # In 8.6.4 this combination resulted in bar.aaa.aaa which is bad
+    start {set x [tk_getSaveFile -filetypes {{All *}} -defaultextension {aaa} -title Save]}
     set msg {}
     then {
 	if {[catch {SetText [vista? 0x47C 0x3e9] bar} msg]} {
@@ -389,37 +389,37 @@ test winDialog-5.7.6 {GetFileName: All/extension } -constraints {
     set x "[file tail $x]$msg"
 } -cleanup {
     unset msg
-} -result bar.ext
+} -result bar.aaa
 
 test winDialog-5.7.7 {tk_getOpenFile: -defaultextension} -constraints {
     nt testwinevent
 } -body {
     unset -nocomplain x
-    tcltest::makeFile "" "5 7 7.ext" [initialdir]
+    tcltest::makeFile "" "5 7 7.aaa" [initialdir]
     start {set x [tk_getOpenFile \
-                      -defaultextension ext \
+                      -defaultextension aaa \
                       -initialdir [file nativename [initialdir]] \
                       -initialfile "5 7 7" -title Foo]}
     then {
         Click ok
     }
     return $x
-} -result [file join [initialdir] "5 7 7.ext"]
+} -result [file join [initialdir] "5 7 7.aaa"]
 
 test winDialog-5.7.8 {tk_getOpenFile: -defaultextension} -constraints {
     nt testwinevent
 } -body {
     unset -nocomplain x
-    tcltest::makeFile "" "5 7 8.ext" [initialdir]
+    tcltest::makeFile "" "5 7 8.aaa" [initialdir]
     start {set x [tk_getOpenFile \
-                      -defaultextension ext \
+                      -defaultextension aaa \
                       -initialdir [file nativename [initialdir]] \
-                      -initialfile "5 7 8.ext" -title Foo]}
+                      -initialfile "5 7 8.aaa" -title Foo]}
     then {
         Click ok
     }
     return $x
-} -result [file join [initialdir] "5 7 8.ext"]
+} -result [file join [initialdir] "5 7 8.aaa"]
 
 test winDialog-5.8 {GetFileName: extension doesn't begin with .} -constraints {
     nt testwinevent