tests/testthat/test-generate_text.R

In ahgroup/DSAIRM: Dynamical Systems Approach to Immune Response Modeling

context("test-generate_text.R")


test_that("generate_text returns text string",
          {
            simresult=DSAIRM::simulate_basicbacteria_ode()
            result = vector("list", 1)
            result[[1]]$dat = simresult$ts
            #no maketext provided, should be character of length 1
            expect_length( generate_text(result), 1)
            #maketext false is same as above
            result[[1]]$maketext = FALSE
            expect_is( generate_text(result), "html" )
            expect_is( generate_text(result), "character" )
            expect_length( generate_text(result), 1)
            #should now produce text
            result[[1]]$maketext = TRUE
            #should both be of class html and character
            expect_is( generate_text(result), "html" )
            expect_is( generate_text(result), "character" )
            result[[1]]$maketext = FALSE
            result[[1]]$showtext = 'Hello'
            expect_is( generate_text(result), "html" )
            expect_is( generate_text(result), "character" )
          })