From 63c359ba7d83c07b4e62bc619ad196646f904e4a Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 7 Oct 2008 18:33:47 +0000
Subject: and another one

---
 tests/winDialog.test | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/winDialog.test b/tests/winDialog.test
index d3cb2a0..faaed9f 100644
--- a/tests/winDialog.test
+++ b/tests/winDialog.test
@@ -7,7 +7,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # Copyright (c) 1998-1999 ActiveState Corporation.
 #
-# RCS: @(#) $Id: winDialog.test,v 1.20 2008/10/07 18:27:01 dgp Exp $
+# RCS: @(#) $Id: winDialog.test,v 1.21 2008/10/07 18:33:47 dgp Exp $
 
 package require tcltest 2.2
 namespace import ::tcltest::*
@@ -391,6 +391,7 @@ test winDialog-5.22 {GetFileName: call GetSaveFileName} -constraints {
     }
     return $x
 } -result {&Save}
+if {[info exists ::env(TEMP)]} {
 test winDialog-5.23 {GetFileName: convert \ to /} -constraints {
     nt testwinevent
 } -body {
@@ -401,6 +402,7 @@ test winDialog-5.23 {GetFileName: convert \ to /} -constraints {
     }
     return $x
 } -result [file join [file normalize $::env(TEMP)] "12x 457"]
+}
 test winDialog-5.24 {GetFileName: file types: MakeFilter() succeeds} -constraints {
     nt
 } -body {
-- 
cgit v0.12