fix syntax

jpquast · Oct 10, 2024 · 2ae279e · 2ae279e
1 parent 70dd1ca
commit 2ae279e
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/tests/testthat/test-auxiliary_functions.R b/tests/testthat/test-auxiliary_functions.R
@@ -25,12 +25,11 @@ if (Sys.getenv("TEST_PROTTI") == "true") {
     test_that("deprecated peptide_type works", {
       rlang::with_options(lifecycle_verbosity = "warning", {
         expect_warning(assigned_types <- data %>%
-          find_peptide(
-            protein_sequence = protein_sequence,
-            peptide_sequence = peptide
-          ) %>%
-          peptide_type(aa_before = aa_before, last_aa = last_aa))
-
+                         find_peptide(
+                           protein_sequence = protein_sequence,
+                           peptide_sequence = peptide
+                         ) %>%
+                         peptide_type(aa_before = aa_before, last_aa = last_aa))
       })
       expect_is(assigned_types, "data.frame")
       expect_equal(nrow(assigned_types), 3)
@@ -47,9 +46,10 @@ if (Sys.getenv("TEST_PROTTI") == "true") {
 
     test_that("find_peptide and assign_peptide_type work", {
       expect_is(assigned_types, "data.frame")
-      expect_equal(nrow(assigned_types), 6)
+      expect_equal(nrow(assigned_types), 3)
       expect_equal(ncol(assigned_types), 9)
       expect_equal(assigned_types$pep_type, c("fully-tryptic", "semi-tryptic", "non-tryptic"))
+    })
 
     test_that("deprecated sequence_coverage works", {
       rlang::with_options(lifecycle_verbosity = "warning", {