Create tests with kwb.test::create_test_files()

and modify some tests.

Skip tests that would detach testthat!
Skip test that would install the remotes package!

DESCRIPTION

@@ -30,10 +30,12 @@ Suggests:
     covr,
     knitr,
     pkgmeta,
-    rmarkdown
+    rmarkdown,
+    testthat (>= 3.0.0)
 Remotes: 
     github::kwb-r/kwb.utils,
     github::kwb-r/pkgmeta
 Encoding: UTF-8
 RoxygenNote: 7.3.1
 VignetteBuilder: knitr
+Config/testthat/edition: 3

R/install.R

@@ -39,7 +39,6 @@ updateKwbPackages <- function
   }
 }
 
-
 # getServername ------------------------------------------------------------
 
 #' Get KWB Servername

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/tests.html
+# * https://testthat.r-lib.org/reference/test_package.html#special-files
+
+library(testthat)
+library(kwb.package)
+
+test_check("kwb.package")

tests/testthat/test-function-addNodeLabels.R

@@ -0,0 +1,17 @@
+#
+# This file was generated by kwb.test::create_test_files(), 
+# launched by hsonne on 2024-05-02 18:06:13.
+# Please modify the dummy functions so that real cases are
+# tested. Then, delete this comment.
+#
+
+test_that("addNodeLabels() works", {
+
+  f <- kwb.package::addNodeLabels
+
+  expect_error(
+    f()
+    # Argument "nodes" fehlt (ohne Standardwert)
+  )
+
+})

tests/testthat/test-function-allDeps.R

@@ -0,0 +1,17 @@
+#
+# This file was generated by kwb.test::create_test_files(), 
+# launched by hsonne on 2024-05-02 17:58:25.
+# Please modify the dummy functions so that real cases are
+# tested. Then, delete this comment.
+#
+
+test_that("allDeps() works", {
+
+  f <- kwb.package:::allDeps
+
+  expect_error(
+    f()
+    # Argument "name" fehlt (ohne Standardwert)
+  )
+
+})

tests/testthat/test-function-anglesToPoints.R

@@ -0,0 +1,17 @@
+#
+# This file was generated by kwb.test::create_test_files(), 
+# launched by hsonne on 2024-05-02 18:06:13.
+# Please modify the dummy functions so that real cases are
+# tested. Then, delete this comment.
+#
+
+test_that("anglesToPoints() works", {
+
+  f <- kwb.package::anglesToPoints
+
+  expect_error(
+    f()
+    # Argument "angles.grad" fehlt (ohne Standardwert)
+  )
+
+})

tests/testthat/test-function-archivedCranVersions.R

@@ -0,0 +1,17 @@
+#
+# This file was generated by kwb.test::create_test_files(), 
+# launched by hsonne on 2024-05-02 17:58:25.
+# Please modify the dummy functions so that real cases are
+# tested. Then, delete this comment.
+#
+
+test_that("archivedCranVersions() works", {
+
+  f <- kwb.package::archivedCranVersions
+
+  expect_error(
+    f()
+    # Argument "package" fehlt (ohne Standardwert)
+  )
+
+})

tests/testthat/test-function-cleanStop.R

@@ -0,0 +1,17 @@
+#
+# This file was generated by kwb.test::create_test_files(), 
+# launched by hsonne on 2024-05-02 18:06:14.
+# Please modify the dummy functions so that real cases are
+# tested. Then, delete this comment.
+#
+
+test_that("cleanStop() works", {
+
+  f <- kwb.package:::cleanStop
+
+  expect_error(
+    f()
+    # 
+  )
+
+})

tests/testthat/test-function-compareInstalledVersions.R

@@ -0,0 +1,17 @@
+#
+# This file was generated by kwb.test::create_test_files(), 
+# launched by hsonne on 2024-05-02 17:58:25.
+# Please modify the dummy functions so that real cases are
+# tested. Then, delete this comment.
+#
+
+test_that("compareInstalledVersions() works", {
+
+  f <- kwb.package::compareInstalledVersions
+
+  expect_error(
+    f()
+    # Argument "lib1" fehlt (ohne Standardwert)
+  )
+
+})

tests/testthat/test-function-copyBasePackages.R

@@ -0,0 +1,17 @@
+#
+# This file was generated by kwb.test::create_test_files(), 
+# launched by hsonne on 2024-05-02 17:58:25.
+# Please modify the dummy functions so that real cases are
+# tested. Then, delete this comment.
+#
+
+test_that("copyBasePackages() works", {
+
+  f <- kwb.package::copyBasePackages
+
+  expect_error(
+    f()
+    # Argument "target_lib" fehlt (ohne Standardwert)
+  )
+
+})

tests/testthat/test-function-cranVersions.R

@@ -0,0 +1,17 @@
+#
+# This file was generated by kwb.test::create_test_files(), 
+# launched by hsonne on 2024-05-02 17:58:26.
+# Please modify the dummy functions so that real cases are
+# tested. Then, delete this comment.
+#
+
+test_that("cranVersions() works", {
+
+  f <- kwb.package::cranVersions
+
+  expect_error(
+    f()
+    # Argument "name" fehlt (ohne Standardwert)
+  )
+
+})

tests/testthat/test-function-currentCranVersion.R

@@ -0,0 +1,12 @@
+#library(testthat)
+
+test_that("currentCranVersion() works", {
+
+  f <- kwb.package:::currentCranVersion
+
+  result <- f()
+
+  expect_s3_class(result, "data.frame")
+  expect_identical(names(result), c("package", "version", "date", "date_type"))
+
+})

tests/testthat/test-function-defaultLocalCRAN.R

