diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-28 10:42:05 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-28 10:42:05 (GMT) |
commit | 8d49123e73e1b0bbbf97cd212e88960772a9e166 (patch) | |
tree | b3753c3b36bfe5b8fb3203da20f2864e9981ea97 /tests/fileSystem.test | |
parent | 9c024d9d3bfcd6cee7c0a39492f7e1fd4f80192d (diff) | |
download | tcl-8d49123e73e1b0bbbf97cd212e88960772a9e166.zip tcl-8d49123e73e1b0bbbf97cd212e88960772a9e166.tar.gz tcl-8d49123e73e1b0bbbf97cd212e88960772a9e166.tar.bz2 |
Use {} braces in more "expr" expressions.
Diffstat (limited to 'tests/fileSystem.test')
-rw-r--r-- | tests/fileSystem.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test index 8af4f53..f363d86 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -153,7 +153,7 @@ test filesystem-1.10 {link normalisation: double link} -constraints { [file normalize [file join dir2.link inside.file foo]] } -cleanup { file delete dir2.link -} -result ok +} -result ok makeDirectory dir2.file test filesystem-1.11 {link normalisation: double link, back in tree} {unix hasLinks} { file link dir2.link dir.link @@ -168,7 +168,7 @@ test filesystem-1.12 {file new native path} {} { } } # If we reach here we've succeeded. We used to crash above. - expr 1 + expr {1} } {1} test filesystem-1.13 {file normalisation} {win} { # This used to be broken @@ -913,7 +913,7 @@ test filesystem-9.5 {path objects and file tail and object rep} -setup { } return $res } -cleanup { - file delete -force dgp + file delete -force dgp cd $origdir } -result {test test} test filesystem-9.6 {path objects and file tail and object rep} win { |