tests/testthat/test_get_docker_image_from_experiment_id.R

In avidaR: A Computational Biologist’s Toolkit To Get Data From 'avidaDB'

test_that("get_docker_image_from_experiment_id", {
  
  skip_if_offline(host = "graphdb.fortunalab.org")

  triplestore <- triplestore_access$new()
  
  suppressMessages({  
    response <- triplestore$set_access_options(
      url = "https://graphdb.fortunalab.org",
      user = "public_avida",
      password = "public_avida",
      repository = "avidaDB_test"
    )
    
    found1 <- get_docker_image_from_experiment_id(
      avida_experiment_id = 1,
      triplestore = triplestore
    )
  
    found2 <- get_docker_image_from_experiment_id(
      avida_experiment_id = c(1, 2),
      triplestore = triplestore
    )
    
    skip_if(is.null(response) || is.null(found1) || is.null(found2))
  
    expect_match(class(found1), "data.frame")
    expect_true(nrow(found1) > 0)
    expect_equal(colnames(found1), c("avida_experiment_id", "docker_image_id", "docker_repository_url", "docker_image_tag"))
  
    expect_match(class(found2), "data.frame")
    expect_true(nrow(found2) > 0)
    expect_equal(colnames(found2), c("avida_experiment_id", "docker_image_id", "docker_repository_url", "docker_image_tag"))
  })
})