@@ -0,0 +1,10 @@
+#library(testthat)
+
+test_that("defaultLocalCRAN() works", {
+
+  f <- kwb.package:::defaultLocalCRAN
+
+  result <- f()
+  expect_true(endsWith(result, "/local-cran"))
+
+})

tests/testthat/test-function-defaultPackageDir.R

@@ -0,0 +1,12 @@
+#library(testthat)
+
+test_that("defaultPackageDir() works", {
+
+  f <- kwb.package:::defaultPackageDir
+
+  result <- f()
+
+  expect_type(result, "character")
+  expect_length(result, 1L)
+
+})

tests/testthat/test-function-detachAllNonSystemPackages.R

@@ -0,0 +1,11 @@
+#library(testthat)
+
+testthat::skip("Do not detach testthat!")
+
+test_that("detachAllNonSystemPackages() works", {
+
+  f <- kwb.package::detachAllNonSystemPackages
+
+  expect_output(f())
+
+})

tests/testthat/test-function-detachRecursively.R

@@ -0,0 +1,11 @@
+#library(testthat)
+
+testthat::skip("Do not detach testthat!")
+
+test_that("detachRecursively() works", {
+
+  f <- kwb.package::detachRecursively
+
+  expect_error(f())
+
+})

tests/testthat/test-function-dirPackageZips.R

@@ -0,0 +1,9 @@
+#library(testthat)
+
+test_that("dirPackageZips() works", {
+
+  f <- kwb.package:::dirPackageZips
+
+  expect_error(f())
+
+})

tests/testthat/test-function-downloadGitHubPackage.R

@@ -0,0 +1,17 @@
+#
+# This file was generated by kwb.test::create_test_files(), 
+# launched by hsonne on 2024-05-02 17:58:28.
+# Please modify the dummy functions so that real cases are
+# tested. Then, delete this comment.
+#
+
+test_that("downloadGitHubPackage() works", {
+
+  f <- kwb.package::downloadGitHubPackage
+
+  expect_error(
+    f()
+    # Argument "repo" fehlt (ohne Standardwert)
+  )
+
+})

tests/testthat/test-function-downloadPackagesFromSnapshot.R

@@ -0,0 +1,17 @@
+#
+# This file was generated by kwb.test::create_test_files(), 
+# launched by hsonne on 2024-05-02 17:58:28.
+# Please modify the dummy functions so that real cases are
+# tested. Then, delete this comment.
+#
+
+test_that("downloadPackagesFromSnapshot() works", {
+
+  f <- kwb.package::downloadPackagesFromSnapshot
+
+  expect_error(
+    f()
+    # Argument "packages" fehlt (ohne Standardwert)
+  )
+
+})

tests/testthat/test-function-drawDependencies.R

@@ -0,0 +1,17 @@
+#
+# This file was generated by kwb.test::create_test_files(), 
+# launched by hsonne on 2024-05-02 18:06:13.
+# Please modify the dummy functions so that real cases are
+# tested. Then, delete this comment.
+#
+
+test_that("drawDependencies() works", {
+
+  f <- kwb.package::drawDependencies
+
+  expect_error(
+    f()
+    # Argument "nodes" fehlt (ohne Standardwert)
+  )
+
+})

tests/testthat/test-function-drawLink.R

@@ -0,0 +1,17 @@
+#
+# This file was generated by kwb.test::create_test_files(), 
+# launched by hsonne on 2024-05-02 18:06:13.
+# Please modify the dummy functions so that real cases are
+# tested. Then, delete this comment.
+#
+
+test_that("drawLink() works", {
+
+  f <- kwb.package::drawLink
+
+  expect_error(
+    f()
+    # Argument "nodes" fehlt (ohne Standardwert)
+  )
+
+})

tests/testthat/test-function-draw_circles.R

@@ -0,0 +1,17 @@
+#
+# This file was generated by kwb.test::create_test_files(), 
+# launched by hsonne on 2024-05-02 18:06:13.
+# Please modify the dummy functions so that real cases are
+# tested. Then, delete this comment.
+#
+
+test_that("draw_circles() works", {
+
+  f <- kwb.package:::draw_circles
+
+  expect_error(
+    f()
+    # Argument "r" fehlt (ohne Standardwert)
+  )
+
+})

tests/testthat/test-function-equidistantAngles.R

@@ -0,0 +1,17 @@
+#
+# This file was generated by kwb.test::create_test_files(), 
+# launched by hsonne on 2024-05-02 18:06:13.
+# Please modify the dummy functions so that real cases are
+# tested. Then, delete this comment.
+#
+
+test_that("equidistantAngles() works", {
+
+  f <- kwb.package::equidistantAngles
+
+  expect_error(
+    f()
+    # Argument "n" fehlt (ohne Standardwert)
+  )
+
+})

tests/testthat/test-function-exampleLinksAndNodes.R

@@ -0,0 +1,17 @@
+#
+# This file was generated by kwb.test::create_test_files(), 
+# launched by hsonne on 2024-05-02 18:06:14.
+# Please modify the dummy functions so that real cases are
+# tested. Then, delete this comment.
+#
+
+test_that("exampleLinksAndNodes() works", {
+
+  f <- kwb.package::exampleLinksAndNodes
+
+  expect_error(
+    f()
+    # line 8 did not have 4 elements
+  )
+
+})

tests/testthat/test-function-findPackageFilename.R

@@ -0,0 +1,17 @@
+#
+# This file was generated by kwb.test::create_test_files(), 
+# launched by hsonne on 2024-05-02 17:58:28.
+# Please modify the dummy functions so that real cases are
+# tested. Then, delete this comment.
+#
+
+test_that("findPackageFilename() works", {
+
+  f <- kwb.package:::findPackageFilename
+
+  expect_error(
+    f()
+    # Argument "tarfile" fehlt (ohne Standardwert)
+  )
+
+})