Use entire api object in API tests.

The API tests used to setup individual endpoints to run the tests. That
is a bit verbose and duplicates a bunch of code from the `api.R` file.

This will be made much worse when we introduce `url` parameters to all
the endpoints, since all the tests will need to make a API call to fetch
the repository first, which will lead to more boilerplate.

Using the api object solves this issue.

tests/testthat/helper-orderly-runner.R

@@ -1,22 +1,19 @@
-orderly_runner_endpoint <- function(
-  method, path,
-  root = NULL,
-  repositories = NULL,
-  validate = TRUE,
-  skip_queue_creation = FALSE
-) {
-  if (skip_queue_creation) {
-    queue <- NULL
-  } else {
-    queue <- Queue$new(root)
+create_api <- function(root = NULL,
+                       repositories = NULL,
+                       log_level = "off",
+                       ...,
+                       .local_envir = parent.frame()) {
+  if (is.null(repositories)) {
+    repositories <- withr::local_tempdir()
   }
-  porcelain::porcelain_package_endpoint(
-    "orderly.runner", method, path,
-    state = list(root = root,
-                 repositories_base_path = repositories,
-                 queue = queue),
-    validate = validate
-  )
+
+  api(root, repositories, validate = TRUE, log_level = log_level, ...)
+}
+
+
+expect_success <- function(res) {
+  expect_equal(res$status, 200)
+  invisible(jsonlite::fromJSON(res$body)$data)
 }