tests/testthat/test-run_python_script_with_args.R

In richelbilderbeek/ormr: Work With Python Installed At A Custom Location

test_that("conda, calling scrip without args produces output", {
  expect_equal(1 + 1, 2) # Prevents testthat warning for empty test
  if (!is_conda_installed()) return()

  ormr_folder_name <- create_default_conda_env()

  python_script_path <- system.file(
    "extdata", "show_args.py", package = "ormr"
  )
  expect_true(file.exists(python_script_path))

  output <- run_python_script_with_args(
    ormr_folder_name = ormr_folder_name,
    python_script_path = python_script_path
  )
  expect_true(
    sum(
      stringr::str_detect(
        output,
        "Number of arguments: 1"
      )
    ) > 0
  )
})

test_that("conda, verbose produces output", {
  expect_equal(1 + 1, 2) # Prevents testthat warning for empty test
  if (!is_conda_installed()) return()

  ormr_folder_name <- create_default_conda_env()

  python_script_path <- system.file(
    "extdata", "show_args.py", package = "ormr"
  )
  expect_true(file.exists(python_script_path))

  expect_message(
    run_python_script_with_args(
      ormr_folder_name = ormr_folder_name,
      python_script_path = python_script_path,
      verbose = TRUE
    ),
    "Tip: you should be able to copy-paste this :-)"
  )
})

test_that("conda, calling scrip with args produces output", {
  expect_equal(1 + 1, 2) # Prevents testthat warning for empty test
  if (!is_conda_installed()) return()

  ormr_folder_name <- create_default_conda_env()

  python_script_path <- system.file(
    "extdata", "show_args.py", package = "ormr"
  )
  expect_true(file.exists(python_script_path))

  output <- run_python_script_with_args(
    ormr_folder_name = ormr_folder_name,
    python_script_path = python_script_path,
    args = c("Hello", "world")
  )
  expect_true(
    sum(
      stringr::str_detect(
        output,
        "Number of arguments: 3"
      )
    ) > 0
  )
})

test_that("no conda, calling scrip without args produces output", {
  ormr_folder_name <- "python3"

  python_script_path <- system.file(
    "extdata", "show_args.py", package = "ormr"
  )
  expect_true(file.exists(python_script_path))

  output <- run_python_script_with_args(
    ormr_folder_name = ormr_folder_name,
    python_script_path = python_script_path
  )
  expect_true(
    sum(
      stringr::str_detect(
        output,
        "Number of arguments: 1"
      )
    ) > 0
  )
})

test_that("no conda, verbose produces output", {
  ormr_folder_name <- "python3"

  python_script_path <- system.file(
    "extdata", "show_args.py", package = "ormr"
  )
  expect_true(file.exists(python_script_path))

  expect_message(
    run_python_script_with_args(
      ormr_folder_name = ormr_folder_name,
      python_script_path = python_script_path,
      verbose = TRUE
    ),
    "Tip: you should be able to copy-paste this :-)"
  )
})

test_that("no conda, calling scrip with args produces output", {

  ormr_folder_name <- "python3"

  python_script_path <- system.file(
    "extdata", "show_args.py", package = "ormr"
  )
  expect_true(file.exists(python_script_path))

  output <- run_python_script_with_args(
    ormr_folder_name = ormr_folder_name,
    python_script_path = python_script_path,
    args = c("Hello", "world")
  )
  expect_true(
    sum(
      stringr::str_detect(
        output,
        "Number of arguments: 3"
      )
    ) > 0
  )
})