forked from saikath1/srt.core
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathrun_tests.R
More file actions
28 lines (27 loc) · 1.06 KB
/
run_tests.R
File metadata and controls
28 lines (27 loc) · 1.06 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
library('testthat')
source('tests/needed.R')
source('tests/generic_tests.R')
model_directories <<- dir("./models", no..=TRUE)
cat("\nModels Detected: ")
cat(model_directories)
cat("\n\n")
for(directory in model_directories){
current_directory <<- paste(".","models",directory,sep="/")
cat(paste("---------------------------------------------------","\n"))
cat("|\tDIRECTORY:",paste(current_directory,"\n"))
cat(paste("---------------------------------------------------","\n"))
model_files <<- list.files(current_directory)
if("Model_specifications.R" %in% model_files){
cat(paste("|sourcing --> ",current_directory,"/Model_specifications.R","\n",sep=""))
source(paste(current_directory,"/","Model_specifications.R",sep=""))
current_model_input <<- paste(directory,"_input",sep="")
modelspecifications_test(directory,file)
}
model_files <- model_files[model_files!="Model_specifications.R"]
for(file in model_files){
current_file <<- paste(current_directory,file,sep="/")
cat(paste("|sourcing -->",current_file,"\n"))
source(current_file)
}
cat("\n\n")
}