aboutsummaryrefslogblamecommitdiff
path: root/tests/testthat/test_mkinds.R
blob: 8826f548cbb5bd61e0b5f1597f0ff097c10f758f (plain) (tree)
1
2
3
4
5
6
7
8
9
10
                                                  

                                                                                          
                                                                 
  


                                                                                          
 
                                                                                            
                                                                        
  
context("Test dataset classes mkinds and mkindsg")

test_that("An mkinds object can be created and printed", {
  testdata <- mkinds$new("FOCUS C", data = FOCUS_2006_C, time_unit = "days", unit = "%AR")
  expect_known_output(print(testdata), "FOCUS_2006_C_mkinds.txt")
})

test_that("An mkindsg object can be created and printed", {
  testdata_group <- mkindsg$new("Experimental X", experimental_data_for_UBA_2019[6:10])
  expect_known_output(print(testdata_group), "experimental_data_for_UBA_2019_mkindsg.txt")

  skip_on_cran() # we get uneven spacing on winbuilder for some reason (2022-03-02, R 4.1.2)
  expect_known_output(print(dimethenamid_2018), "dimethenamid_2018.txt")
})

Contact - Imprint