diff --git a/DESCRIPTION b/DESCRIPTION
index 40fa822..1425633 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -25,3 +25,7 @@ RoxygenNote: 7.3.2
 Encoding: UTF-8
 BugReports: https://github.com/statnet/statnetWeb/issues
 URL: https://statnet.org, https://github.com/statnet/statnetWeb
+Suggests: 
+    testthat (>= 3.0.0),
+    shinytest2
+Config/testthat/edition: 3
diff --git a/inst/shiny/statnetWeb/server.R b/inst/shiny/statnetWeb/server.R
index c992cad..dabe74e 100644
--- a/inst/shiny/statnetWeb/server.R
+++ b/inst/shiny/statnetWeb/server.R
@@ -1231,7 +1231,7 @@ output$datadesc <- renderUI({
   text
 })
 
-output$rawdatafile <- renderPrint({
+output$rawdata_stats <- renderPrint({
   raw <- matrix(nrow=2,ncol=1)
   rownames(raw)<-c("name:", "size:")
   if(!is.null(input$rawdatafile)){
diff --git a/inst/shiny/statnetWeb/tests/testthat.R b/inst/shiny/statnetWeb/tests/testthat.R
new file mode 100644
index 0000000..940e79c
--- /dev/null
+++ b/inst/shiny/statnetWeb/tests/testthat.R
@@ -0,0 +1 @@
+shinytest2::test_app()
\ No newline at end of file
diff --git a/inst/shiny/statnetWeb/tests/testthat/_snaps/linux-4.5/shinytest2/load-flobusiness-001.png b/inst/shiny/statnetWeb/tests/testthat/_snaps/linux-4.5/shinytest2/load-flobusiness-001.png
new file mode 100644
index 0000000..d08a3cf
Binary files /dev/null and b/inst/shiny/statnetWeb/tests/testthat/_snaps/linux-4.5/shinytest2/load-flobusiness-001.png differ
diff --git a/inst/shiny/statnetWeb/tests/testthat/setup-shinytest2.R b/inst/shiny/statnetWeb/tests/testthat/setup-shinytest2.R
new file mode 100644
index 0000000..be65b4f
--- /dev/null
+++ b/inst/shiny/statnetWeb/tests/testthat/setup-shinytest2.R
@@ -0,0 +1,2 @@
+# Load application support files into testing environment
+shinytest2::load_app_env()
diff --git a/inst/shiny/statnetWeb/tests/testthat/test-shinytest2.R b/inst/shiny/statnetWeb/tests/testthat/test-shinytest2.R
new file mode 100644
index 0000000..7890f82
--- /dev/null
+++ b/inst/shiny/statnetWeb/tests/testthat/test-shinytest2.R
@@ -0,0 +1,9 @@
+library(shinytest2)
+
+test_that("{shinytest2} recording: load-flobusiness", {
+  app <- AppDriver$new(variant = platform_variant(), name = "load-flobusiness", height = 770, 
+      width = 1165)
+  app$set_inputs(navbar = "tab2")
+  app$set_inputs(samplenet = "flobusiness")
+  app$expect_screenshot()
+})
diff --git a/inst/shiny/statnetWeb/ui.R b/inst/shiny/statnetWeb/ui.R
index d5295b2..46cd367 100644
--- a/inst/shiny/statnetWeb/ui.R
+++ b/inst/shiny/statnetWeb/ui.R
@@ -212,7 +212,8 @@ fluidRow(
                column(6,
                     br(),
                     fileInput(inputId='rawdatafile', label=NULL, accept='text'),
-                    verbatimTextOutput('rawdatafile'))
+                    verbatimTextOutput('rawdata_stats')
+                    )
                 ),
              conditionalPanel(condition = 'input.filetype == 5',
                 column(6,
diff --git a/tests/testthat.R b/tests/testthat.R
new file mode 100644
index 0000000..c2bfdf9
--- /dev/null
+++ b/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(statnetWeb)
+
+test_check("statnetWeb")
diff --git a/tests/testthat/test-statnetWeb-app.R b/tests/testthat/test-statnetWeb-app.R
new file mode 100644
index 0000000..f70419c
--- /dev/null
+++ b/tests/testthat/test-statnetWeb-app.R
@@ -0,0 +1,11 @@
+library(shinytest2)
+
+test_that("statnetWeb app works", {
+  # Don't run these tests on CRAN
+  # skip_on_cran()
+  expect_true(TRUE)
+  
+  app_path <- "../../inst/shiny/statnetWeb"
+  # testthat::expect_identical(app_path, 1)
+  test_app(app_path, check_setup = TRUE)
+})