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
29
30
31
|
context("checkComplex")
test_that("checkComplex", {
myobj = 1+1i
expect_succ_all(Complex, myobj)
myobj = 1
expect_fail_all(Complex, myobj)
expect_true(testComplex(complex(0L)))
expect_false(testComplex(NULL))
expect_false(testComplex(TRUE))
expect_true(testComplex(NA))
expect_false(testComplex(NA, any.missing = FALSE))
expect_false(testComplex(NA, all.missing = FALSE))
expect_true(testComplex(NA_complex_))
expect_true(testComplex(1+1i))
expect_true(testComplex(as.complex(Inf)))
expect_true(testComplex(c(1+1i, 2+1i), any.missing = FALSE, min.len = 1L, max.len = 3L))
expect_error(assertComplex(1), "complex")
})
test_that("typed.missing", {
expect_true(testComplex(NA))
expect_true(testComplex(NA, typed.missing = FALSE))
expect_false(testComplex(NA, typed.missing = TRUE))
expect_true(testComplex(character()))
expect_true(testComplex(character(), typed.missing = FALSE))
expect_false(testComplex(character(), typed.missing = TRUE))
})
|
