fixing some remaining tests that don't compile.

Author: smoothdeveloper

tests/SqlClient.Tests/CreateCommand.fs

@@ -45,7 +45,7 @@ let udttAndTuplesOutput() =
 let optionalParams() = 
     use cmd = DB.CreateCommand<"SELECT CAST(@x AS INT) + ISNULL(CAST(@y AS INT), 1)", SingleRow = true, AllParametersOptional = true>()
     Assert.Equal( Some( Some 14), cmd.Execute(Some 3, Some 11))    
-    Assert.Equal( Some( Some 12), cmd.Execute(x = Some 11))    
+    Assert.Equal( Some( Some 12), cmd.Execute(x = Some 11, y = None))    
 
 [<Literal>]
 let evenNumbers = "select value, svalue = cast(value as char(1)) from (values (2), (4), (6), (8)) as T(value)"

tests/SqlClient.Tests/ProgrammabilityTests.fs

@@ -159,17 +159,17 @@ let FunctionWithParamOfValueTypeWithNullDefault() =
     use cmd2 = new AdventureWorks.dbo.ufnGetStock2()
     Assert.Equal(cmd1.Execute(1), cmd2.Execute(Some 1))
 
-    Assert.Equal(Some 83173, cmd2.Execute())
+    Assert.Equal(Some 83173, cmd2.Execute(None))
 
 [<Fact>]
 let SpWithParamOfRefTypeWithNullDefault() = 
     use echo = new AdventureWorks.dbo.Echo()
-    Assert.Equal( Some (Some (box "Empty")), echo.ExecuteSingle())
+    Assert.Equal( Some (Some (box "Empty")), echo.ExecuteSingle(None))
 
     Assert.Equal( Some(Some (box 42)), echo.ExecuteSingle 42)
 
     use echoText = new AdventureWorks.dbo.EchoText()
-    Assert.Equal<string[]>([| "<NULL>" |], echoText.Execute() |> Seq.toArray)
+    Assert.Equal<string[]>([| "<NULL>" |], echoText.Execute(null) |> Seq.toArray)
 
     let param = "Hello, world!"
     Assert.Equal<string[]>([| param |], echoText.Execute( param) |> Seq.toArray)