tests/testthat/test-readimage.R

In slickR: Create Interactive Carousels with the 'JavaScript' 'Slick' Library

testthat::context("read images")

testthat::describe('slick div method',{

  it('png',{
    testthat::expect_equal(
      readImage('../assets/img1.png'),
      readRDS('../assets/img1.Rds')
    )
  })
  
  it('svg',{
    testthat::expect_equal(
      readImage('../assets/img2.svg'),
      readRDS('../assets/img2.Rds')
    )
  })
  
  
  it('svg not standalone',{
    testthat::expect_error(
      slickR:::readImage('../assets/not_standalone.svg'),
      regexp = 'not standalone')
  })
  
})