Решение заданий
Урок 7: Тестирование
После того как клонируете пакет, откройте его и запустите команду usethis::use_testthat(3)
.
Далее запустите команду usethis::use_test('str_plus')
, и в открывшийся файл test-str_plus.R
добавьте следующие тесты:
Файл с тестами к функции R/str_plus.R
:
test_that("check concat length", {
expect_length("my" %+% "little" %+% "string", 1)
})
test_that("check concat class", {
expect_type("my" %+% "little" %+% "string", 'character')
})
test_that("check concat error", {
expect_error("my" %+% "little" / 7, regexp = 'non-numeric argument to binary operator')
})
Далее запустите команду usethis::use_test('str_split')
, и в открывшийся файл test-str_split.R
добавьте следующие тесты:
Файл с тестами к фунции R/str_split.R
test_that("check split value", {
expect_equal('The-little-text' %/% "-", c('The', 'little', 'text'))
})
test_that("check split length", {
expect_length('The-little-text' %/% "-", 3)
})
Запустите команду devtools::test()
для выполнения тестов.