Nothing
context("Test tikzDevice error and warning messages")
test_that("Null device is not a tikzDevice", {
expect_false(
suppressMessages(isTikzDevice())
)
})
test_that("Device produces an error for unescaped characters", {
expect_that(
suppressMessages(getLatexStrWidth("_")),
throws_error("TeX was unable to calculate metrics")
)
})
test_that("Device warns about the lower bound of the ASCII table when using pdftex", {
expect_that(
getLatexCharMetrics(31, engine = "pdftex"),
gives_warning("pdftex can only generate metrics for character codes between 32 and 126!")
)
})
test_that("Device warns about the upper bound of the ASCII table when using pdftex", {
expect_that(
getLatexCharMetrics(127),
gives_warning("pdftex can only generate metrics for character codes between 32 and 126!")
)
})
test_that("Device won't accept non-numeric ASCII codes", {
expect_that(
suppressMessages(getLatexCharMetrics("a")),
gives_warning("getLatexCharMetrics only accepts integers!")
)
})
test_that("Device throws error when a path cannot be opened", {
expect_that(
tikz("/why/would/you/have/a/path/like/this.tex"),
throws_error("directory does not exist or is not writable")
)
})
test_that("tikzAnnotate refuses to work with a non-tikzDevice", {
expect_that(
tikzAnnotate("test"),
throws_error("The active device is not a tikz device")
)
})
test_that("XeTeX warns about unrecognized UTF8 characters", {
expect_that(
suppressMessages(getLatexStrWidth("α", engine = "xetex")),
gives_warning("XeLaTeX was unable to calculate metrics")
)
})
test_that("tikzNode warns about more than one X coordinate value", {
tikz()
plot.new()
on.exit(dev.off())
expect_that(
tikzCoord(c(1, 2), 2, "test"),
gives_warning("More than one X coordinate specified")
)
})
test_that("tikzNode warns about more than one Y coordinate value", {
tikz()
plot.new()
on.exit(dev.off())
expect_that(
tikzCoord(1, c(1, 2), "test"),
gives_warning("More than one Y coordinate specified")
)
})
test_that("symbolicColors warns about wrong filename", {
tikz(symbolicColors = T, colorFileName = "/")
plot(1, 2, axes = F, xlab = "", ylab = "")
expect_that(
dev.off(),
gives_warning("Color definition file could not be opened and is missing")
)
})
test_that("symbolicColors warns about too many colors", {
tikz(symbolicColors = T, maxSymbolicColors = 2)
plot.new()
points(0, 0)
on.exit(dev.off())
expect_that(
points(0, 1, col = "red"),
gives_warning("Too many colors used, reverting to non-symbolic storage")
)
})
test_that("check that maxSymbolicColors is nonnegative", {
expect_that(
tikz(symbolicColors = T, maxSymbolicColors = -1),
throws_error("maxSymbolicColors needs to be nonnegative")
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.