Improve SQL Server setup reliability and add GitHub Actions workflow

Co-authored-by: Thorium <[email protected]>

Author: Copilot

.github/workflows/dotnet.yml

@@ -0,0 +1,46 @@
+name: .NET
+
+on:
+  push:
+    branches: [ "master" ]
+  pull_request:
+    branches: [ "master" ]
+
+jobs:
+  build:
+    runs-on: ubuntu-latest
+    
+    services:
+      postgres:
+        image: postgres:13
+        env:
+          POSTGRES_PASSWORD: Password12!
+          POSTGRES_USER: postgres
+          POSTGRES_DB: sqlprovider
+        options: >-
+          --health-cmd pg_isready
+          --health-interval 10s
+          --health-timeout 5s
+          --health-retries 5
+        ports:
+          - 5432:5432
+
+    steps:
+    - uses: actions/checkout@v4
+    
+    - name: Setup .NET
+      uses: actions/setup-dotnet@v4
+      with:
+        dotnet-version: 8.0.x
+        
+    - name: Restore tools
+      run: dotnet tool restore
+      
+    - name: Restore dependencies  
+      run: dotnet paket restore
+      
+    - name: Build
+      run: dotnet fake run build.fsx -t Build
+      
+    - name: Test
+      run: dotnet fake run build.fsx -t RunTests

build.fsx

@@ -285,21 +285,27 @@ let setupMssql url saPassword =
     connBuilder.UserID <- "sa"
     connBuilder.DataSource <- url
     connBuilder.Password <- saPassword
+    connBuilder.TrustServerCertificate <- true
 
     let runCmd query =
-      // We wait up to 30 seconds for MSSQL to be initialized
+      // We wait up to 60 seconds for MSSQL to be initialized on AppVeyor
+      let maxAttempts = if Fake.Core.BuildServer.buildServer = AppVeyor then 60 else 30
       let rec runCmd' attempt =
         try
           use conn = new SqlConnection(connBuilder.ConnectionString)
           conn.Open()
           use cmd = new SqlCommand(query, conn)
           cmd.ExecuteNonQuery() |> ignore
         with e ->
-          printfn "Connection attempt %i: %A" attempt e
-          Threading.Thread.Sleep 1000
-          if attempt < 30 then runCmd' (attempt + 1)
+          printfn "Connection attempt %i/%i: %A" attempt maxAttempts e
+          if attempt < maxAttempts then
+            Threading.Thread.Sleep 1000
+            runCmd' (attempt + 1)
+          else
+            printfn "Failed to connect to SQL Server after %i attempts. Last error: %A" maxAttempts e
+            reraise()
 
-      runCmd' 0
+      runCmd' 1
 
     let runScript fileLines =
 
@@ -330,10 +336,12 @@ let setupMssql url saPassword =
     (url,saPassword) |> ignore
 
 Target.create "SetupMSSQL2008R2" (fun _ ->
+    printfn "Setting up MSSQL for AppVeyor (compatibility target for SQL2008R2)"
     setupMssql "(local)\\SQL2022" "Password12!"
 )
 
 Target.create "SetupMSSQL2017" (fun _ ->
+    printfn "Setting up MSSQL for AppVeyor (compatibility target for SQL2017)"
     setupMssql "(local)\\SQL2022" "Password12!"
 )
 

tests/SqlProvider.Tests/SqlServerTests.fs

@@ -12,8 +12,8 @@ let runtimeConnStr = connStr2008R2
 #else
 module SqlServerTests
 
-let [<Literal>] connStr2008R2 = "Data Source=(local)\SQL2022;User Id=sa;Password=Password12!; Initial Catalog=sqlprovider;"
-let [<Literal>] connStr2017 = "Data Source=(local)\SQL2022;User Id=sa;Password=Password12!; Initial Catalog=sqlprovider;"
+let [<Literal>] connStr2008R2 = "Data Source=(local)\SQL2022;User Id=sa;Password=Password12!; Initial Catalog=sqlprovider; TrustServerCertificate=true;"
+let [<Literal>] connStr2017 = "Data Source=(local)\SQL2022;User Id=sa;Password=Password12!; Initial Catalog=sqlprovider; TrustServerCertificate=true;"
 
 #endif