tests/testthat/test-coords.R

In ggseg: Plotting Tool for Brain Atlases

describe("to_coords", {
  it("returns empty data frame for empty input", {
    result <- to_coords(list(), 1)
    expect_s3_class(result, "data.frame")
    expect_equal(nrow(result), 0)
    expect_named(result, c(".long", ".lat", ".subid", ".id", ".poly", ".order"))
  })

  it("converts geometry to coordinate data frame", {
    atlas_df <- as.data.frame(dk())
    geom <- atlas_df$geometry[[1]]
    result <- to_coords(geom, 1)
    expect_s3_class(result, "data.frame")
    expect_true(nrow(result) > 0)
    expect_named(result, c(".long", ".lat", ".subid", ".id", ".poly", ".order"))
  })
})

describe("sf2coords", {
  it("converts sf data to coords format", {
    result <- sf2coords(dk()$data$sf)
    expect_true("ggseg" %in% names(result))
    expect_type(result$ggseg, "list")
    expect_true(length(result$ggseg) == nrow(dk()$data$sf))
  })

  it("removes geometry column", {
    result <- sf2coords(dk()$data$sf)
    expect_false("geometry" %in% names(result))
  })
})