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
|
context("geom-point")
test_that("single strings translate to their corresponding integers", {
expect_equal(translate_shape_string("square open"), 0)
})
test_that("vectors of strings translate to corresponding integers", {
shape_strings <- c(
"square open",
"circle open",
"square open",
"triangle open"
)
expect_equal(translate_shape_string(shape_strings), c(0, 1, 0, 2))
})
test_that("single characters are not translated to integers", {
expect_equal(translate_shape_string(letters), letters)
expect_equal(translate_shape_string(as.character(0:9)), as.character(0:9))
})
test_that("invalid shape names raise an error", {
expect_error(translate_shape_string("void"), "Can't find shape name")
expect_error(translate_shape_string("tri"), "Shape names must be unambiguous")
})
|
