Fixing tests

Author: jrdnbradford

inst/hooks/exported/validate-renv-lock.R

@@ -12,8 +12,91 @@ library(readr)
 library(jsonvalidate)
 
 files <- commandArgs(trailing = TRUE)
-path_renv_schema <- file.path("inst", "renv.schema.json")
-renv_schema <- readr::read_file(path_renv_schema)
+renv_schema <- '{
+  "$schema": "http://json-schema.org/draft-07/schema#",
+  "title": "renv.lock file.",
+  "description": "A schema for renv.lock files generated by {renv}",
+  "type": "object",
+  "properties": {
+    "R": {
+      "type": "object",
+      "properties": {
+        "Version": {
+          "type": "string"
+        },
+        "Repositories": {
+          "type": "array",
+          "items": {
+            "type": "object",
+            "properties": {
+              "Name": {
+                "type": "string"
+              },
+              "URL": {
+                "type": "string",
+                "format": "uri"
+              }
+            },
+            "required": ["Name", "URL"]
+          }
+        }
+      },
+      "required": ["Version", "Repositories"]
+    },
+    "Packages": {
+      "type": "object",
+      "additionalProperties": {
+        "type": "object",
+        "properties": {
+          "Package": {
+            "type": "string"
+          },
+          "Version": {
+            "type": "string"
+          },
+          "Source": {
+            "type": "string"
+          },
+          "Repository": {
+            "type": "string"
+          },
+          "Hash": {
+            "type": "string",
+            "pattern": "^[a-fA-F0-9]{32}$"
+          },
+          "RemoteType": {
+            "type": "string"
+          },
+          "RemoteHost": {
+            "type": "string",
+            "format": "uri"
+          },
+          "RemoteUsername": {
+            "type": "string"
+          },
+          "RemoteRepo": {
+            "type": "string"
+          },
+          "RemoteRef": {
+            "type": "string"
+          },
+          "RemoteSha": {
+            "type": "string",
+             "pattern": "^[a-fA-F0-9]{40}$"
+          },
+          "Requirements": {
+            "type": "array",
+            "items": {
+              "type": "string"
+            }
+          }
+        },
+        "required": ["Package", "Version", "Source", "Hash"]
+      }
+    }
+  },
+  "required": ["R", "Packages"]
+}'
 
 validate_renv_lock <- function(renv_path, renv_lock_schema) {
   renv_json <- readr::read_file(renv_path)

tests/testthat/in/validate-renv-lock-fail.lock

@@ -0,0 +1,48 @@
+{
+  "R": {
+    "Version": "4.3.2",
+    "Repositories": [
+      {
+        "Name": "CRAN",
+        "URL": "https://cloud.r-project.org"
+      }
+    ]
+  },
+  "Packages": {
+    "ggplot2": {
+      "Package": "ggplot2",
+      "Version": "3.4.4",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Requirements": [
+        "MASS",
+        "R",
+        "cli",
+        "glue",
+        "grDevices",
+        "grid",
+        "gtable",
+        "isoband",
+        "lifecycle",
+        "mgcv",
+        "rlang",
+        "scales",
+        "stats",
+        "tibble",
+        "vctrs",
+        "withr"
+      ],
+      "Hash": "313d31eff274ecf4c1d3581db7241f9"
+    },
+    "renv": {
+      "Package": "renv",
+      "Version": "1.0.3",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Requirements": [
+        "utils"
+      ],
+      "Hash": "41b847654f567341725473431dd0d5ab"
+    }
+  }
+}

tests/testthat/in/validate-renv-lock-success.lock

@@ -0,0 +1,48 @@
+{
+  "R": {
+    "Version": "4.3.2",
+    "Repositories": [
+      {
+        "Name": "CRAN",
+        "URL": "https://cloud.r-project.org"
+      }
+    ]
+  },
+  "Packages": {
+    "ggplot2": {
+      "Package": "ggplot2",
+      "Version": "3.4.4",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Requirements": [
+        "MASS",
+        "R",
+        "cli",
+        "glue",
+        "grDevices",
+        "grid",
+        "gtable",
+        "isoband",
+        "lifecycle",
+        "mgcv",
+        "rlang",
+        "scales",
+        "stats",
+        "tibble",
+        "vctrs",
+        "withr"
+      ],
+      "Hash": "313d31eff2274ecf4c1d3581db7241f9"
+    },
+    "renv": {
+      "Package": "renv",
+      "Version": "1.0.3",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Requirements": [
+        "utils"
+      ],
+      "Hash": "41b847654f567341725473431dd0d5ab"
+    }
+  }
+}

tests/testthat/test-hook-validate-renv-lock.R

@@ -0,0 +1,13 @@
+# success
+run_test(
+  "validate-renv-lock",
+  file_name = c("validate-renv-lock"),
+  suffix = "-success.lock"
+)
+
+# failure
+run_test(
+  "validate-renv-lock",
+  file_name = c("validate-renv-lock"),
+  suffix = "-fail.lock"
+)