tests/testthat/test-api_nodes_queries.R

In CRI-iAtlas/iatlas-graphql-client: iatlas API Client

test_that("query_gene_nodes",{
  expected_columns <- c(
    get_node_field_names(),
    "feature_name",
    "feature_display",
    "gene_entrez",
    "gene_hgnc",
    "gene_friendly_name"
  )
  result1 <- query_nodes(
    datasets = "TCGA",
    tags = "C1",
    entrez =  2,
    network = "Extracellular Network",
    query_dir = query_dir
  )
  result2 <- query_nodes(
    datasets = "none",
    tags = "C1",
    entrez =  2,
    network = "Extracellular Network",
    query_dir = query_dir
  )
  expect_named(result1, expected_columns, ignore.order = T)
  expect_named(result2, expected_columns, ignore.order = T)
  expect_true(nrow(result1) > 0)
  expect_equal(nrow(result2), 0)
})

test_that("query_feature_nodes",{
  expected_columns <- c(
    get_node_field_names(),
    "feature_name",
    "feature_display",
    "gene_entrez",
    "gene_hgnc",
    "gene_friendly_name"
  )
  result1 <- query_nodes(
    datasets = "TCGA",
    tags = "C1",
    features =  "B_cells_Aggregate2",
    network = "Extracellular Network",
    query_dir = query_dir
  )
  expect_named(result1, expected_columns, ignore.order = T)
  expect_true(nrow(result1) > 0)

  result2 <- query_nodes(
    datasets = "TCGA",
    tags = "C1",
    features = c(
      "B_cells_Aggregate2",
      "Dendritic_cells_Aggregate2"
    ),
    network = "Extracellular Network",
    min_score = 5,
    query_dir = query_dir
  )
  expect_named(result2, expected_columns, ignore.order = T)
  expect_equal(nrow(result2), 0)

})