add 2 more tests

Author: olivroy

tests/testthat/test-fdf_ftf.R

@@ -213,5 +213,34 @@ test_that("fdt() works in all contexts", {
       "Thu 7:39:00 in the evening"
     )
   )
+
+  # Copy of a test in gt
+  expect_equal(
+    fdt(c(
+      "1970-01-01 15:35:00", "1970-01-01 16:36:00", "1970-01-01 17:37:00",
+      "1970-01-01 18:38:00", "1970-01-01 19:39:00"
+    ),
+    format = "'Q'q k:m"
+    ),
+    c(
+      "Q1 16:35", "Q1 17:36",
+      "Q1 18:37", "Q1 19:38",
+      "Q1 20:39"
+    )
+  )
+
+  expect_equal(
+    fdt(c(
+      "1970-01-01 15:35:00", "1970-01-01 16:36:00", "1970-01-01 17:37:00",
+      "1970-01-01 18:38:00", "1970-01-01 19:39:00"
+    ),
+    format = "QQQQ k:m"
+    ),
+    c(
+      "1st quarter 16:35", "1st quarter 17:36",
+      "1st quarter 18:37", "1st quarter 19:38",
+      "1st quarter 20:39"
+    )
+  )
 })