tests/testthat/test_CVParam.R

In rols: An R interface to the Ontology Lookup Service

context("CVParams creation and coercion")

test_that("User param creation", {
              up <- CVParam(name = "Hello", value = "World")
              expect_true(is.null(show(up)))
              expect_true(validObject(up))
              expect_error(CVParam(label = "labelonly"))
              expect_warning(as("[MS, MS:1000073, ESI, ]", "CVParam"))
          })


test_that("User param to/from char", {
              up <- CVParam(name = "Hello", value = "World")
              upchar <- as(up, "character")
              expect_true(is.character(upchar)) ## works
              up2 <- as(upchar, "CVParam")
              expect_true(validObject(up2))
              expect_identical(up, up2)              
          })

test_that("CVParam creation and coercion", {
              cv <- CVParam(label = "MS", accession = "MS:1000073")
              cvchar <- as(cv, "character")
              cv2 <- as(cvchar, "CVParam")
              cv3 <- rols:::as.character.CVParam(cvchar)
              expect_identical(cv, cv2)
              expect_identical(cv2, cv2)
          })


test_that("CVParam creation and coercion 2", {
              cv <- CVParam(label = "MS",
                            accession = "MS:1000073")
              cv2 <- CVParam(label = "MS",
                            name = cv@name)
              expect_identical(cv, cv2)
          })

test_that("testing chars are CV params", {
              falses <- rols:::notvalidCVchars
              expect_false(any(charIsCVParam(falses)))
              falses <- gsub(" ", "", falses)
              expect_false(any(charIsCVParam(falses)))
              trues <- rols:::validCVchars
              expect_true(all(charIsCVParam(trues)))
          })

test_that("Convert char to CVParam", {
              x <- "[MS, MS:1001207, Mascot, ]"
              cv <- as(x, "CVParam")
              expect_equal(cv@label, "MS")
              expect_equal(cv@accession, "MS:1001207")
              expect_equal(cv@name, "Mascot")
          })

test_that("rep for CVParams", {
              up <- CVParam(name = "Hello", value = "World")
              n <- sample(1000, 1)
              rup <- rep(up, n)
              expect_equal(length(rup), n)
              rup <- rep(up, 3)
              expect_identical(rup[[1]], rup[[2]])
              expect_identical(rup[[1]], rup[[3]])
          })