tests/testthat/test-readpmlame.R

In misasa/MedusaRClient: Interface to Medusa

context("Get pmlame")
#test_that("medusaRClient.read.pmlame works with dataframe.",{
#  gid <- "20081202172326.hkitagawa"
#  pmlame <- data.frame()
#  pmlame <- medusaRClient.read.pmlame(pmlame)
#  expect_equal(class(pmlame),"data.frame")
#})

#test_that("medusaRClient.read.pmlame works with global_id.",{
#  global_id <- "20081202172326.hkitagawa"
#  pmlame <- medusaRClient.read.pmlame(global_id)
#  expect_that(pmlame, is_a("data.frame"))
#})