more exhaustive testing of #393

Author: smoothdeveloper

src/SqlClient/Properties/launchSettings.json

@@ -14,6 +14,12 @@
       "commandName": "Executable",
       "executablePath": "C:\\Users\\gauth\\AppData\\Local\\JetBrains\\Toolbox\\apps\\Rider\\ch-0\\232.10203.29\\bin\\rider64.exe",
       "commandLineArgs": "..\\..\\..\\..\\..\\tests.sln"
+    },
+    "debug vs2026": {
+      "commandName": "Executable",
+      "executablePath": "C:\\Program Files\\Microsoft Visual Studio\\18\\Community\\Common7\\IDE\\devenv.exe",
+      "commandLineArgs": ".\\Tests.sln",
+      "workingDirectory": "C:\\dev\\src\\github\\fsprojects\\FSharp.Data.SqlClient.testpr"
     }
   }
 }

tests/SqlClient.Tests/TVPTests.fs

@@ -201,11 +201,15 @@ let ``issue #345 decimal in TVP gets rounded`` () =
 [<Fact>]
 let ``issue #393 troubleshoot if datetimeoffset raises an exception`` () =
     // N.B, this should be tested against SQL Azure
-    let value = System.DateTimeOffset.UtcNow
-    let tvp = [AdventureWorks.dbo.``User-Defined Table Types``.datetimeoffset_test_tvp(value)]
+    let datetimeoffset_value = System.DateTimeOffset.UtcNow
+    let datetime2_value = System.DateTime.UtcNow
+    let time_value = System.DateTime.UtcNow.TimeOfDay
+    let tvp = [AdventureWorks.dbo.``User-Defined Table Types``.datetimeoffset_test_tvp(datetimeoffset_value, datetime2_value, time_value)]
     use cmd = new AdventureWorks.dbo.datetimeoffset_test(ConnectionStrings.AdventureWorksLiteral)
     let resultvalue = cmd.Execute(tvp) |> Seq.head
-    Assert.Equal(value, resultvalue)
+    Assert.Equal(datetimeoffset_value, resultvalue.created_at)
+    Assert.Equal(datetime2_value     , resultvalue.datetime2_value)
+    Assert.Equal(time_value          , resultvalue.time_value)
 
 type FixedLengthBinaryTVP = SqlCommandProvider<"EXEC [dbo].[FixedLengthBinaryTVPTestProc] @fixedLengthBinaryTests", ConnectionStrings.AdventureWorksLiteral>
 [<Fact>]

tests/SqlClient.Tests/extensions.sql

@@ -431,11 +431,16 @@ go
 if type_id('dbo.datetimeoffset_test_tvp') is not null
 	drop type dbo.datetimeoffset_test_tvp
 go
-create type dbo.datetimeoffset_test_tvp as table(created_at datetimeoffset not null)
+create type dbo.datetimeoffset_test_tvp as table(
+	created_at        datetimeoffset not null
+	, datetime2_value datetime2      not null
+	, time_value      time           not null
+)
 go
 create procedure dbo.datetimeoffset_test (@tvp dbo.datetimeoffset_test_tvp readonly)
 as
 begin
-    select created_at from @tvp
+    select created_at, datetime2_value, time_value from @tvp
 end
 go
+