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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/tinytest.R
\name{run_test_file}
\alias{run_test_file}
\title{Run an R file containing tests; gather results}
\usage{
run_test_file(
file,
at_home = TRUE,
verbose = getOption("tt.verbose", 2),
color = getOption("tt.pr.color", TRUE),
remove_side_effects = TRUE,
side_effects = FALSE,
set_env = list(),
encoding = "unknown",
...
)
}
\arguments{
\item{file}{\code{[character]} File location of a .R file.}
\item{at_home}{\code{[logical]} toggle local tests.}
\item{verbose}{\code{[integer]} verbosity level. 0: be quiet, 1: print
status per file, 2: print status and increase counter after each test expression.}
\item{color}{\code{[logical]} toggle colorize counts in verbose mode (see Note)}
\item{remove_side_effects}{\code{[logical]} toggle remove user-defined side
effects? See section on side effects.}
\item{side_effects}{\code{[logical|list]} Either a logical,
or a list of arguments to pass to \code{\link{report_side_effects}}.}
\item{set_env}{\code{[named list]}. Key=value pairs of environment variables
that will be set before the test file is run and reset afterwards. These are not
counted as side effects of the code under scrutiny.}
\item{encoding}{\code{[character]} Define encoding argument passed to \code{\link[base]{parse}}
when parsing \code{file}.}
\item{...}{Currently unused}
}
\value{
A \code{list} of class \code{tinytests}, which is a list of
\code{\link{tinytest}} objects.
}
\description{
Run an R file containing tests; gather results
}
\details{
In \pkg{tinytest}, a test file is just an R script where some or all
of the statements express an \code{\link[=expect_equal]{expectation}}.
\code{run_test_file} runs the file while gathering results of the
expectations in a \code{\link{tinytests}} object.
The graphics device is set to \code{pdf(file=tempfile())} for the run of the
test file.
}
\note{
Not all terminals support ansi escape characters, so colorized output can be
switched off. This can also be done globally by setting
\code{options(tt.pr.color=FALSE)}. Some terminals that do support ansi
escape characters may contain bugs. An example is the RStudio terminal
(RStudio 1.1) running on Ubuntu 16.04 (and possibly other OSs).
}
\section{Side-effects caused by test code}{
All calls to \code{\link{Sys.setenv}} and \code{\link{options}}
defined in a test file are captured and undone once the test file has run,
if \code{remove_side_effects} is set to \code{TRUE}.
}
\section{Tracking side effects}{
Certain side effects can be tracked, even when they are not explicitly
evoked in the test file. See \code{\link{report_side_effects}} for side
effects tracked by \pkg{tinytest}. Calls to \code{report_side_effects}
within the test file overrule settings provided with this function.
}
\examples{
# create a test file, in temp directory
tests <- "
addOne <- function(x) x + 2
Sys.setenv(lolz=2)
expect_true(addOne(0) > 0)
expect_equal(2, addOne(1))
Sys.unsetenv('lolz')
"
testfile <- tempfile(pattern="test_", fileext=".R")
write(tests, testfile)
# run test file
out <- run_test_file(testfile,color=FALSE)
out
# print everything in short format, include passes in print.
print(out, nlong=0, passes=TRUE)
# run test file, track supported side-effects
run_test_file(testfile, side_effects=TRUE)
# run test file, track only changes in working directory
run_test_file(testfile, side_effects=list(pwd=TRUE, envvar=FALSE))
}
\seealso{
\code{\link{ignore}}
Other test-files:
\code{\link{build_install_test}()},
\code{\link{exit_file}()},
\code{\link{run_test_dir}()},
\code{\link{summary.tinytests}()},
\code{\link{test_package}()}
}
\concept{test-files}
|
