| ... | ... |
@@ -2,5 +2,5 @@ test_that("test_addAncestorGO", {
|
| 2 | 2 |
library(GO.db) |
| 3 | 3 |
go <- list(c("GO:0005215", "GO:0006810", "GO:0016020"), "GO:0016579")
|
| 4 | 4 |
newGO <- addAncestorGO(go) |
| 5 |
- expect_identical(lengths(newGO), c(8, 17)) |
|
| 5 |
+ expect_equal(lengths(newGO), c(8, 17)) |
|
| 6 | 6 |
}) |
| 7 | 7 |
\ No newline at end of file |
