[Stacomir-commits] r518 - pkg/stacomir/tests

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

Author: legrand
Date: 2018-09-27 14:46:30 +0200 (Thu, 27 Sep 2018)
New Revision: 518

Modified:
   pkg/stacomir/tests/testthat.R
Log:


Modified: pkg/stacomir/tests/testthat.R
===================================================================
--- pkg/stacomir/tests/testthat.R	2018-09-27 10:09:52 UTC (rev 517)
+++ pkg/stacomir/tests/testthat.R	2018-09-27 12:46:30 UTC (rev 518)
@@ -3,55 +3,54 @@
 require(testthat)
 require(stacomiR)
 
-getUsername <- function(){
-  name <- Sys.info()[["user"]]
-  return(name)
-}
-if(getUsername() == 'cedric.briand')
-{
-  setwd("C:/workspace/stacomir/pkg/stacomir/")
-}
-if(getUsername() == 'marion.legrand')
-{
-  setwd("C:/Users/logrami/workspace/stacomir/pkg/stacomir/")
-}
+#getUsername <- function(){
+#  name <- Sys.info()[["user"]]
+#  return(name)
+#}
+#if(getUsername() == 'cedric.briand')
+#{
+#  setwd("C:/workspace/stacomir/pkg/stacomir/")
+#}
+#if(getUsername() == 'marion.legrand')
+#{
+#  setwd("C:/Users/logrami/workspace/stacomir/pkg/stacomir/")
+#}
+#
+#
+## to launch all
+#
+#
+#if(getUsername() == 'cedric.briand')
+#{
+#  skip_on_cran()	
+#  test_dir("C:/workspace/stacomir/pkg/stacomir/tests/testthat")
+#}
+#if(getUsername() == 'marion.legrand')
+#{
+#  skip_on_cran()
+#  test_dir("C:/Users/logrami/workspace/stacomir/pkg/stacomir/tests/testthat")
+#}
 
-
-# to launch all
-
-
-if(getUsername() == 'cedric.briand')
-{
-  skip_on_cran()	
-  test_dir("C:/workspace/stacomir/pkg/stacomir/tests/testthat")
-}
-if(getUsername() == 'marion.legrand')
-{
-  skip_on_cran()
-  test_dir("C:/Users/logrami/workspace/stacomir/pkg/stacomir/tests/testthat")
-}
-
 test_check("stacomiR")
 
-\donttest{
-test_file(stringr::str_c(getwd(),"/tests/testthat/test-00-stacomir.R"))
-test_file(stringr::str_c(getwd(),"/tests/testthat/test-00-zrefclasses.R"))
-test_file(stringr::str_c(getwd(),"/tests/testthat/test-01-report_mig_mult.R"))
-# warning we don't need to be worried about
-#Quoted identifiers should have class SQL, use DBI::SQL() if the caller performs the quoting.
-# this comes from incompatibility between  RSQLite 1.1-1 and sqldf
-# we don't really use RSQLite and this is only a warning not a problem
-test_file(stringr::str_c(getwd(),"/tests/testthat/test-02-report_mig.R"))
-# if errors check existence of dbname test and grants to test on dbname test
-test_file(stringr::str_c(getwd(),"/tests/testthat/test-03-report_df.R"))
-test_file(stringr::str_c(getwd(),"/tests/testthat/test-04-report_dc.R"))
-test_file(stringr::str_c(getwd(),"/tests/testthat/test-05-report_sample_char.R"))
-test_file(stringr::str_c(getwd(),"/tests/testthat/test-06-report_mig_interannual.R"))
-test_file(stringr::str_c(getwd(),"/tests/testthat/test-07-report_sea_age.R"))
-test_file(stringr::str_c(getwd(),"/tests/testthat/test-08-report_silver_eel.R"))
-test_file(stringr::str_c(getwd(),"/tests/testthat/test-09-report_annual.R"))
-test_file(stringr::str_c(getwd(),"/tests/testthat/test-10-report_env.R"))
-test_file(stringr::str_c(getwd(),"/tests/testthat/test-11-report_mig_env.R"))
-test_file(stringr::str_c(getwd(),"/tests/testthat/test-12-report_mig_char.R"))
-test_file(stringr::str_c(getwd(),"/tests/testthat/test-13-report_species.R"))
-}
\ No newline at end of file
+
+#test_file(stringr::str_c(getwd(),"/tests/testthat/test-00-stacomir.R"))
+#test_file(stringr::str_c(getwd(),"/tests/testthat/test-00-zrefclasses.R"))
+#test_file(stringr::str_c(getwd(),"/tests/testthat/test-01-report_mig_mult.R"))
+## warning we don't need to be worried about
+##Quoted identifiers should have class SQL, use DBI::SQL() if the caller performs the quoting.
+## this comes from incompatibility between  RSQLite 1.1-1 and sqldf
+## we don't really use RSQLite and this is only a warning not a problem
+#test_file(stringr::str_c(getwd(),"/tests/testthat/test-02-report_mig.R"))
+## if errors check existence of dbname test and grants to test on dbname test
+#test_file(stringr::str_c(getwd(),"/tests/testthat/test-03-report_df.R"))
+#test_file(stringr::str_c(getwd(),"/tests/testthat/test-04-report_dc.R"))
+#test_file(stringr::str_c(getwd(),"/tests/testthat/test-05-report_sample_char.R"))
+#test_file(stringr::str_c(getwd(),"/tests/testthat/test-06-report_mig_interannual.R"))
+#test_file(stringr::str_c(getwd(),"/tests/testthat/test-07-report_sea_age.R"))
+#test_file(stringr::str_c(getwd(),"/tests/testthat/test-08-report_silver_eel.R"))
+#test_file(stringr::str_c(getwd(),"/tests/testthat/test-09-report_annual.R"))
+#test_file(stringr::str_c(getwd(),"/tests/testthat/test-10-report_env.R"))
+#test_file(stringr::str_c(getwd(),"/tests/testthat/test-11-report_mig_env.R"))
+#test_file(stringr::str_c(getwd(),"/tests/testthat/test-12-report_mig_char.R"))
+#test_file(stringr::str_c(getwd(),"/tests/testthat/test-13-report_species.R"))