Fossil SCM
Fix a number of unversioned tests under cygwin by letting he fake editor convert windows paths to unix paths.
Commit
84d86ba60ff83908351bda746298f143b0f29c1138c46302ee7f68ddcc809fc9
Parent
f313c19e986b0d8…
1 file changed
+5
+5
| --- test/fake-editor.tcl | ||
| +++ test/fake-editor.tcl | ||
| @@ -49,10 +49,15 @@ | ||
| 49 | 49 | } |
| 50 | 50 | |
| 51 | 51 | ############################################################################### |
| 52 | 52 | |
| 53 | 53 | set fileName [lindex $argv 0] |
| 54 | + | |
| 55 | +if {[regexp {^CYGWIN} $::tcl_platform(os)]} { | |
| 56 | + # Under Cygwin, we get a Windows path but must access using the unix path. | |
| 57 | + set fileName [exec cygpath --unix $fileName] | |
| 58 | +} | |
| 54 | 59 | |
| 55 | 60 | if {[file exists $fileName]} { |
| 56 | 61 | set data [readFile $fileName] |
| 57 | 62 | } else { |
| 58 | 63 | set data "" |
| 59 | 64 |
| --- test/fake-editor.tcl | |
| +++ test/fake-editor.tcl | |
| @@ -49,10 +49,15 @@ | |
| 49 | } |
| 50 | |
| 51 | ############################################################################### |
| 52 | |
| 53 | set fileName [lindex $argv 0] |
| 54 | |
| 55 | if {[file exists $fileName]} { |
| 56 | set data [readFile $fileName] |
| 57 | } else { |
| 58 | set data "" |
| 59 |
| --- test/fake-editor.tcl | |
| +++ test/fake-editor.tcl | |
| @@ -49,10 +49,15 @@ | |
| 49 | } |
| 50 | |
| 51 | ############################################################################### |
| 52 | |
| 53 | set fileName [lindex $argv 0] |
| 54 | |
| 55 | if {[regexp {^CYGWIN} $::tcl_platform(os)]} { |
| 56 | # Under Cygwin, we get a Windows path but must access using the unix path. |
| 57 | set fileName [exec cygpath --unix $fileName] |
| 58 | } |
| 59 | |
| 60 | if {[file exists $fileName]} { |
| 61 | set data [readFile $fileName] |
| 62 | } else { |
| 63 | set data "" |
| 64 |