[Stacomir-commits] r510 - pkg/stacomirtools/tests/testthat

[noreply at r-forge.r-project.org]

Author: briand
Date: 2018-09-23 14:41:08 +0200 (Sun, 23 Sep 2018)
New Revision: 510

Modified:
   pkg/stacomirtools/tests/testthat/test-00.R
Log:
adapted test 

Modified: pkg/stacomirtools/tests/testthat/test-00.R
===================================================================
--- pkg/stacomirtools/tests/testthat/test-00.R	2018-09-23 12:25:19 UTC (rev 509)
+++ pkg/stacomirtools/tests/testthat/test-00.R	2018-09-23 12:41:08 UTC (rev 510)
@@ -4,6 +4,7 @@
 test_that("Test that RequeteODBC works on a database ", {
         skip_on_cran()
         # this requires an odbc link to be setup for test here a database bd_contmig_nat used for stacomir
+        # the odbc link is bd_contmig_nat and points to database bd_contmig_nat
         # userlocal and passwordlocal are generated from Rprofile.site
         require(stacomirtools)
         req<-new("RequeteODBC")
@@ -20,8 +21,7 @@
       assign("showmerequest",1,envir_stacomi)
       req<-new("RequeteODBC")
       req at sql<-"select * from iav.t_lot_lot limit 10"
-      req at baseODBC <- c("bd_contmig_nat",userlocal,passwordlocal)
-      req<-connect(req)      
-      expect_that(req at connection,is_a("RODBC"))
+      req at baseODBC <- c("bd_contmig_nat",userlocal,passwordlocal)   
+      expect_output(connect(req),"select \\* from iav\\.t_lot_lot limit 10")
     })