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
27
28
|
test_that("list of public members is generated as expected by as.list.R6 method", {
Person <- R6Class("Person",
public = list(
name = NULL,
hair = NULL,
initialize = function(name = NA, hair = NA) {
self$name <- name
self$hair <- hair
},
set_hair = function(val) {
self$hair <- val
}
)
)
ann <- Person$new("Ann", "black")
annList <- as.list(ann)
expect_type(annList, "list")
expect_equal(
names(annList),
c(".__enclos_env__", "hair", "name", "clone", "set_hair", "initialize")
)
expect_equal(annList$hair, ann$hair)
expect_equal(annList$name, ann$name)
})
|
