Nothing
context("utils")
test_that("Seq_union always length one", {
expect_equal(Seq_union(1, 5), 1:5)
expect_equal(Seq_union(1, c(5, 10)), 1:10)
expect_equal(Seq_union(c(73, 100), c(83, 105)), c(73:83, 100:105))
expect_equal(Seq_union(c(1, 10), c(9, 19)), 1:19)
})
test_that("Seq_union coverage", {
expect_error(Seq_union(1:4, 1:5),
"x and y must have the same length")
expect_equal(Seq_union(5, 1:4),
rev(Seq_union(1:4, 5)))
})
test_that("stringi replacements work if stringi absent", {
skip_if_not_installed("stringi")
Lines <- readLines("Example-report.Rnw")
expect_identical(stri_locate_first_fixed_no_stringi(Lines, " - "),
stringi::stri_locate_first_fixed(Lines, " - "))
expect_identical(stri_count_fixed_no_stringi(c("ABCAB", "DABAAAABEF", "A"), "AA"),
stringi::stri_count_fixed(c("ABCAB", "DABAAAABEF", "A"), "AA"))
some_lines <- c("", "abc", "sdoifhsdfiohsdf dsfugdsfiugsdfiug", "", " X ")
i1 <- sample.int(max(nchar(some_lines)), size = 1L)
i2 <- sample.int(max(nchar(some_lines)), size = 1L)
j1 <- -1L *sample.int(max(nchar(some_lines)), size = 1L)
j2 <- -1L * sample.int(max(nchar(some_lines)), size = 1L)
expect_identical(stringi::stri_sub(some_lines, i1, i2), stri_sub_no_stringi(some_lines, i1, i2))
expect_identical(stringi::stri_sub(some_lines, j1, j1), stri_sub_no_stringi(some_lines, j1, j1))
expect_identical(stringi::stri_sub(some_lines, i1, j1), stri_sub_no_stringi(some_lines, i1, j1))
})
test_that("nths etc", {
expect_equal(nth_max(1:5, 2), 4)
expect_equal(nth_max(1:5, 1), 5)
expect_equal(nth_min(1:5, 2), 2)
expect_equal(nth_min(1:5, 1), 1)
})
test_that("move to", {
skip_on_cran()
current_dir <- getwd()
AD <- tempfile()
BD <- tempfile()
hutils::provide.dir(AD)
hutils::provide.dir(BD)
file.create(paste0(file.path(AD, "a.pdf")))
file.create(paste0(file.path(AD, "b.tex")))
move_to(to.dir = BD, from.dir = AD, pattern = "\\.((pdf)|(tex))$")
expect_true(file.exists(file.path("a.pdf")))
expect_true(file.exists(file.path("b.tex")))
setwd(current_dir)
})
test_that("r9", {
expect_equal(r9(1, 2, 3, 4, 5, 6, 7, 8, 9),
paste0(1:9, collapse = ""))
})
test_that("transpose", {
pt <-
parse_tex(c("A{}", "B[a]{b{c}{d}}z")) %>%
.[, .(char, tg1, tg2, og1,
GROUP_ID1, GROUP_ID2,
OPT_GROUP_ID1)]
tempf.txt <- tempfile()
print_transpose_data.table(pt, file = tempf.txt)
tempf <- readLines(tempf.txt)
expect_equal(trimws(tempf[1]), "char :A{}B[a]{b{c}{d}}z")
expect_equal(trimws(tempf[7]), "OPT_GROUP_ID1 :....111..........")
})
test_that("write_lines", {
write_lines(letters, tmpf <- tempfile())
expect_equal(read_lines(tmpf), letters)
})
test_that("Fill with space", {
expect_equal(fill_with_space("xyz>abc<012", "abc"),
"xyz> <012")
expect_equal(fill_with_space("xyz>abcdef<012", "(?:xyz>)(.+)<"),
"xyz> <012")
expect_equal(fill_with_space("axyz", "a(.)(.)z", group = 1L),
"a yz")
expect_equal(fill_with_space("axyz", "a(.)(.)z", group = 2L),
"ax z")
expect_equal(fill_with_space("another \\verb=sti= po sa \\verb=12345= x",
"(?:verb)(.)(.+?)\\1",
group = 2L),
"another \\verb= = po sa \\verb= = x")
expect_equal(fill_with_space(c("another \\verb=sti= po sa \\verb=12345= x",
"another \\verb!sti! po sa \\verb=12345= x"),
"(?:verb)(.)(.+?)\\1",
group = 2L),
c("another \\verb= = po sa \\verb= = x",
"another \\verb! ! po sa \\verb= = x"))
expect_equal(fill_with_space(letters, "[b-z]"),
c("a", rep(" ", 25)))
})
test_that("check_TF", {
mm <- 1
expect_error(check_TF(mm), regexp = "`mm` was type .*double")
ll <- c(TRUE, FALSE)
expect_error(check_TF(ll), regexp = "`ll` had length 2 but must be length-one")
nn <- NA
expect_error(check_TF(nn), regexp = "`nn = NA` but must be TRUE or FALSE.")
expect_null(check_TF(TRUE))
expect_null(check_TF(FALSE))
})
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.