Add check login test (#71)

* Add check login test
* Update packages

.travis.yml

@@ -11,6 +11,3 @@ matrix:
         - ls
       before_script:
         - sudo bash "../Travis-CI/installODBC.sh"
-      script:
-        - R CMD build .
-        - travis_wait 60 R CMD check sqlmlutils_0.7.3.tar.gz --as-cran

R/R/executeInSQL.R

@@ -380,6 +380,7 @@ speesBuilderFromFunction <- function(func, inputDataQuery, inputDataName, binArg
                          list(result = result, output = output, warnings = funwarnings, errors = funerror)
                          ", funcName, funcBody, paste0(binArgs,collapse=";"), inputDataName, funcName)
 
-    #Call the spees builder to wrap the function; needs the returnVal resultset
+    # Call the spees builder to wrap the function; needs the returnVal resultset
+    #
     speesBuilder(speesBody, inputDataQuery, withResults = TRUE)
 }

R/tests/testthat-checkLogins.R

@@ -0,0 +1,7 @@
+# Copyright(c) Microsoft Corporation. All rights reserved.
+# Licensed under the MIT license.
+
+library(testthat)
+library(sqlmlutils)
+
+test_check("sqlmlutils", filter = "Logins")

R/tests/testthat/test.checkLogins.R

@@ -0,0 +1,29 @@
+# Copyright(c) Microsoft Corporation. All rights reserved.
+# Licensed under the MIT license.
+
+library(testthat)
+context("Tests to check logins")
+
+test_that("Test DBO",
+{
+    hodbc <- sqlmlutils:::connectToServer(helper_getSetting("connectionStringDBO"))
+
+    expect_false(is.null(hodbc))
+    on.exit(dbDisconnect(hodbc), add = TRUE)
+})
+
+test_that("Test AirlineUserdbowner",
+{
+    hodbc <- sqlmlutils:::connectToServer(helper_getSetting("connectionStringAirlineUserdbowner"))
+
+    expect_false(is.null(hodbc))
+    on.exit(dbDisconnect(hodbc), add = TRUE)
+})
+
+test_that("Test AirlineUser",
+{
+    hodbc <- sqlmlutils:::connectToServer(helper_getSetting("connectionStringAirlineUser"))
+
+    expect_false(is.null(hodbc))
+    on.exit(dbDisconnect(hodbc), add = TRUE)
+})