From af69c5e3148b61a2253084405b02765c19e02cc0 Mon Sep 17 00:00:00 2001
From: "Muckenhuber, Markus" <markus.muckenhuber@novartis.com>
Date: Wed, 29 Jan 2025 16:05:34 +0100
Subject: [PATCH] Minor error correction to pass tests

---
 tests/testthat/test-define_expansion.R      | 2 +-
 tests/testthat/test-filter_by_blacklist.R   | 2 +-
 tests/testthat/test-prepare_input_regions.R | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/tests/testthat/test-define_expansion.R b/tests/testthat/test-define_expansion.R
index 19fcbe5..834df3e 100644
--- a/tests/testthat/test-define_expansion.R
+++ b/tests/testthat/test-define_expansion.R
@@ -27,7 +27,7 @@ test_data_prepared <- peakCombiner::prepare_input_regions(
 ### -----------------------------------------------------------------------###
 ##
 test_that("Test if function works with correct input", {
-  expect_no_error(define_expansion(
+  expect_no_error(peakCombiner:::define_expansion(
     data = test_data,
     expand_by = NULL
   ))
diff --git a/tests/testthat/test-filter_by_blacklist.R b/tests/testthat/test-filter_by_blacklist.R
index a57f281..d07de0a 100644
--- a/tests/testthat/test-filter_by_blacklist.R
+++ b/tests/testthat/test-filter_by_blacklist.R
@@ -26,7 +26,7 @@ test_data_center_expand <- peakCombiner::center_expand_regions(
   expand_by = NULL
 )
 ##
-test_data_filtered <- peakCombiner::filter_by_chromosome_names(
+test_data_filtered <- peakCombiner:::filter_by_chromosome_names(
   data = test_data_center_expand,
   include_by_chromosome_name = c("chr1", "chr10", "chr42")
 )
diff --git a/tests/testthat/test-prepare_input_regions.R b/tests/testthat/test-prepare_input_regions.R
index a73a30f..784b0c8 100644
--- a/tests/testthat/test-prepare_input_regions.R
+++ b/tests/testthat/test-prepare_input_regions.R
@@ -91,7 +91,7 @@ test_that("Input column 'sample_name' is a class 'character'.", {
 ### -----------------------------------------------------------------------###
 
 test_that("Output data frame has the correct structure.", {
-  expect_no_error(peakCombiner::check_data_structure(test_data_prepared))
+  expect_no_error(peakCombiner:::check_data_structure(test_data_prepared))
 })
 
 test_that("Column names of output data are identical with required once.", {