[Stacomir-commits] r502 - stacomir0.5.3/pkg/stacomir/inst/config

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

Author: briand
Date: 2018-09-21 16:48:21 +0200 (Fri, 21 Sep 2018)
New Revision: 502

Modified:
   stacomir0.5.3/pkg/stacomir/inst/config/stacomi_manual_launch.r
   stacomir0.5.3/pkg/stacomir/inst/config/testthat.R
Log:
testthat for multi user

Modified: stacomir0.5.3/pkg/stacomir/inst/config/stacomi_manual_launch.r
===================================================================
--- stacomir0.5.3/pkg/stacomir/inst/config/stacomi_manual_launch.r	2018-09-18 18:25:06 UTC (rev 501)
+++ stacomir0.5.3/pkg/stacomir/inst/config/stacomi_manual_launch.r	2018-09-21 14:48:21 UTC (rev 502)
@@ -79,7 +79,7 @@
 source("setAs.R")
 
 # functions
-source("fun_report_mig_char.R")
+#source("fun_report_mig_char.R")
 source("fungraph_glasseel.R")
 source("fungraph.R")
 source("funstat.R")

Modified: stacomir0.5.3/pkg/stacomir/inst/config/testthat.R
===================================================================
--- stacomir0.5.3/pkg/stacomir/inst/config/testthat.R	2018-09-18 18:25:06 UTC (rev 501)
+++ stacomir0.5.3/pkg/stacomir/inst/config/testthat.R	2018-09-21 14:48:21 UTC (rev 502)
@@ -9,6 +9,18 @@
 }
 if(getUsername() == 'cedric.briand')
 {
+  setwd("C:/workspace/stacomir/pkg/stacomir/")
+}
+if(getUsername() == 'marion.legrand')
+{
+  setwd("C:/Users/logrami/workspace/stacomir/")
+}
+
+# to launch all
+
+
+if(getUsername() == 'cedric.briand')
+{
 	test_dir("C:/workspace/stacomir/pkg/stacomir/inst/tests/testthat")
 }
 if(getUsername() == 'marion.legrand')
@@ -16,24 +28,24 @@
 	test_dir("C:/Users/logrami/workspace/stacomir/pkg/stacomir/inst/tests/testthat")
 }
 
-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")
+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"))