fix test for as.vpts()

adokter · Nov 4, 2024 · 5fdf406 · 5fdf406
1 parent 72ac0cf
commit 5fdf406
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-as.vpts.R b/tests/testthat/test-as.vpts.R
@@ -1,11 +1,11 @@
-test_that("as.vpts() returns error message for incorrect data", {
+test_that("as.vpts() returns warning message for incorrect data", {
   df <- read.csv(system.file("extdata", "example_vpts.csv", package = "bioRad"))
 
   #randomly remove row
   randomIndex <- sample(nrow(df), 1)
   df <- df[-randomIndex, ]
 
-  expect_error(as.vpts(df),"identical")
+  expect_warning(as.vpts(df),"profiles found with different")
 })
 
 test_that("as.vpts() handles multiple unique attribute values correctly", {