diff --git a/tests/testthat/test-generate_col_defs.R b/tests/testthat/test-generate_col_defs.R
index 735f2013..14a5f386 100644
--- a/tests/testthat/test-generate_col_defs.R
+++ b/tests/testthat/test-generate_col_defs.R
@@ -1,7 +1,7 @@
 source(system.file("shiny/functions/generate_col_defs.R", package = "aNCA"))
 
 describe("generate_col_defs", {
-  it("generates column definitions with labels", {
+  it("generates a list of column definitions with labels", {
     data <- data.frame(
       USUBJID = c(1, 2, 3),
       AVAL = c(4, 5, 6)
@@ -9,15 +9,9 @@ describe("generate_col_defs", {
     attr(data$USUBJID, "label") <- "Unique Subject Identifier"
     attr(data$AVAL, "label") <- "Analysis Value"
     col_defs <- generate_col_defs(data)
+    expect_type(col_defs, "list")
     expect_equal(col_defs$USUBJID$header$attribs$title, "Unique Subject Identifier")
     expect_equal(col_defs$AVAL$header$attribs$title, "Analysis Value")
   })
-  it("returns a list of column definitions", {
-    data <- data.frame(
-      USUBJID = c(1, 2, 3),
-      AVAL = c(4, 5, 6)
-    )
-    col_defs <- generate_col_defs(data)
-    expect_type(col_defs, "list")
-  })
+
 })