add unit tests

Author: divine7022

tests/testthat.R

@@ -0,0 +1,4 @@
+library(testthat)
+library(betydata)
+
+test_check("betydata")

tests/testthat/test-data.R

@@ -0,0 +1,66 @@
+# Tests for betydata datasets
+
+context("Dataset validation")
+
+test_that("traitsview dataset loads correctly", {
+  data("traitsview", package = "betydata")
+  
+  expect_s3_class(traitsview, "data.frame")
+  expect_gt(nrow(traitsview), 40000)
+  expect_equal(ncol(traitsview), 36)
+})
+
+test_that("traitsview has required columns", {
+  data("traitsview", package = "betydata")
+  
+  expected_cols <- c(
+    "id", "trait", "mean", "units", "scientificname", 
+    "sitename", "author", "checked", "access_level"
+  )
+  expect_true(all(expected_cols %in% names(traitsview)))
+})
+
+test_that("traitsview excludes checked = -1 per data policy", {
+  data("traitsview", package = "betydata")
+  
+  expect_false(any(traitsview$checked == -1, na.rm = TRUE))
+})
+
+test_that("traitsview contains only public data", {
+  data("traitsview", package = "betydata")
+  
+  expect_true(all(traitsview$access_level >= 4, na.rm = TRUE))
+})
+
+test_that("traitsview coordinates are valid", {
+  data("traitsview", package = "betydata")
+  
+  valid_lat <- traitsview$lat[!is.na(traitsview$lat)]
+  valid_lon <- traitsview$lon[!is.na(traitsview$lon)]
+  
+  expect_true(all(valid_lat >= -90 & valid_lat <= 90))
+  expect_true(all(valid_lon >= -180 & valid_lon <= 180))
+})
+
+test_that("species dataset loads correctly", {
+  data("species", package = "betydata")
+  
+  expect_s3_class(species, "data.frame")
+  expect_true("id" %in% names(species))
+  expect_gt(nrow(species), 0)
+})
+
+test_that("variables dataset loads correctly", {
+  data("variables", package = "betydata")
+  
+  expect_s3_class(variables, "data.frame")
+  required_cols <- c("id", "name", "units")
+  expect_true(all(required_cols %in% names(variables)))
+})
+
+test_that("pfts dataset loads correctly", {
+  data("pfts", package = "betydata")
+  
+  expect_s3_class(pfts, "data.frame")
+  expect_true(all(c("id", "name") %in% names(pfts)))
+})

tests/testthat/test-metadata.R

@@ -0,0 +1,34 @@
+# Tests for frictionless datapackage.json
+
+context("Metadata validation")
+
+test_that("datapackage.json exists and is valid JSON", {
+  pkg_path <- system.file("metadata", "datapackage.json", package = "betydata")
+  expect_true(file.exists(pkg_path))
+  
+  dp <- jsonlite::read_json(pkg_path)
+  expect_true("name" %in% names(dp))
+  expect_equal(dp$name, "betydata")
+})
+
+test_that("datapackage.json lists all datasets", {
+  pkg_path <- system.file("metadata", "datapackage.json", package = "betydata")
+  dp <- jsonlite::read_json(pkg_path)
+  
+  resource_names <- vapply(dp$resources, function(r) r$name, character(1))
+  
+  expected <- c("traitsview", "species", "sites", "variables", "citations",
+                "pfts", "priors", "cultivars", "methods", "treatments")
+  expect_true(all(expected %in% resource_names))
+})
+
+test_that("traitsview schema fields match actual columns", {
+  pkg_path <- system.file("metadata", "datapackage.json", package = "betydata")
+  dp <- jsonlite::read_json(pkg_path)
+  
+  tv_resource <- Filter(function(r) r$name == "traitsview", dp$resources)[[1]]
+  schema_fields <- vapply(tv_resource$schema$fields, function(f) f$name, character(1))
+  
+  data("traitsview", package = "betydata")
+  expect_equal(sort(schema_fields), sort(names(traitsview)))
+})