describe("dk atlas", {
  it("is a valid brain_atlas", {
    expect_true(is_ggseg_atlas(dk()))
    expect_s3_class(dk(), "ggseg_atlas")
  })

  it("has correct atlas name and type", {
    expect_equal(dk()$atlas, "dk")
    expect_equal(dk()$type, "cortical")
  })

  it("has required core columns", {
    expect_true(all(c("hemi", "region", "label") %in% names(dk()$core)))
  })

  it("has valid data structure", {
    expect_s3_class(dk()$data, "ggseg_atlas_data")
    expect_s3_class(dk()$data, "ggseg_data_cortical")
  })

  it("has both hemispheres", {
    hemis <- unique(dk()$core$hemi)
    expect_true("left" %in% hemis)
    expect_true("right" %in% hemis)
  })

  it("has expected number of regions", {
    regions <- atlas_regions(dk())
    expect_gt(length(regions), 30)
  })

  it("has sf geometry for 2D rendering", {
    expect_true(!is.null(dk()$data$sf))
    expect_s3_class(dk()$data$sf, "sf")
  })
})


describe("aseg atlas", {
  it("is a valid brain_atlas", {
    expect_true(is_ggseg_atlas(aseg()))
    expect_s3_class(aseg(), "ggseg_atlas")
  })

  it("has correct atlas name and type", {
    expect_equal(aseg()$atlas, "aseg")
    expect_equal(aseg()$type, "subcortical")
  })

  it("has required core columns", {
    expect_true(all(c("hemi", "region", "label") %in% names(aseg()$core)))
  })

  it("has valid data structure", {
    expect_s3_class(aseg()$data, "ggseg_atlas_data")
    expect_s3_class(aseg()$data, "ggseg_data_subcortical")
  })

  it("has expected subcortical regions", {
    regions <- atlas_regions(aseg())
    expect_gt(length(regions), 5)
  })

  it("has sf geometry for 2D rendering", {
    expect_true(!is.null(aseg()$data$sf))
    expect_s3_class(aseg()$data$sf, "sf")
  })
})