`check_params_for_na(bad_params)` did not throw the expected error.

test_that("check_params_for_na allows clean parameters", {
test_that("check_params_for_na detects NA in simple vectors", {
bad_params <- list(values = c(1, NA, 3))
test_that("check_params_for_na detects NA in nested structures", {
test_that("check_params_for_na shows correct NA positions", {
multi_na_params <- list(x = c(1, NA, 3, NA, 5))
test_that("check_params_for_na handles different NA types", {
test_that("as_yaml detects NA in simple vectors", {
test_that("write_yaml detects NA in nested structures", {
write_yaml(list(data = list(subset = c(1, NA, 3))), tempfile()),
test_that("as_yaml shows correct NA positions", {
test_that("as_yaml allows NaN values", {
test_that("write_yaml allows clean data", {
quarto:::write_yaml(list(param1 = c(1, 2, 3), param2 = "test"), temp_file)
test_that("quarto_render uses write_yaml validation", {
quarto_render("test.qmd", execute_params = list(bad_param = c(1, NA))),
test_that("yaml_quote_string adds quoted attribute to strings", {
test_that("yaml_quote_string only works with character vectors", {
"yaml_quote_string() only works with character vectors",
test_that("yaml_character_handler quotes invalid octal strings only", {
test_that("yaml_character_handler doesn't quote valid octals or regular strings", {
test_that("yaml_character_handler preserves user-set quoted attribute", {
test_that("yaml_character_handler handles character vectors", {
result <- yaml_character_handler(c("029", "0123", "089", "hello"))
test_that("yaml_character_handler handles edge cases", {
test_that("as_yaml quotes invalid octals but lets yaml package handle valid ones", {
expect_identical(as_yaml(list(x = "029")), "x: \"029\"\n")
expect_identical(as_yaml(list(x = "089")), "x: \"089\"\n")
expect_identical(as_yaml(list(x = "0123")), "x: '0123'\n")
expect_identical(as_yaml(list(x = "007")), "x: '007'\n")
expect_identical(as_yaml(list(x = "hello")), "x: hello\n")
test_that("as_yaml preserves user control with yaml_quote_string", {
test_that("as_yaml handles complex nested structures", {
test_that("write_yaml_metadata_block produces YAML 1.2 compatible output", {