Check that the string with a single quote is robustly

tbooth · tbooth · commit dd04b95aa502 · 2025-03-11T16:07:49.000Z
passed to R (both value and dict key)
diff --git a/tests/test_script/scripts/test.R b/tests/test_script/scripts/test.R
@@ -42,5 +42,9 @@ if (snakemake@config[["test"]] != TRUE) {
     stop("Error evaluating config.")
 }
 
+if (snakemake@config[["foo\' bar"]] != "let\'s go") {
+    stop("Error with the key/value containing single quotes.")
+}
+
 values <- scan(snakemake@input[[1]])
 write(values, file = snakemake@output[["txt"]])

Original file line number	Diff line number	Diff line change
`@@ -42,5 +42,9 @@ if (snakemake@config[["test"]] != TRUE) {`
`42`	`42`	`stop("Error evaluating config.")`
`43`	`43`	`}`
`44`	`44`
	`45`	`+if (snakemake@config[["foo\' bar"]] != "let\'s go") {`
	`46`	`+ stop("Error with the key/value containing single quotes.")`
	`47`	`+}`
	`48`	`+`
`45`	`49`	`values <- scan(snakemake@input[[1]])`
`46`	`50`	`write(values, file = snakemake@output[["txt"]])`