tests/testthat/test-class_vol2bird.R

# Tests the Vol2Bird class 
#
#library(vol2birdR)

#library(testthat)

test_that("verbose",{
  classUnderTest<-Vol2Bird$new()
  expect_equal(classUnderTest$verbose, FALSE)
  classUnderTest$verbose<-TRUE
  expect_equal(classUnderTest$verbose, TRUE)
})

Try the vol2birdR package in your browser

Any scripts or data that you put into this service are public.

vol2birdR documentation built on Sept. 28, 2024, 1:07 a.m.