fix more naked references to System.Data.SqlClient in tests

Author: smoothdeveloper

tests/SqlClient.Tests/ResultTypeTests.fs

@@ -14,7 +14,14 @@ let command = "SELECT * FROM (VALUES ('F#', 2005), ('Scala', 2003), ('foo bar',N
 
 type ResultTypeReader = SqlCommandProvider<command, ConnectionStrings.AdventureWorksNamed, ResultType = ResultType.DataReader>
 
-let ReadToMaps(reader : System.Data.SqlClient.SqlDataReader) = 
+#if SYSTEM_DATA_SQLCLIENT
+open System.Data.SqlClient
+#endif
+#if MICROSOFT_DATA_SQLCLIENT
+open Microsoft.Data.SqlClient
+#endif
+
+let ReadToMaps(reader : SqlDataReader) = 
     seq {
         try 
             while(reader.Read()) do

tests/SqlClient.Tests/TVPTests.fs

@@ -106,7 +106,13 @@ let TwoTVPParameterOfSameUDTT() =
     let expected = [ for id, name in xs @ ys -> MyFunc.Record(id, name) ]
     Assert.Equal<_ list>(expected, cmd.Execute(xs', ys') |> Seq.toList)    
 
+
+#if SYSTEM_DATA_SQLCLIENT
 open System.Data.SqlClient
+#endif
+#if MICROSOFT_DATA_SQLCLIENT
+open Microsoft.Data.SqlClient
+#endif
 
 [<Fact>]
 let ReuseTVPTypeForDynamicADONET() = 

tests/SqlClient.Tests/TypeProviderTest.fs

@@ -110,7 +110,7 @@ let ToTraceString() =
 let runScalarQuery query = 
     use conn = new SqlConnection(ConnectionStrings.AdventureWorks)
     conn.Open()
-    use cmd = new System.Data.SqlClient.SqlCommand()
+    use cmd = new SqlCommand()
     cmd.Connection <- conn  
     cmd.CommandText <- query
     cmd.ExecuteScalar()