tests/testthat/test.top_by_go.R

In dputhier/scigenex: The scigenex package (Single-Cell Informative GENe Explorer)

library(testthat)

# Set verbosity to 0
set_verbosity(0)
load_example_dataset('7871581/files/pbmc3k_medium_clusters')
# DNA Binding: "GO:0003677"
pbmc3k_medium_clusters <- top_by_go(pbmc3k_medium_clusters, go_id = "GO:0003677")

testthat::test_that("Checking top_by_go() #1", {
  testthat::expect_true(length(unlist(pbmc3k_medium_clusters@top_genes)) > 15)
  testthat::expect_true("GATA2"  %in% unlist(pbmc3k_medium_clusters@top_genes))
})

testthat::test_that("Checking top_by_go() #2", {
  testthat::expect_true("MAFB"  %in% unlist(pbmc3k_medium_clusters@top_genes))
  testthat::expect_true("GFI1B"  %in% unlist(pbmc3k_medium_clusters@top_genes))  
})