Add testing for knitr and run

R/run.R

@@ -70,7 +70,7 @@ sas_run_file <- function(input_path, output_path, overwrite = FALSE) {
   )
   write_file(
     output = paste(results$LOG, collapse = "\n"), 
-    path = paste0(output_path[2], ".log"),
+    path = paste0(output_path[1], ".log"),
     overwrite
   )
 }

tests/testthat/test-knitr.R

@@ -0,0 +1,7 @@
+test_that("multiplication works", {
+  sas_use_quarto()
+
+  files <- c("sasquatch.qmd", "sas.xml")
+  expect_true(all(files %in% list.files()))
+  file.remove(files)
+})

tests/testthat/test-run.R

@@ -1,4 +1,6 @@
 test_that("Run SAS code from string", {
+  expect_error(sas_run_string("PROC MEANS DATA = sashelp.cars;\nRUN;"))
+
   sas_connect()
 
   expect_s3_class(sas_run_string("PROC MEANS DATA = sashelp.cars;\nRUN;"), "sas_widget")
@@ -8,11 +10,21 @@ test_that("Run SAS code from string", {
 
 test_that("Run SAS code from file", {
   local_path <- "test.sas"
+  output_path <- "test.html"
   cat("PROC MEANS DATA = sashelp.cars;\nRUN;", file = local_path)
 
+  expect_error(sas_run_file(local_path))
+
   sas_connect()
   expect_s3_class(sas_run_file(local_path), "sas_widget")
 
+  expect_no_error(sas_run_file(local_path, output_path))
+
+  output_paths <- c(output_path, gsub("html", "log", output_path))
+  expect_true(all(output_paths %in% list.files()))
+
+  expect_error(sas_run_file(local_path, output_path))
+
   sas_disconnect()
-  file.remove(local_path)
-})
+  file.remove(c(local_path, output_paths))
+})