testthat::test_that("fioRa `run_script` function works with default parameters", {
skip_if(Sys.getenv("CI") == "true", "Skipping test on CI because python installation is missing there")
tmp <- suppressMessages(run_script(x = x[1,,drop=FALSE]))
testthat::test_that("fioRa `run_script` function returns annotated spectra output", {
tmp <- suppressMessages(run_script(x = x, annotation = TRUE))

"fioRa `run_script` function works with default parameters"
"Skipping test on CI because python installation is missing there"
"fioRa `run_script` function returns annotated spectra output"

fioRa `run_script` function works with default parameters

"spec" %in% names(tmp[[1]]) is not TRUE

`actual`:   FALSE
`expected`: TRUE

<subscriptOutOfBoundsError/error/condition>
Error in `tmp[[1]][["spec"]]`: subscript out of bounds

fioRa `run_script` function returns annotated spectra output