andreas/REDCapCAST
1
0
Fork 0
mirror of https://github.com/agdamsbo/REDCapCAST.git synced 2026-06-21 05:59:07 +02:00
Code Issues Projects Releases Packages Wiki Activity

linting

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-02-27 13:20:21 +01:00
commit 9e33057c06
32 changed files with 456 additions and 340 deletions
Download patch file Download diff file Expand all files Collapse all files

22
tests/testthat/test-utils.R
View file

@ -1,20 +1,22 @@
test_that("strsplitx works", {
expect_equal(2 * 2, 4)
test <- c("12 months follow-up", "3 steps", "mRS 6 weeks", "Counting to 231 now")
expect_length(strsplitx(test,"[0-9]",type="around")[[1]],3)
test <- c("12 months follow-up", "3 steps", "mRS 6 weeks",
"Counting to 231 now")
expect_length(strsplitx(test, "[0-9]", type = "around")[[1]], 3)
expect_equal(strsplitx(test,"[0-9]",type="classic")[[2]][1],"")
expect_length(strsplitx(test,"[0-9]",type="classic")[[4]],4)
expect_equal(strsplitx(test, "[0-9]", type = "classic")[[2]][1], "")
expect_length(strsplitx(test, "[0-9]", type = "classic")[[4]], 4)
expect_length(strsplitx(test,"[0-9]",type="classic")[[4]],4)
expect_length(strsplitx(test, "[0-9]", type = "classic")[[4]], 4)
})
test_that("d2w works", {
expect_length(d2w(c(2:8, 21)), 8)
expect_length(d2w(c(2:8,21)),8)
expect_equal(d2w(data.frame(2:7, 3:8, 1),
lang = "da",
neutrum = TRUE
)[1, 3], "et")
expect_equal(d2w(data.frame(2:7,3:8,1),lang="da",
neutrum=TRUE)[1,3],"et")
expect_equal(d2w(list(2:8,c(2,6,4,23),2), everything=T)[[2]][4],"two three")
expect_equal(d2w(list(2:8, c(2, 6, 4, 23), 2), everything = T)[[2]][4], "two three")
})