tests/testthat/test_GeoMxSet_replacers.R

In Nanostring-Biostats/GeomxTools: NanoString GeoMx Tools

# dimLabels(testData) should result in "A" "B"
# dimLabels(testData) == labs should result in FALSE FALSE
# design(testData) should result in x ~ y
# design(testData) == des should result in logical(0)

library(GeomxTools)
library(testthat)

testData <- readRDS(file= system.file("extdata", "DSP_NGS_Example_Data", 
                                      "demoData.rds", package = "GeomxTools"))


# Spec 8: test that dimLabels(testData) matches the value assigned:------
testthat::test_that("test that dimLabels(testData) matches the value assigned", {
  labs <- dimLabels(testData)
  dimLabels(testData) <- c("A", "B")
  expect_true(all(dimLabels(testData) == c("A", "B")))
  expect_false(all(dimLabels(testData) == labs))
})

# Spec 9: test that design(testData) matches the value assigned:------
testthat::test_that("test that design(testData) matches the value assigned", {
  des <- design(testData)
  expect_null(des)
  design(testData) <- "x ~ y"
  expect_true(all(design(testData) == c("x ~ y")))
  expect_false(identical(design(testData), des))
})

# Spec 10: test that featureType(testData) matches the value assigned:------
testthat::test_that("test that featureType(testData) matches the value assigned", {
  featType <- featureType(testData)
  featureType(testData) <- "Target"
  expect_true(all(featureType(testData) == "Target"))
  expect_false(identical(featureType(testData), featType))
})