diff --git a/tests/testthat/test-bar.R b/tests/testthat/test-bar.R
deleted file mode 100644
index f0b5c5f..0000000
--- a/tests/testthat/test-bar.R
+++ /dev/null
@@ -1,125 +0,0 @@
-# testthat::test_that("bar() function handles various edge cases", {
-#   # Setup minimal test data
-#   test_df <- data.frame(
-#     category =c("A", "B", "C"),
-#     value = c(10, 20, 30),
-#     group = c("X", "X", "Y"),
-#     facet_var = c("F1", "F1", "F2")
-#   )
-
-#   # Test 1: Basic functionality with all parameters
-#   testthat::expect_s3_class({
-#     bar(test_df, x = "category", y = "value", 
-#         position = "dodge", add_text = TRUE, flip = FALSE)
-#   }, "ggplot")
-
-#   # Test 2: Missing group parameter
-#   testthat::expect_s3_class({
-#     bar(test_df, x = "category", y = "value", facet = "facet_var")
-#   }, "ggplot")
-
-#   # Test 3: Missing facet parameter
-#   testthat::expect_s3_class({
-#     bar(test_df, x = "category", y = "value", group = "group")
-#   }, "ggplot")
-
-#   # Test 4: Identical group and facet
-#   testthat::expect_warning({
-#     bar(test_df, x = "category", y = "value", group = "facet_var", facet = "facet_var")
-#   }, "Using 'facet' for grouping")
-
-#   # Test 5: NA handling scenarios
-#   na_df <- data.table::data.table(
-#     category = c("A", "B", NA),
-#     value = c(10, NA, 30),
-#     group = c("X", NA, "Y")
-#   )
-  
-#   # Test 5a: NA removal enabled
-#   testthat::expect_silent({
-#     bar(na_df, x = "category", y = "value", group = "group",
-#         x_rm_na = TRUE, y_rm_na = TRUE, group_rm_na = TRUE)
-#   })
-
-#   # Test 5b: NA removal disabled
-#   testthat::expect_warning({
-#     bar(na_df, x = "category", y = "value", group = "group",
-#         x_rm_na = FALSE, y_rm_na = FALSE, group_rm_na = FALSE)
-#   }, "Converting df to data.table")
-
-#   # Test 6: Ordering scenarios
-#   # Test 6a: Natural order
-#   testthat::expect_equal(
-#     levels(bar(test_df, x = "category", y = "value", order = "none")$data$category),
-#     c("A", "B", "C")
-#   )
-
-#   # Test 6b: Ordered by y
-#   testthat::expect_equal(
-#     levels(bar(test_df, x = "category", y = "value", order = "y")$data$category),
-#     c("A", "B", "C")  # Should be ordered by value
-#   )
-
-#   # Test 7: Faceting edge cases
-#   # Test 7a: Single facet level
-#   single_facet <- data.table::data.table(
-#     category = c("A", "B"),
-#     value = c(10, 20),
-#     facet_var = c("F1", "F1")
-#   )
-#   testthat::expect_s3_class({
-#     bar(single_facet, x = "category", y = "value", facet = "facet_var")
-#   }, "ggplot")
-
-#   # Test 8: Text labeling thresholds
-#   small_values <- data.table::data.table(
-#     category = c("A", "B"),
-#     value = c(0.03, 0.04),  # Below default 0.05 threshold
-#     group = c("X", "Y")
-#   )
-#   plot_data <- bar(small_values, x = "category", y = "value", group = "group", add_text = TRUE)
-#   testthat::expect_true(all(is.na(plot_data$layers[[2]]$data$y_threshold)))
-
-#   # Test 9: Invalid parameter combinations
-#   testthat::expect_error(
-#     bar(test_df, x = "value", y = "category"),  # Reversed numeric/character
-#     "must be character or factor"
-#   )
-
-#   # Test 10: Facet/group interaction with insufficient data
-#   sparse_data <- data.table::data.table(
-#     category = "A",
-#     value = 10,
-#     group = "X",
-#     facet_var = "F1"
-#   )
-#   testthat::expect_s3_class({
-#     bar(sparse_data, x = "category", y = "value", group = "group", facet = "facet_var")
-#   }, "ggplot")
-# })
-
-# # Visual regression tests (requires vdiffr)
-# testthat::test_that("Visual appearance remains consistent", {
-#   test_df <- data.table::data.table(
-#     category = factor(c("A", "B", "C")),
-#     value = c(10, 20, 30),
-#     group = c("X", "X", "Y"),
-#     facet_var = c("F1", "F1", "F2")
-#   )
-
-#   # Basic plot
-#   basic <- bar(test_df, x = "category", y = "value")
-#   vdiffr::expect_doppelganger("basic-bar", basic)
-
-#   # Grouped+dodged
-#   grouped <- bar(test_df, x = "category", y = "value", group = "group")
-#   vdiffr::expect_doppelganger("grouped-dodged-bar", grouped)
-
-#   # Faceted
-#   faceted <- bar(test_df, x = "category", y = "value", facet = "facet_var")
-#   vdiffr::expect_doppelganger("faceted-bar", faceted)
-
-#   # Stacked
-#   stacked <- bar(test_df, x = "category", y = "value", group = "group", position = "stack")
-#   vdiffr::expect_doppelganger("stacked-bar", stacked)
-# })