Normalize lines in lineof when running tests

vipentti · Dec 27, 2023 · d244add · d244add
1 parent 7373090
commit d244add
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Visp.Compiler/Syntax/SynWriter.fs b/src/Visp.Compiler/Syntax/SynWriter.fs
@@ -137,7 +137,10 @@ module Write =
     let newlineIndent: SynWriter -> unit = chain newline indent
 
     let lineof (w: SynWriter) (range: range) =
-        fmtprintfn w "// line %i @\"%s\"" range.StartLine range.FileName
+        if SyntaxWriteUtilThreadStatics.RunningTests then
+            fmtprintfn w "// line %i @\"%s\"" range.StartLine ((NormalizedPath range.FileName).Path)
+        else
+            fmtprintfn w "// line %i @\"%s\"" range.StartLine range.FileName
 
     let text (w: SynWriter) (txt: Text) =
         match txt with