Fossil SCM
Fix the 'file1' test so that it can (only) run outside of the Fossil checkout.
Commit
19c216391a0ad79edb428e1b527e7c7937841c63
Parent
ecedaf93991c66a…
1 file changed
+5
+5
| --- test/file1.test | ||
| +++ test/file1.test | ||
| @@ -15,10 +15,12 @@ | ||
| 15 | 15 | # |
| 16 | 16 | ############################################################################ |
| 17 | 17 | # |
| 18 | 18 | # File utilities |
| 19 | 19 | # |
| 20 | + | |
| 21 | +repo_init | |
| 20 | 22 | |
| 21 | 23 | proc simplify-name {testname args} { |
| 22 | 24 | set i 1 |
| 23 | 25 | foreach {path result} $args { |
| 24 | 26 | fossil test-simplify-name $path |
| @@ -65,10 +67,13 @@ | ||
| 65 | 67 | |
| 66 | 68 | if {$::tcl_platform(os)=="Windows NT"} { |
| 67 | 69 | simplify-name 108 //?/a:/a/b a:/a/b //?/UNC/a/b //a/b //?/ {} |
| 68 | 70 | simplify-name 109 \\\\?\\a:\\a\\b a:/a/b \\\\?\\UNC\\a\\b //a/b \\\\?\\ {} |
| 69 | 71 | } |
| 72 | + | |
| 73 | +# This is needed because we are now running outside of the Fossil checkout. | |
| 74 | +file mkdir file1; cd file1 | |
| 70 | 75 | |
| 71 | 76 | # Those directories are only needed for the testcase being able to "--chdir" to it. |
| 72 | 77 | file mkdir test1 |
| 73 | 78 | file mkdir test1/test2 |
| 74 | 79 | |
| 75 | 80 |
| --- test/file1.test | |
| +++ test/file1.test | |
| @@ -15,10 +15,12 @@ | |
| 15 | # |
| 16 | ############################################################################ |
| 17 | # |
| 18 | # File utilities |
| 19 | # |
| 20 | |
| 21 | proc simplify-name {testname args} { |
| 22 | set i 1 |
| 23 | foreach {path result} $args { |
| 24 | fossil test-simplify-name $path |
| @@ -65,10 +67,13 @@ | |
| 65 | |
| 66 | if {$::tcl_platform(os)=="Windows NT"} { |
| 67 | simplify-name 108 //?/a:/a/b a:/a/b //?/UNC/a/b //a/b //?/ {} |
| 68 | simplify-name 109 \\\\?\\a:\\a\\b a:/a/b \\\\?\\UNC\\a\\b //a/b \\\\?\\ {} |
| 69 | } |
| 70 | |
| 71 | # Those directories are only needed for the testcase being able to "--chdir" to it. |
| 72 | file mkdir test1 |
| 73 | file mkdir test1/test2 |
| 74 | |
| 75 |
| --- test/file1.test | |
| +++ test/file1.test | |
| @@ -15,10 +15,12 @@ | |
| 15 | # |
| 16 | ############################################################################ |
| 17 | # |
| 18 | # File utilities |
| 19 | # |
| 20 | |
| 21 | repo_init |
| 22 | |
| 23 | proc simplify-name {testname args} { |
| 24 | set i 1 |
| 25 | foreach {path result} $args { |
| 26 | fossil test-simplify-name $path |
| @@ -65,10 +67,13 @@ | |
| 67 | |
| 68 | if {$::tcl_platform(os)=="Windows NT"} { |
| 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 | |
| 80 |