begin testing

Author: thomasp85

DESCRIPTION

@@ -37,6 +37,8 @@ Suggests:
     mirai,
     nanoparquet,
     quarto,
-    readr
+    readr,
+    testthat (>= 3.0.0)
 VignetteBuilder: quarto
 URL: https://laughing-spoon-ywk3ewq.pages.github.io/
+Config/testthat/edition: 3

R/api_docs.R

@@ -35,7 +35,7 @@ api_doc_setting <- function(api, doc_type, doc_path) {
     api$doc_type <- doc_type
   }
   if (!missing(doc_path)) {
-    api_doc_path <- doc_path
+    api$doc_path <- doc_path
   }
   api
 }

tests/testthat.R

@@ -0,0 +1,12 @@
+# This file is part of the standard setup for testthat.
+# It is recommended that you do not modify it.
+#
+# Where should you do additional test configuration?
+# Learn more about the roles of various files in:
+# * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
+# * https://testthat.r-lib.org/articles/special-files.html
+
+library(testthat)
+library(plumber2)
+
+test_check("plumber2")

tests/testthat/test-aaa.R

@@ -0,0 +1,25 @@
+test_that("as_openapi_path modifies the path correctly", {
+  expect_equal(as_openapi_path("/test/nothing"), "/test/nothing")
+  expect_equal(as_openapi_path("/test/<arg>"), "/test/{arg}")
+  expect_equal(
+    as_openapi_path("/test/<arg>/and/<arg2>"),
+    "/test/{arg}/and/{arg2}"
+  )
+  expect_equal(
+    as_openapi_path("/test/<arg:number>/and/<arg2:[integer]>"),
+    "/test/{arg}/and/{arg2}"
+  )
+})
+
+test_that("as_routr_path modifies the path correctly", {
+  expect_equal(as_routr_path("/test/nothing"), "/test/nothing")
+  expect_equal(as_routr_path("/test/<arg>"), "/test/:arg")
+  expect_equal(
+    as_routr_path("/test/<arg>/and/<arg2>"),
+    "/test/:arg/and/:arg2"
+  )
+  expect_equal(
+    as_routr_path("/test/<arg:number>/and/<arg2:[integer]>"),
+    "/test/:arg/and/:arg2"
+  )
+})