Fossil SCM
Follow up to the previous check-in: save and restore the current directory.
Commit
d141b84a9972805fe1f0ba7218e32324999524fb
Parent
19c216391a0ad79…
1 file changed
+3
-1
+3
-1
| --- test/file1.test | ||
| +++ test/file1.test | ||
| @@ -69,11 +69,11 @@ | ||
| 69 | 69 | simplify-name 108 //?/a:/a/b a:/a/b //?/UNC/a/b //a/b //?/ {} |
| 70 | 70 | simplify-name 109 \\\\?\\a:\\a\\b a:/a/b \\\\?\\UNC\\a\\b //a/b \\\\?\\ {} |
| 71 | 71 | } |
| 72 | 72 | |
| 73 | 73 | # This is needed because we are now running outside of the Fossil checkout. |
| 74 | -file mkdir file1; cd file1 | |
| 74 | +file mkdir file1; set savedPwd [pwd]; cd file1 | |
| 75 | 75 | |
| 76 | 76 | # Those directories are only needed for the testcase being able to "--chdir" to it. |
| 77 | 77 | file mkdir test1 |
| 78 | 78 | file mkdir test1/test2 |
| 79 | 79 | |
| @@ -94,5 +94,7 @@ | ||
| 94 | 94 | absolute-tree-name 102 test1 [pwd]/test $dirname/file1/test . [pwd]/file1 $dirname/file1/file1 . [pwd]/file1/file2 $dirname/file1/file1/file2 |
| 95 | 95 | absolute-tree-name 103 . [pwd] $dirname/file1 |
| 96 | 96 | |
| 97 | 97 | catch {file delete test1/test2} |
| 98 | 98 | catch {file delete test1} |
| 99 | + | |
| 100 | +if {[info exists savedPwd]} {cd $savedPwd; unset savedPwd} | |
| 99 | 101 |
| --- test/file1.test | |
| +++ test/file1.test | |
| @@ -69,11 +69,11 @@ | |
| 69 | simplify-name 108 //?/a:/a/b a:/a/b //?/UNC/a/b //a/b //?/ {} |
| 70 | simplify-name 109 \\\\?\\a:\\a\\b a:/a/b \\\\?\\UNC\\a\\b //a/b \\\\?\\ {} |
| 71 | } |
| 72 | |
| 73 | # This is needed because we are now running outside of the Fossil checkout. |
| 74 | file mkdir file1; cd file1 |
| 75 | |
| 76 | # Those directories are only needed for the testcase being able to "--chdir" to it. |
| 77 | file mkdir test1 |
| 78 | file mkdir test1/test2 |
| 79 | |
| @@ -94,5 +94,7 @@ | |
| 94 | absolute-tree-name 102 test1 [pwd]/test $dirname/file1/test . [pwd]/file1 $dirname/file1/file1 . [pwd]/file1/file2 $dirname/file1/file1/file2 |
| 95 | absolute-tree-name 103 . [pwd] $dirname/file1 |
| 96 | |
| 97 | catch {file delete test1/test2} |
| 98 | catch {file delete test1} |
| 99 |
| --- test/file1.test | |
| +++ test/file1.test | |
| @@ -69,11 +69,11 @@ | |
| 69 | simplify-name 108 //?/a:/a/b a:/a/b //?/UNC/a/b //a/b //?/ {} |
| 70 | simplify-name 109 \\\\?\\a:\\a\\b a:/a/b \\\\?\\UNC\\a\\b //a/b \\\\?\\ {} |
| 71 | } |
| 72 | |
| 73 | # This is needed because we are now running outside of the Fossil checkout. |
| 74 | file mkdir file1; set savedPwd [pwd]; cd file1 |
| 75 | |
| 76 | # Those directories are only needed for the testcase being able to "--chdir" to it. |
| 77 | file mkdir test1 |
| 78 | file mkdir test1/test2 |
| 79 | |
| @@ -94,5 +94,7 @@ | |
| 94 | absolute-tree-name 102 test1 [pwd]/test $dirname/file1/test . [pwd]/file1 $dirname/file1/file1 . [pwd]/file1/file2 $dirname/file1/file1/file2 |
| 95 | absolute-tree-name 103 . [pwd] $dirname/file1 |
| 96 | |
| 97 | catch {file delete test1/test2} |
| 98 | catch {file delete test1} |
| 99 | |
| 100 | if {[info exists savedPwd]} {cd $savedPwd; unset savedPwd} |
| 101 |