test_that("Type checker functions throw proper errors", {
  expect_error(set_data_type(1), "Input must be a datasetjson object")

  expect_error(set_source_system(1, "sys", "ver"), "Input must be a datasetjson object or file_metadata object")
  expect_error(set_originator(1, "orig"), "Input must be a datasetjson object or file_metadata object")
  expect_error(set_file_oid(1, "path"), "Input must be a datasetjson object or file_metadata object")

  expect_error(set_study_oid(1, "study"), "Input must be a datasetjson or data_metadata object")
  expect_error(set_metadata_version(1, "study"), "Input must be a datasetjson or data_metadata object")
  expect_error(set_metadata_ref(1, "ref"), "Input must be a datasetjson or data_metadata object")

  expect_error(set_item_data(1, iris), "Input must be a datasetjson or dataset_metadata object")
})

test_that("NULL removals process effectively", {
  ds_json <- dataset_json(iris[1, ], "IG.IRIS", "IRIS", "Iris", iris_items)

  x <- remove_nulls(ds_json)

  non_null_names_fm <- c(
    "creationDateTime", "datasetJSONVersion", "fileOID", "asOfDateTime", "originator",
    "sourceSystem", "sourceSystemVersion", "clinicalData"
    )

  non_null_names_dm <- c(
    "studyOID", "metaDataVersionOID", "metaDataRef", "itemGroupData"
  )

  expect_equal(names(ds_json), non_null_names_fm)
  expect_equal(names(ds_json$clinicalData), non_null_names_dm)

  null_names_fm <- c(
    "creationDateTime", "datasetJSONVersion", "clinicalData"
  )

  null_names_dm <- "itemGroupData"

  expect_equal(names(x), null_names_fm)
  expect_equal(names(x$clinicalData), null_names_dm)
})

test_that("URL checker regex works as expected", {
  url_list <- c(
    "https://github.com/cdisc-org/DataExchange-DatasetJson/raw/master/examples/sdtm/ti.json", # true
    "http://github.com/cdisc-org/DataExchange-DatasetJson/raw/master/examples/sdtm/ti.json",  # true
    test_path("testdata", "ta.json"),                                                         # false
    normalizePath(test_path("testdata", "ta.json")),                                          # false
    paste0("file://", normalizePath(test_path("testdata", "ta.json"))),                       # true
    paste0("ftp://", normalizePath(test_path("testdata", "ta.json"))),                        # true
    paste0("ftps://", normalizePath(test_path("testdata", "ta.json"))),                       # true
    paste0("sftp://", normalizePath(test_path("testdata", "ta.json")))                        # true
  )

  bool_check <- c(TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE)

  expect_equal(path_is_url(url_list), bool_check)
})