From b03cf522d9072c85c4a3568d91e02d5d5aa64dc9 Mon Sep 17 00:00:00 2001
From: George Moroz <agricolamz@gmail.com>
Date: Sun, 14 Jul 2024 10:29:27 +0300
Subject: [PATCH] fix tests

---
 R/df_to_tier.R                   | 2 +-
 tests/testthat/test-df-to-tier.R | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/df_to_tier.R b/R/df_to_tier.R
index 7d5c9b6..163182e 100644
--- a/R/df_to_tier.R
+++ b/R/df_to_tier.R
@@ -15,7 +15,7 @@
 #' no output.
 #' @examples
 #' time_start <- c(0.00000000, 0.01246583, 0.24781914, 0.39552363, 0.51157715)
-#' time_end <- c(0.01246583, 0.24781914, 0.39552363, 0.51157715, 0.65267574)
+#' time_end <- c(0.01246583, 0.24781914, 0.39552363, 0.51157715, 0.6526757369614512)
 #' content <- c("", "T", "E", "S", "T")
 #' df_to_tier(my_df <- data.frame(id = 1:5, time_start, time_end, content),
 #'   system.file("extdata", "test.TextGrid",
diff --git a/tests/testthat/test-df-to-tier.R b/tests/testthat/test-df-to-tier.R
index 6e6af29..eaf41bf 100644
--- a/tests/testthat/test-df-to-tier.R
+++ b/tests/testthat/test-df-to-tier.R
@@ -8,6 +8,8 @@ test_that("df_to_tier", {
                    overwrite = FALSE
   )
 
+  cat(tg, sep = "\n")
+
   readLines(system.file("extdata", "test.TextGrid", package = "phonfieldwork"))
 
   expect_error(