diff --git a/build.fsx b/build.fsx index f497d3c7e..0b42fed49 100644 --- a/build.fsx +++ b/build.fsx @@ -166,9 +166,7 @@ let setupMssql url saPassword = connBuilder.InitialCatalog <- "master" connBuilder.UserID <- "sa" connBuilder.DataSource <- url - connBuilder.Password <- saPassword - connBuilder.DataSource <- "localhost" - connBuilder.IntegratedSecurity <- true + connBuilder.Password <- saPassword let runCmd query = // We wait up to 30 seconds for MSSQL to be initialized diff --git a/tests/SqlProvider.Tests/SqlServerTests.fs b/tests/SqlProvider.Tests/SqlServerTests.fs index be3bb3ab2..195807d83 100644 --- a/tests/SqlProvider.Tests/SqlServerTests.fs +++ b/tests/SqlProvider.Tests/SqlServerTests.fs @@ -46,7 +46,7 @@ type Employee = { [] [] let ``get individuals`` (runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) let indv = ctx.Dbo.Employees.Individuals.``As FirstName``.``100, Steven`` @@ -58,7 +58,7 @@ let ``get individuals`` (runtimeConnStr) = [] [] let employeesFirstName (runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) query { for emp in ctx.Dbo.Employees do @@ -70,7 +70,7 @@ let employeesFirstName (runtimeConnStr) = [] [] let employeesFirstNameAsync (runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) query { for emp in ctx.Dbo.Employees do @@ -87,7 +87,7 @@ let employeesFirstNameAsync (runtimeConnStr) = [] [] let employeesFirstNameEmptyList (runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) query { for emp in ctx.Dbo.Employees do @@ -100,7 +100,7 @@ let employeesFirstNameEmptyList (runtimeConnStr) = [] [] let regionsEmptyTable (runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) query { for r in ctx.Dbo.Regions do @@ -122,7 +122,7 @@ let regionsEmptyTable (runtimeConnStr) = [] [] let salesNamedDavid (runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) query { for emp in ctx.Dbo.Employees do @@ -135,7 +135,7 @@ let salesNamedDavid (runtimeConnStr) = [] [] let employeesJob (runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) let dbo = ctx.Dbo query { @@ -152,7 +152,7 @@ let employeesJob (runtimeConnStr) = [] [] let topSales5ByCommission(runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) query { for emp in ctx.Dbo.Employees do sortByDescending emp.CommissionPct @@ -166,7 +166,7 @@ let topSales5ByCommission(runtimeConnStr) = [] [] let pagingTest (runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) query { for emp in ctx.Dbo.Employees do @@ -194,7 +194,7 @@ type Country = { [] [] let ``Can customise SQLEntity mapping`` (runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) query { for emp in ctx.Dbo.Countries do select emp @@ -216,7 +216,7 @@ open System.Linq [] [] let nestedQueryTest (runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) let qry1 = query { for emp in ctx.Dbo.Employees do @@ -233,7 +233,7 @@ let nestedQueryTest (runtimeConnStr) = [] [] let ``simple math operationsquery`` (runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) let itemOf90 = query { @@ -254,7 +254,7 @@ let ``simple math operationsquery`` (runtimeConnStr) = [] [] let canoncicalOpTest (runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) query { // Silly query not hitting indexes, so testing purposes only... @@ -276,7 +276,7 @@ let canoncicalOpTest (runtimeConnStr) = [] [] let ``can successfully update records`` (runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) let antarctica = let existingAntarctica = @@ -326,7 +326,7 @@ let ``can successfully update records`` (runtimeConnStr) = [] [] let ``can invoke a sproc`` (runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) ignore <| ctx.Procedures.AddJobHistory.Invoke(100, DateTime(1993, 1, 13), DateTime(1998, 7, 24), "IT_PROG", 60) @@ -335,7 +335,7 @@ let ``can invoke a sproc`` (runtimeConnStr) = [] [] let employees (runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) [ for e in ctx.Procedures.GetEmployees.Invoke().ResultSet do @@ -346,7 +346,7 @@ let employees (runtimeConnStr) = [] [] let employeesAsync (runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) async { let! ia = ctx.Procedures.GetEmployees.InvokeAsync() @@ -362,7 +362,7 @@ type Region = { [] [] let ``Support for MARS procs`` (runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) let results = ctx.Procedures.GetLocationsAndRegions.Invoke() printfn "%A" results.ColumnValues @@ -378,7 +378,7 @@ let ``Support for MARS procs`` (runtimeConnStr) = [] [] let ``Support for sprocs that return ref cursors and has in parameters`` (runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) let getemployees hireDate = let results = (ctx.Procedures.GetEmployeesStartingAfter.Invoke hireDate) @@ -392,7 +392,7 @@ let ``Support for sprocs that return ref cursors and has in parameters`` (runtim [] [] let ``Distinct alias test`` (runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) query { for emp in ctx.Dbo.Employees do @@ -403,7 +403,7 @@ let ``Distinct alias test`` (runtimeConnStr) = [] [] let ``Standard deviation test`` (runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) let salaryStdDev : float = query { @@ -415,7 +415,7 @@ let ``Standard deviation test`` (runtimeConnStr) = //******************** Delete all test **********************// let ``Delte all tests``(runtimeConnStr) = - let ctx = HR.GetDataContext(runtimeConnStr) + let ctx = HR.GetDataContext(connectionString = runtimeConnStr) query { for c in ctx.Dbo.Employees do where (c.FirstName = "Tuomas")