add missing raise for formatting functions (#1376)

* add missing raise for formatting functions

* add ExitCodeTests file to include test of cli formatting without check parameter

Co-authored-by: Florian Verdonck <florian.verdonck@outlook.com>

src/Fantomas.CoreGlobalTool.Tests/ExitCodeTests.fs

@@ -0,0 +1,14 @@
+module Fantomas.CoreGlobalTool.Tests.ExitCodeTests
+
+open NUnit.Framework
+open FsUnit
+open Fantomas.CoreGlobalTool.Tests.TestHelpers
+
+[<Literal>]
+let WithErrors = """let a ="""
+
+[<Test>]
+let ``invalid files should report exit code 1`` () =
+    use fileFixture = new TemporaryFileCodeSample(WithErrors)
+    let (exitCode, _) = formatCode fileFixture.Filename
+    exitCode |> should equal 1

src/Fantomas.CoreGlobalTool.Tests/Fantomas.CoreGlobalTool.Tests.fsproj

@@ -18,6 +18,7 @@
     <Compile Include="ByteOrderMarkTests.fs" />
     <Compile Include="ConfigTests.fs" />
     <Compile Include="IgnoreFilesTests.fs" />
+    <Compile Include="ExitCodeTests.fs" />
   </ItemGroup>
   <Import Project="..\..\.paket\Paket.Restore.targets" />
 </Project>

src/Fantomas.CoreGlobalTool.Tests/TestHelpers.fs

@@ -124,3 +124,7 @@ let runFantomasTool arguments =
 let checkCode file =
     let arguments = sprintf "--check \"%s\"" file
     runFantomasTool arguments
+
+let formatCode file =
+    let arguments = sprintf "\"%s\"" file
+    runFantomasTool arguments

src/Fantomas.CoreGlobalTool/Program.fs

@@ -307,6 +307,8 @@ let main argv =
                 File.WriteAllText(outFile, File.ReadAllText inFile)
                 printfn "Force writing original contents to %s" outFile
 
+            raise exn
+
     let stringToFile (s: string) (outFile: string) config =
         try
             let fsi = Path.GetExtension(outFile) = ".fsi"
@@ -329,6 +331,8 @@ let main argv =
                 File.WriteAllText(outFile, s)
                 printfn "Force writing original contents to %s." outFile
 
+            raise exn
+
     let stringToStdOut s config =
         try
             use buffer = new StringWriter() :> TextWriter
@@ -337,6 +341,7 @@ let main argv =
         with exn ->
             eprintfn "The following exception occurs while formatting stdin: %O" exn
             if force then stdout.Write(s)
+            raise exn
 
     let processFile inputFile outputFile =
         if inputFile <> outputFile then
@@ -377,6 +382,8 @@ let main argv =
             if force then
                 stdout.Write(File.ReadAllText inFile)
 
+            raise exn
+
     if Option.isSome version then
         let version = CodeFormatter.GetVersion()
         printfn "Fantomas v%s" version