From 0fc27b893e12027a6b5136fb96ba216b823f43e1 Mon Sep 17 00:00:00 2001 From: dgp Date: Mon, 30 Apr 2018 12:11:14 +0000 Subject: Contain platform-specific things in the constraint-controlled parts of the test. --- tests/winFCmd.test | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/tests/winFCmd.test b/tests/winFCmd.test index b3fd921..1b2b042 100644 --- a/tests/winFCmd.test +++ b/tests/winFCmd.test @@ -912,10 +912,11 @@ test winFCmd-12.6.2 {ConvertFileNameFormat: absolute path with drive (in temp fo catch {file delete -force -- $::env(TEMP)/td1} } -constraints {win} -body { createfile $::env(TEMP)/td1 {} - string tolower [file attributes $::env(TEMP)/td1 -longname] + string equal [string tolower [file attributes $::env(TEMP)/td1 -longname]] \ + [string tolower [file normalize $::env(TEMP)]/td1]] } -cleanup { file delete -force -- $::env(TEMP)/td1 -} -result [string tolower [file normalize $::env(TEMP)]/td1] +} -result 1 test winFCmd-12.7 {ConvertFileNameFormat} {nonPortable win} { string tolower [file attributes //bisque/tcl/ws -longname] } {//bisque/tcl/ws} -- cgit v0.12