Add Non Primitive out types tests

Author: thinkbeforecoding

tests/SqlClient.Tests/ProgrammabilityTests.fs

@@ -232,6 +232,30 @@ let ResultSetAndOutParam() =
     Assert.Equal<_ list>([ Some "donkey" ], [ for x in result -> x.myName ] )
     Assert.Equal(2L, !total)
 
+// Fix #340: 
+//    The type provider cannot use Expr.Value(Activator.CreateInstance(t),t) for
+//    non primitive types, like System.Guid.
+//    It now use Expr.DefaultValue(t) for non primite types.
+//    The PassGuid SP copies the input guid to the output parameter when the boolean
+//    parameter is true, and let the out parameter uninitialized when false
+[<Fact>]
+let NonPrimitiveOutParam() =
+    let guid = Guid.NewGuid()
+    let cmd = new AdventureWorks.dbo.PassGuid()
+    let _,result = cmd.Execute(guid, true)
+    Assert.Equal(guid, result)
+
+// Fix #340: 
+//    When an output parameter has not been set, its value is DBNull which cannot
+//    be unboxed. The fix sets the parameter to defaultOf<'t>.
+//    The PassGuid SP copies the input guid to the output parameter when the boolean
+//    parameter is true, and let the out parameter uninitialized when false
+[<Fact>]
+let NonPrimitiveNullOutParam() =
+    let guid = Guid.NewGuid()
+    let cmd = new AdventureWorks.dbo.PassGuid()
+    let _,result = cmd.Execute(guid, false)
+    Assert.Equal(Guid.Empty, result)
 
 [<Fact>]
 let PassingImageAsParamDoesntGetCut() = 

tests/SqlClient.Tests/extensions.sql

@@ -7,6 +7,9 @@ USE AdventureWorks2012
 IF OBJECT_ID('dbo.AddRef') IS NOT NULL 
 	DROP PROCEDURE dbo.AddRef;
 GO
+IF OBJECT_ID('dbo.PassGuid') IS NOT NULL 
+	DROP PROCEDURE dbo.PassGuid;
+GO
 IF OBJECT_ID('dbo.MyProc') IS NOT NULL
 	DROP PROCEDURE dbo.MyProc;
 GO
@@ -169,6 +172,16 @@ BEGIN
 END
 GO
 
+CREATE PROCEDURE dbo.PassGuid @x AS UNIQUEIDENTIFIER, @b AS BIT, @result AS UNIQUEIDENTIFIER OUTPUT 
+AS
+BEGIN
+	IF (@b = 1)
+	BEGIN
+		SET @result = @x 
+	END
+END
+GO
+
 CREATE PROCEDURE dbo.MyProc @p1 dbo.MyTableType readonly AS
 BEGIN
    SELECT * from @p1 p