tests/testthat/testthat.R

In fbarulli/lib5af: Connecting R to an API

library(testthat)
library(lib5af)
context(datafr)
# GenData$`M proc`
# GenData$`C proc`
# GenData$`FP proc`
# GenData$`KD proc`
# GenData$`S proc`
# GenData$`V proc`
# GenData$`MP proc`
# GenData$`SD proc`
# GenData$`FI proc`

t_numeric<- function(x) {
  if (class(x) != "numeric"){
  stop("Not a number")}
}

test_that("Party is correct", {
  tal<-GenData$new(path=path)
  testthat::expect_named(c(GenData$`M tal`,
                 GenData$`C tal`,
                 GenData$`FP tal`,
                 GenData$`KD tal`,
                 GenData$`S tal`,
                 GenData$`V tal`,
                 GenData$`MP tal`,
                 GenData$`SD tal`,
                 GenData$`FI tal`))
})