From 651b2d1f0076dd7bc73647bfeaf5cf08481106ef Mon Sep 17 00:00:00 2001
From: stanton <stanton>
Date: Wed, 24 Jun 1998 16:05:51 +0000
Subject: added test for unusual initialdir

---
 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