test_that("Functions are exported and exist", {
    expect_true(is.function(replace_backslash_with_forwardslash))
    expect_true(is.function(replace_forwardslash_with_backslash))
    expect_true(is.function(open_current_directory_in_file_explorer))
    expect_true(is.function(open_git_bash_here))
    expect_true(is.function(open_alacritty_here))
    expect_true(is.function(copy_current_file_contents))
    expect_true(is.function(copy_all_r_files_here))
    expect_true(is.function(copy_selected_r_files_here))
    expect_true(is.function(remember_current_directory))
    expect_true(is.function(return_to_remembered_directory))
})

test_that("Functions have correct arguments", {
    expect_true("max_files" %in% names(formals(copy_all_r_files_here)))
    expect_true("dir" %in% names(formals(open_git_bash_here)))
})