diff --git a/testthat.R b/testthat.R
new file mode 100644
index 0000000..6ebc957
--- /dev/null
+++ b/testthat.R
@@ -0,0 +1,8 @@
+# a script to show use of testthat in R
+
+library(testthat)
+
+string <- "Testing is fun! hellooooo..."
+expect_match(string, "Testing") 
+expect_match(string, 'hello', ignore.case = TRUE)
+# expect_output(as.character(string), 'hello')