tests/testthat/test_CatalogNode.R

# test_CatalogNode.R
# Author: Emmanuel Blondel <emmanuel.blondel1@gmail.com>
#
# Description: Integration tests for CatalogNode
#=======================
require(thredds, quietly = TRUE)
require(testthat)

test_that("browse catalog node",{
 
  top_uri <- 'https://oceandata.sci.gsfc.nasa.gov/opendap/catalog.xml'
  Top <- thredds::CatalogNode$new(top_uri)
  expect_is(Top, "CatalogNode")
  
})
BigelowLab/threddscrawler2 documentation built on March 2, 2025, 1:19 a.m.