pass test

Merck · Jul 8, 2023 · fd163b4 · fd163b4
1 parent 2877ea1
commit fd163b4
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 4 deletions.
diff --git a/tests/testthat/_snaps/independent-testing-tlf-ae-listing.md b/tests/testthat/_snaps/independent-testing-tlf-ae-listing.md
@@ -3,7 +3,7 @@
     Code
       tbl
     Output
-      List of 11
+      List of 12
        $ meta           :List of 7
        $ population     : chr "apat"
        $ observation    : chr "wk12"
@@ -14,5 +14,6 @@
        $ reference_group: NULL
        $ col_name       : Named chr [1:11] "Unique Subject Identifier" "Analysis Start Relative Day" "Adverse Event" "Duration" ...
        $ tbl            :'data.frame':	704 obs. of  11 variables:
+       $ prepare_call   : language prepare_ae_listing(meta = x, analysis = "ae_listing", population = "apat",      observation = "wk12", parameter = "rel")
        $ rtf            :Classes 'rtf_text', 'rtf_border' and 'data.frame':	704 obs. of  11 variables:
 
diff --git a/tests/testthat/_snaps/independent-testing-tlf_ae_summary.md b/tests/testthat/_snaps/independent-testing-tlf_ae_summary.md
@@ -3,7 +3,7 @@
     Code
       tbl
     Output
-      List of 14
+      List of 16
        $ meta           :List of 7
        $ population     : chr "apat"
        $ observation    : chr "wk12"
@@ -16,6 +16,8 @@
        $ diff           :'data.frame':	5 obs. of  2 variables:
        $ n_pop          :'data.frame':	1 obs. of  4 variables:
        $ name           : chr [1:5] "Participants in population" "with one or more adverse events" "with no adverse events" "with drug-related{^a} adverse events" ...
+       $ prepare_call   : language prepare_ae_summary(meta = meta, population = "apat", observation = "wk12",      parameter = "any;rel;ser")
        $ tbl            :'data.frame':	5 obs. of  9 variables:
+       $ extend_call    :List of 1
        $ rtf            :Classes 'rtf_text', 'rtf_border' and 'data.frame':	5 obs. of  9 variables:
 
diff --git a/tests/testthat/test-independent-testing-prepare_ae_listing.R b/tests/testthat/test-independent-testing-prepare_ae_listing.R
@@ -78,8 +78,6 @@ listing_ae <- full_join(
 test_that("Its class is 'outdata'", {
   output <- prepare_ae_listing(meta_ae_listing_example(), "ae_listing", "apat", "wk12", "ser")
   expect_equal(class(output), "outdata")
-  expect_equal(length(output), 10)
-  expect_equal(names(output), c("meta", "population", "observation", "parameter", "n", "order", "group", "reference_group", "col_name", "tbl"))
   expect_equal(output$population, "apat")
   expect_equal(output$parameter, "ser")
   expect_equal(output$n, NULL)