tests/testthat/test-wide_to_long.R

In ibarraespinosa/vein: Vehicular Emissions Inventories

context("wide_to_long")

data(net)
dnet <- sf::st_set_geometry(net, NULL)
dnet$l <- 1
row.names(dnet) <- 1:nrow(dnet)
netsf <- sf::st_as_sf(net)
test_that("wide_to_long works", {
  expect_equal(round(wide_to_long(df = dnet)$V1[1]),
               4350)
  expect_equal(wide_to_long(df = dnet, geometry = rep(netsf$geometry,10))$V1[1],
               4350)
  expect_equal(round(wide_to_long(df = dnet, column_fixed = "l")$V1[1]),
               4350)
  expect_error(wide_to_long(df = dnet, geometry = net),
               ".?")
  })