From 3527da7cd3f70e14a2823aeeb014bf3e60a25231 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Fri, 28 Apr 2017 17:43:49 +0000
Subject: Test for [f34cf83dd0].

---
 tests/fileName.test | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/tests/fileName.test b/tests/fileName.test
index 68c5592..d224011 100644
--- a/tests/fileName.test
+++ b/tests/fileName.test
@@ -434,6 +434,9 @@ test filename-7.18 {Tcl_JoinPath: unix} {testsetplatform} {
     testsetplatform unix
     file join /// a b
 } "/a/b"
+test filename-7.19 {[Bug f34cf83dd0]} {
+    file join foo //bar
+} /bar
 
 
 test filename-9.1 {Tcl_JoinPath: win} {testsetplatform} {
-- 
cgit v0.12