tests/testintegration/test_1_comext.R

# Database integration tests
context("Comext tables")

test_that("Data from raw comext table is the same as data from the text file", {
    # Monthly data
    comextf <- comexttextfile(productcode_ = 44013100, periodicity = "monthly")
    comextdb <- readdbproduct(tableread = "raw")
    expect_that(comextf, equals(comextdb))
})
EuropeanForestInstitute/tradeflows documentation built on Jan. 7, 2018, 1:08 p.m.