diff --git a/R/greet.R b/R/greet.R
new file mode 100644
index 0000000..f28699f
--- /dev/null
+++ b/R/greet.R
@@ -0,0 +1,11 @@
+#' Greet a person by name
+#'
+#' @param name Name of person to greet
+#'
+#' @returns
+#' @export
+#'
+#' @examples
+greet <- function(name) {
+  cat(paste0("Hello ", name))
+}
diff --git a/tests/testthat/test-greet.R b/tests/testthat/test-greet.R
new file mode 100644
index 0000000..37b92f7
--- /dev/null
+++ b/tests/testthat/test-greet.R
@@ -0,0 +1,3 @@
+test_that("greet works", {
+  expect_output(greet("Matt"), "Hello Matt")
+})