fix: env_exists empty argument

NEWS.md

@@ -2,6 +2,8 @@
 
 ## Breaking changes
 
+* `env_exists()` now error if no argument is supplied.
+
 ## New features
 
 ## Minor improvements and fixes

R/env_exists.R

@@ -1,4 +1,4 @@
-#' Check If Environment Names Already exists
+#' Check If Environment Already exists
 #'
 #' @inheritParams create_env
 #' @return Boolean.
@@ -7,14 +7,15 @@
 #' # Create the environment
 #' condathis::create_env(
 #'   packages = "fastqc",
-#'   env_name = "fastqc_env"
+#'   env_name = "fastqc-env"
 #' )
 #' # Check if exists
-#' condathis::env_exists("fastqc_env")
+#' condathis::env_exists("fastqc-env")
 #' #> [1] TRUE
 #' }
 #' @export
-env_exists <- function(env_name = "condathis-env") {
+env_exists <- function(env_name) {
+  rlang::check_required(env_name)
   available_envs <- list_envs()
   condathis_env_path <- env_name
   if (isTRUE(condathis_env_path %in% available_envs)) {

tests/testthat/test-env_exists.R

@@ -0,0 +1,5 @@
+test_that("env_exists missing env_name", {
+  expect_error(env_exists())
+  expect_equal(env_exists(NULL), FALSE)
+  expect_equal(env_exists(NA), FALSE)
+})

tests/testthat/test-list_packages.R

@@ -0,0 +1,8 @@
+test_that("list packages on absent environment", {
+  testthat::expect_error(
+    object = {
+      list_packages(env_name = "non-existing-env")
+    },
+    class = "condathis_list_packages_missing_env"
+  )
+})