tests/testthat/test-convert.R

In patentr: Access USPTO Bulk Data in Tidy Rectangular Format

test_that("test TXT conversion", {
  skip_on_cran()
  
  # convert sample file w/ internal function
  txt_to_df_cpp("TXT-sample-2", "test-output.csv", FALSE, FALSE)
  tester <- readr::read_csv("test-output.csv", col_names = FALSE)
  #file.remove("test-output.csv")
  #print(head(tester))
  #print(tail(tester))
  
  ## confirm output accuracy
  # basic dimensions
  expect_equal(nrow(tester), 2)
  expect_equal(ncol(tester), 9)
  
  # exactly 1 missing value in sample data
  expect_equal(sum(is.na(tester)), 1)
})

test_that("test XML1 conversion", {
  skip_on_cran()
  
  # convert sample file w/ internal function
  xml1_to_csv_base("XML1-sample-14", "test-output.csv")
  tester <- readr::read_csv("test-output.csv", col_names = FALSE)
  #file.remove("test-output.csv")
  #print(head(tester))
  #print(tail(tester))
  
  ## confirm output accuracy
  # basic dimensions
  expect_equal(nrow(tester), 14)
  expect_equal(ncol(tester), 9)
})

test_that("test XML2 conversion", {
  skip_on_cran()
  
  # convert sample file w/ internal function
  xml2_to_csv_base("XML2-sample-10", "test-output.csv")
  tester <- readr::read_csv("test-output.csv", col_names = FALSE)
  #file.remove("test-output.csv")
  #print(head(tester))
  #print(tail(tester))
  
  ## confirm output accuracy
  # basic dimensions
  expect_equal(nrow(tester), 10)
  expect_equal(ncol(tester), 9)
})

test_that("test download from USPTO", {
  skip_on_cran()
  
  # download and convert single file
  test_file <- get_bulk_patent_data(year = 1976, week = 1,
                                    output_file = "test.csv")
  
  # make sure file exists
  expect_true(file.exists("test.csv"))
  
  # delete file
  file.remove("test.csv")
  
  # make sure file doesn't exist any more
  expect_false(file.exists("test.csv"))
})