context("Metadata")

test_that("metadata works as expected", {
          skip()
          skip_on_cran()
          expect_that(is(metadata(), "data.frame"), is_true())
          
          kind <- phylo_metadata("kind")
          type <- phylo_metadata("type") 
          table(kind, type)
          
          dates <- oai_metadata("date") 
          pub <- oai_metadata("publisher")
          table(dates, pub)
})