Commitad37db2

authored

Merge pull request#442 from katrinabrock/fix-config

2 parentsbbfde07 +7bb579d commitad37db2Copy full SHA for ad37db2

File tree

+26

-2

lines changed

+26

-2

lines changed

Lines changed: 2 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -6,14 +6,14 @@ default_windows_archs <- function() {`
`6`	`6`
`7`	`7`	`default_update_after<-function() as.difftime(24,units="hours")`
`8`	`8`
`9`		`-env_decode_dependencies<-function(x,name) {`
	`9`	`+env_decode_dependencies<-function(x,name,...) {`
`10`	`10`	`if (tolower(x)%in% c("yes","true","1","on"))return(TRUE)`
`11`	`11`	`if (tolower(x)%in% c("no","false","0","off"))return(FALSE)`
`12`	`12`	`if (tolower(x)=="na")return(NA)`
`13`	`13`	`strsplit(x,";",fixed=TRUE)[[1]]`
`14`	`14`	`}`
`15`	`15`
`16`		`-env_decode_difftime<-function(x,name) {`
	`16`	`+env_decode_difftime<-function(x,name,...) {`
`17`	`17`	`if (nchar(x)>=2) {`
`18`	`18`	`unit<- substr(x, nchar(x), nchar(x))`
`19`	`19`	`unit<- c(s="secs",m="mins",h="hours",d="days")[unit]`

Lines changed: 24 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,24 @@`
	`1`	`+test_that("current_config runs without error", {`
	`2`	`+ expect_no_error(current_config())`
	`3`	`+})`
	`4`	`+`
	`5`	`+test_that("current_config runs without error when difftime config set", {`
	`6`	`+withr::local_envvar(PKG_SYSREQS_DB_UPDATE_TIMEOUT="30")`
	`7`	`+ expect_error(`
	`8`	`+ current_config()$get("sysreqs_db_update_timeout"),`
	`9`	`+"Invalid time interval specification"`
	`10`	`+ )`
	`11`	`+withr::local_envvar(PKG_SYSREQS_DB_UPDATE_TIMEOUT="30s")`
	`12`	`+ expect_equal(`
	`13`	`+ current_config()$get("sysreqs_db_update_timeout"),`
	`14`	`+ as.difftime(30,units='secs'),`
	`15`	`+ignore_attr=TRUE`
	`16`	`+ )`
	`17`	`+withr::local_envvar(PKG_SYSREQS_DB_UPDATE_TIMEOUT="30h")`
	`18`	`+ expect_equal(`
	`19`	`+ current_config()$get("sysreqs_db_update_timeout"),`
	`20`	`+ as.difftime(30,units="hours"),`
	`21`	`+ignore_attr=TRUE`
	`22`	`+ )`
	`23`	`+})`
	`24`	`+stopifnot(Sys.getenv('PKG_SYSREQS_DB_UPDATE_TIMEOUT')=='')`

Comments

(0)