From fb30c8f932db945e5d49842bc1f6c5675384ae3e Mon Sep 17 00:00:00 2001
From: vincentdarley <vincentdarley>
Date: Wed, 3 Apr 2002 14:30:04 +0000
Subject: fs ~ cache clear test

---
 ChangeLog             |  1 +
 tests/fileSystem.test | 14 ++++++++++++++
 2 files changed, 15 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 29ed413..8b18f48 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -4,6 +4,7 @@
 	* generic/tclIOUtil.c: invalidate filesystem cache when the
 	user changes env(HOME).  Fixes [Bug #535621].  Also cleaned up
 	some of the documentation.
+	* tests/fileSystem.test: added test for bug just fixed.
 	
 2002-04-01  Kevin Kenny  <kennykb@acm.org>
 
diff --git a/tests/fileSystem.test b/tests/fileSystem.test
index ecc6523..eb0a082 100644
--- a/tests/fileSystem.test
+++ b/tests/fileSystem.test
@@ -150,6 +150,20 @@ test filesystem-4.3 {testfilesystem} {
     -result {* {matchindirectory *}*}
 }
 
+test filesystem-5.1 {cache and ~} {
+    -body {
+	set orig $env(HOME)
+	set ::env(HOME) /foo/bar/blah
+	set testdir ~
+	set res1 "Parent of ~ (/foo/bar/blah) is [file dirname $testdir]"
+	set ::env(HOME) /a/b/c
+	set res2 "Parent of ~ (/a/b/c) is [file dirname $testdir]"
+	list $res1 $res2
+    }
+    -result {{Parent of ~ (/foo/bar/blah) is /foo/bar} {Parent of ~ (/a/b/c) is /a/b}}
+}
+
+	
 # cleanup
 catch {unset filesystemReport}
 # Make sure the testfilesystem hasn't been registered.
-- 
cgit v0.12