From 9f86a98857fe41038bde223d721bf8fa2e28ec6f Mon Sep 17 00:00:00 2001 From: stanton Date: Wed, 24 Jun 1998 16:05:51 +0000 Subject: added test for unusual initialdir FossilOrigin-Name: 404910a539b8dc083296018b3e5d71186254127f --- tests/filebox.test | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/tests/filebox.test b/tests/filebox.test index 6bae6c5..83f320c 100644 --- a/tests/filebox.test +++ b/tests/filebox.test @@ -198,6 +198,14 @@ foreach mode $modes { -parent $parent -initialdir $fileDir] } $pathName + test filebox-2.4 "$command command" { + ToPressButton $parent ok + set choice [$command -title "Enter \"$fileName\" and press Ok" \ + -parent $parent -initialdir . \ + -initialfile $fileName] + } $pathName + + set filters(1) {} set filters(2) { -- cgit v0.12