tests/testthat/test-tariffindsch.R

In pobsteta/gftools: Geographic Data Analysis and Modeling for Forests

context("test-tariffindsch.R")

test_that("Tableau EPC_SP.csv", {
  skip_on_os("windows")
  skip_on_appveyor()
  skip_on_travis()
  test <- gftools::TarifFindSch(fichier = system.file("extdata/EPC_SP.csv", package = "gftools"), mercuriale = system.file("extdata/Mercuriale.csv", package = "gftools"), enreg = F)
  df <- data.frame(
    c("Epicea commun", "Sapin pectine"),
    c(14.96, 12.32),
    c(16.30, 12.08),
    c(14.64, 11.96),
    c(0.15, 0.34),
    c(0.19, 0.28),
    c(0.15, 0.34)
  )
  colnames(df) <- c("essence", "SchR", "SchL", "Alg", "SchRcv", "SchLcv", "Algcv")
  df$essence <- as.character(df$essence)
  test <- as.data.frame(test$Tableau2)
  rownames(test) <- NULL
  rownames(df) <- NULL
  expect_equal(test, df, tolerance = .1)
})

test_that("Graphe1 EPC_SP.csv", {
  skip_on_os("windows")
  skip_on_appveyor()
  skip_on_travis()
  test <- gftools::TarifFindSch(fichier = system.file("extdata/EPC_SP.csv", package = "gftools"), mercuriale = system.file("extdata/Mercuriale.csv", package = "gftools"), enreg = F)
  expect_identical(class(test$Graphe1), c("gg", "ggplot"))
})

test_that("Graphe1 EPC_SP.csv typvolemerge='tige'", {
  skip_on_os("windows")
  skip_on_appveyor()
  skip_on_travis()
  test <- gftools::TarifFindSch(fichier = system.file("extdata/EPC_SP.csv", package = "gftools"), mercuriale = system.file("extdata/Mercuriale.csv", package = "gftools"),
                                typvolemerge = "tige", enreg = F)
  expect_identical(class(test$Graphe1), c("gg", "ggplot"))
})

test_that("mappoint", {
  skip_on_os("windows")
  skip_on_appveyor()
  skip_on_travis()
  expect_error(gftools::TarifFindSch(fichier = system.file("extdata/EPC_SP.csv", package = "gftools"), mercuriale = system.file("extdata/Mercuriale.csv", package = "gftools"),
                                mappoint = TRUE, latitude = 6.22948408, longitude = 47.49957565, enreg = F))
})

test_that("Fichier null", {
  expect_error(gftools::TarifFindSch(fichier = NULL), enreg = F)
})

test_that("Fichier incorrect", {
  expect_error(gftools::TarifFindSch(fichier = ""), enreg = F)
})

test_that("Your have no access to file", {
  expect_error(gftools::TarifFindSch(fichier = system.file("extdata/EPC_SP.csv", package = "gftools"), mercuriale = "", enreg = F))
})

test_that("Enregistrement du tableau", {
  skip_on_os("windows")
  skip_on_appveyor()
  skip_on_travis()
  expect_message(
    gftools::TarifFindSch(fichier = system.file("extdata/EPC_SP.csv", package = "gftools"), mercuriale = system.file("extdata/Mercuriale.csv", package = "gftools"), enreg = T),
    "Result is saved in:"
  )
})