[Stacomir-commits] r505 - pkg/stacomir/inst/config

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

Author: briand
Date: 2018-09-21 16:56:37 +0200 (Fri, 21 Sep 2018)
New Revision: 505

Modified:
   pkg/stacomir/inst/config/testthat.R
Log:


Modified: pkg/stacomir/inst/config/testthat.R
===================================================================
--- pkg/stacomir/inst/config/testthat.R	2018-09-21 14:55:22 UTC (rev 504)
+++ pkg/stacomir/inst/config/testthat.R	2018-09-21 14:56:37 UTC (rev 505)
@@ -4,36 +4,49 @@
 
 
 getUsername <- function(){
-	name <- Sys.info()[["user"]]
-	return(name)
+  name <- Sys.info()[["user"]]
+  return(name)
 }
 if(getUsername() == 'cedric.briand')
 {
-	test_dir("C:/workspace/stacomir/pkg/stacomir/inst/tests/testthat")
+  setwd("C:/workspace/stacomir/pkg/stacomir/")
 }
 if(getUsername() == 'marion.legrand')
 {
-	test_dir("C:/Users/logrami/workspace/stacomir/pkg/stacomir/inst/tests/testthat")
+  setwd("C:/Users/logrami/workspace/stacomir/")
 }
 
-test_file("C:/workspace/stacomir/pkg/stacomir/inst/tests/testthat/test-00-stacomir.R")
-test_file("C:/workspace/stacomir/pkg/stacomir/inst/tests/testthat/test-00-zrefclasses.R")
-test_file("C:/workspace/stacomir/pkg/stacomir/inst/tests/testthat/test-01-report_mig_mult.R")
+
+# to launch all
+
+
+if(getUsername() == 'cedric.briand')
+{
+  test_dir("C:/workspace/stacomir/pkg/stacomir/inst/tests/testthat")
+}
+if(getUsername() == 'marion.legrand')
+{
+  test_dir("C:/Users/logrami/workspace/stacomir/pkg/stacomir/inst/tests/testthat")
+}
+
+test_file(str_c(getwd(),"/inst/tests/testthat/test-00-stacomir.R"))
+test_file(str_c(getwd(),"/inst/tests/testthat/test-00-zrefclasses.R"))
+test_file(str_c(getwd(),"/inst/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("C:/workspace/stacomir/pkg/stacomir/inst/tests/testthat/test-02-report_mig.R")
+test_file(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("C:/workspace/stacomir/pkg/stacomir/inst/tests/testthat/test-03-report_df.R")
+test_file(str_c(getwd(),"//tests/testthat/test-03-report_df.R"))
 x11()
-test_file("C:/workspace/stacomir/pkg/stacomir/inst/tests/testthat/test-04-report_dc.R")
-test_file("C:/workspace/stacomir/pkg/stacomir/inst/tests/testthat/test-05-report_sample_char.R")
-test_file("C:/workspace/stacomir/pkg/stacomir/inst/tests/testthat/test-06-report_mig_interannual.R")
-test_file("C:/workspace/stacomir/pkg/stacomir/inst/tests/testthat/test-07-report_sea_age.R")
-test_file("C:/workspace/stacomir/pkg/stacomir/inst/tests/testthat/test-08-report_silver_eel.R")
-test_file("C:/workspace/stacomir/pkg/stacomir/inst/tests/testthat/test-09-report_annual.R")
-test_file("C:/workspace/stacomir/pkg/stacomir/inst/tests/testthat/test-10-report_env.R")
-test_file("C:/workspace/stacomir/pkg/stacomir/inst/tests/testthat/test-11-report_mig_env.R")
-test_file("C:/workspace/stacomir/pkg/stacomir/inst/tests/testthat/test-12-report_mig_char.R")
-test_file("C:/workspace/stacomir/pkg/stacomir/inst/tests/testthat/test-13-report_species.R")
+test_file(str_c(getwd(),"//tests/testthat/test-04-report_dc.R"))
+test_file(str_c(getwd(),"//tests/testthat/test-05-report_sample_char.R"))
+test_file(str_c(getwd(),"//tests/testthat/test-06-report_mig_interannual.R"))
+test_file(str_c(getwd(),"//tests/testthat/test-07-report_sea_age.R"))
+test_file(str_c(getwd(),"//tests/testthat/test-08-report_silver_eel.R"))
+test_file(str_c(getwd(),"//tests/testthat/test-09-report_annual.R"))
+test_file(str_c(getwd(),"//tests/testthat/test-10-report_env.R"))
+test_file(str_c(getwd(),"//tests/testthat/test-11-report_mig_env.R"))
+test_file(str_c(getwd(),"//tests/testthat/test-12-report_mig_char.R"))
+test_file(str_c(getwd(),"//tests/testthat/test-13-report_species.R"))