context("Utils") test_that("testing sf_download_attachment", { queried_attachments <- sf_query("SELECT Body, Name FROM Attachment WHERE ParentId = '0016A0000035mJB'") res <- mapply(sf_download_attachment, body = queried_attachments[["Body"]], name = queried_attachments[["Name"]], path = tempdir()) expect_true(file.exists(res)) }) test_that("testing input_data validation", { input_data <- 1:3 res1a <- sf_input_data_validation(input_data) expect_equal(res1a, data.frame(`X1.3`=1:3, check.names = FALSE)) res1b <- sf_input_data_validation(input_data, operation='delete') expect_equal(res1b, data.frame(Id=1:3)) input_data <- list(1,2,3) res2a <- sf_input_data_validation(input_data) expect_equal(res2a, data.frame(`unlist(input_data)`=1:3, check.names = FALSE)) res2b <- sf_input_data_validation(input_data, operation='delete') expect_equal(res2b, data.frame(Id=1:3)) input_data <- c(Id=1,b=2,c=3) res3a <- sf_input_data_validation(input_data) expect_equal(res3a, data.frame(Id=1,b=2,c=3)) res3b <- sf_input_data_validation(input_data, operation='delete') expect_equal(res3b, data.frame(Id=1,b=2,c=3)) input_data <- input_data[-which(names(input_data)=="Id")] expect_error(sf_input_data_validation(input_data, operation='update')) input_data <- list(Id=1,b=2,c=3) res4a <- sf_input_data_validation(input_data) expect_equal(res4a, data.frame(Id=1,b=2,c=3)) res4b <- sf_input_data_validation(input_data, operation='delete') expect_equal(res4b, data.frame(Id=1,b=2,c=3)) input_data$Id <- NULL expect_error(sf_input_data_validation(input_data, operation='update')) input_data <- data.frame(Id=1,b=2,c=3) res5a <- sf_input_data_validation(input_data) expect_equal(res5a, input_data) res5b <- sf_input_data_validation(input_data, operation='delete') expect_equal(res5b, input_data) input_data <- input_data[,c('b','c')] expect_error(sf_input_data_validation(input_data, operation='update')) })