Fix for test

SchlossLab · Oct 24, 2024 · 0b932e4 · 0b932e4
1 parent 2d69da3
commit 0b932e4
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/tests/testthat/test-distance_object-getters.R b/tests/testthat/test-distance_object-getters.R
@@ -22,6 +22,6 @@ test_that("get_distance_df returns a dataframe of the distances", {
                              count_table, cutoff, FALSE)
   distances <- get_distance_df(distance_data)
   expect_true("data.frame" %in% class(distances))
-  expect_true(nrow(distances) == 1350)
+  expect_true(nrow(distances) == 962)
   expect_true(ncol(distances) == 3)
 })
diff --git a/tests/testthat/test-test-opticluster.R b/tests/testthat/test-test-opticluster.R
@@ -140,8 +140,8 @@ test_that("Read dist can read column and phylip files", {
                                     count_table, 0.2, FALSE)
   col_df <- get_distance_df(distance_data_column)
   phy_df <- get_distance_df(distance_data_phylip)
-  expect_true(nrow(get_distance_df(distance_data_column)) == 9604)
-  expect_true(nrow(get_distance_df(distance_data_phylip)) == 9604)
+  expect_true(nrow(get_distance_df(distance_data_column)) == 962)
+  expect_true(nrow(get_distance_df(distance_data_phylip)) == 1048)
 })