Nueva function greet()

DESCRIPTION

@@ -10,3 +10,6 @@ Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.2
 URL: https://ixpantia.github.io/inc.rtests/
+Suggests: 
+    testthat (>= 3.0.0)
+Config/testthat/edition: 3

R/greet.R

@@ -0,0 +1,4 @@
+greet <- function(name = NULL) {
+  name <- name %||% "world"
+  paste("hello", name)
+}

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(inc.rtests)
+
+test_check("inc.rtests")

tests/testthat/test-greet.R

@@ -0,0 +1,7 @@
+test_that("works", {
+  expect_equal(greet(), "hello world")
+})
+
+test_that("con 'Mauro' devuelve hello Mauro", {
+  expect_equal(greet('Mauro'), "hello Mauro")
+})