From 3228c9d4f822983f1bbe70f69f0e147ed50f6ac9 Mon Sep 17 00:00:00 2001
From: David Gohel <david.gohel@ardata.fr>
Date: Thu, 18 Jan 2024 18:49:30 +0100
Subject: [PATCH] test: check rows and columns deletion

---
 tests/testthat/test-cell-content.R | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/tests/testthat/test-cell-content.R b/tests/testthat/test-cell-content.R
index 43c899c6..bb5f859c 100644
--- a/tests/testthat/test-cell-content.R
+++ b/tests/testthat/test-cell-content.R
@@ -129,3 +129,25 @@ test_that("append and prepend chunks structure", {
     )
   )
 })
+
+test_that("delete rows and columns", {
+  ftab <- flextable(head(iris))
+  ftab <- delete_columns(ftab, j = 1:3)
+  ftab <- delete_rows(ftab, i = 1:5, part = "body")
+  ftab <- autofit(ftab)
+
+
+  expect_equal(flextable:::fortify_run(ftab)$txt,
+    expected = c("Petal.Width", "Species", "0.4", "setosa")
+  )
+  expect_equal(ftab$col_keys,
+    expected = c("Petal.Width", "Species")
+  )
+  expect_equal(ftab$body$content$nrow,
+    expected = 1L
+  )
+  expect_equal(ftab$body$content$ncol,
+    expected = 2L
+  )
+
+})