Fossil SCM
Hm. "catch" doesn't appear to work for reporting the win32-longpath error correctly, instead check whether CANTOPEN is part of the output.
Commit
4b4606d8b8cae87715b4510f3b3928b608d14d2d
Parent
698a2d5968a9c6f…
1 file changed
+2
-4
+2
-4
| --- test/win32-longpath.test | ||
| +++ test/win32-longpath.test | ||
| @@ -18,14 +18,12 @@ | ||
| 18 | 18 | # Use "cygpath" for converting it to win32 path. If not |
| 19 | 19 | # in Msys or Cygwin shell, nothing needs to be done. |
| 20 | 20 | set longpath [exec cygpath -w $longpath] |
| 21 | 21 | } |
| 22 | 22 | |
| 23 | -test longpath-test.1 { | |
| 24 | - ![catch { | |
| 25 | - fossil new $longpath/$x.fossil | |
| 26 | - }] | |
| 23 | +test win32-longpath-test.1 { | |
| 24 | + ![regexp CANTOPEN [fossil new $longpath/$x.fossil]] | |
| 27 | 25 | } |
| 28 | 26 | |
| 29 | 27 | # Try to remove the file/dir various ways, different |
| 30 | 28 | # Shells/Tcl versions expect it differently. |
| 31 | 29 | catch {file delete \\\\?\\$longpath\\$x.fossil} |
| 32 | 30 |
| --- test/win32-longpath.test | |
| +++ test/win32-longpath.test | |
| @@ -18,14 +18,12 @@ | |
| 18 | # Use "cygpath" for converting it to win32 path. If not |
| 19 | # in Msys or Cygwin shell, nothing needs to be done. |
| 20 | set longpath [exec cygpath -w $longpath] |
| 21 | } |
| 22 | |
| 23 | test longpath-test.1 { |
| 24 | ![catch { |
| 25 | fossil new $longpath/$x.fossil |
| 26 | }] |
| 27 | } |
| 28 | |
| 29 | # Try to remove the file/dir various ways, different |
| 30 | # Shells/Tcl versions expect it differently. |
| 31 | catch {file delete \\\\?\\$longpath\\$x.fossil} |
| 32 |
| --- test/win32-longpath.test | |
| +++ test/win32-longpath.test | |
| @@ -18,14 +18,12 @@ | |
| 18 | # Use "cygpath" for converting it to win32 path. If not |
| 19 | # in Msys or Cygwin shell, nothing needs to be done. |
| 20 | set longpath [exec cygpath -w $longpath] |
| 21 | } |
| 22 | |
| 23 | test win32-longpath-test.1 { |
| 24 | ![regexp CANTOPEN [fossil new $longpath/$x.fossil]] |
| 25 | } |
| 26 | |
| 27 | # Try to remove the file/dir various ways, different |
| 28 | # Shells/Tcl versions expect it differently. |
| 29 | catch {file delete \\\\?\\$longpath\\$x.fossil} |
| 30 |