diff --git a/R/server.R b/R/server.R
index a36953e..67513d0 100644
--- a/R/server.R
+++ b/R/server.R
@@ -60,11 +60,11 @@ server <- function(input, output, session) {
     upload_state$file2 <- "reset"
   })
 
-  listenForFileUPloads <- reactive({
+  listenForFileUploads <- reactive({
     list(upload_state$file1, upload_state$file2)
   })
 
-  shiny::observeEvent(listenForFileUPloads(), {
+  shiny::observeEvent(listenForFileUploads(), {
     if (is.null(input$fileUpload) && is.null(input$fileUpload2)) {
       return(NULL)
     }
diff --git a/tests/testthat/test-functions.R b/tests/testthat/test-functions.R
deleted file mode 100644
index 6ba79ca..0000000
--- a/tests/testthat/test-functions.R
+++ /dev/null
@@ -1,3 +0,0 @@
-test_that("placeholder", {
-    expect_equal(1, 1)
-})
\ No newline at end of file
diff --git a/tests/testthat/test-server.R b/tests/testthat/test-server.R
new file mode 100644
index 0000000..af1a896
--- /dev/null
+++ b/tests/testthat/test-server.R
@@ -0,0 +1,94 @@
+
+test_that("reactives and outputs update", {
+  # todo try setting data1 and data2 directly from already loaded data?
+  # the file reading doesnt seem to work in this context and idk why
+  # something like:
+  # data1$matrix <- utils::read.table("inst/extdata/mpg-cty-hwy.csv", header = TRUE, sep = '\t')
+  # data2$matrix <- utils::read.table("inst/extdata/mpg-year-cyl.csv", header = TRUE, sep = '\t')
+  # session$flushReact()
+  shiny::testServer(server, {
+    session$setInputs(fileUpload = "inst/extdata/mpg-cty-hwy.csv", 
+                      fileUpload2 = "inst/extdata/mpg-year-cyl.csv", 
+                      correlationMethod = "spearman",
+                      correlationFilter = 0,
+                      pValueFilter = 0.05)
+
+    # trying to make sure we rendered some stuff
+    #output$pValueHistogram
+    #output$correlationHistogram
+    #output$correlationMatrix
+    #output$correlationNetwork
+    #output$bipartiteNetwork
+
+    # checking reactiveValues have values
+    expect_equal(upload_state$file1, 'uploaded')
+    expect_equal(upload_state$file2, 'uploaded')
+    #expect_equal(is.null(data1$matrix), FALSE)
+    #expect_equal(is.null(data2$matrix), FALSE) 
+    #expect_equal(is.null(correlationMatrix$corr_matrix), FALSE)
+    #expect_equal(is.null(pValuesMatrix$p_values), FALSE)
+
+    # checking edgeList
+    #expect_equal(class(edgeList()$value), "numeric")
+    #expect_equal(class(edgeList()$p_value), "numeric")
+    #expect_equal(class(edgeList()$source), "character")
+    #expect_equal(class(edgeList()$target), "character")
+    #expect_equal(nrow(edgeList()) > 0, TRUE)
+    #expect_equal(all(edgeList()$source %in% colnames(data1$matrix)), TRUE)
+    #expect_equal(all(edgeList()$target %in% colnames(data2$matrix)), TRUE)
+    #expect_equal(any(edgeList()$target %in% colnames(data2$matrix)), FALSE)
+    #expect_equal(any(edgeList()$source %in% colnames(data1$matrix)), FALSE)
+
+    # checking filteredEdgeList did work
+    #expect_equal(nrow(filteredEdgeList()) < nrow(edgeList()), TRUE)
+
+    # checking bipartiteNetwork
+    #expect_equal(class(bipartiteNetworkOutput()$data), "list")
+    #expect_equal(class(bipartiteNetworkOutput()$column1NodeIds), "character")
+    #expect_equal(class(bipartiteNetworkOutput()$column2NodeIds), "character")
+
+    # reset data and check
+    #session$click("resetData")
+    #expect_equal(upload_state$file1, "reset")
+    #expect_equal(upload_state$file2, "reset")
+    #expect_equal(is.null(data1$matrix), TRUE)
+    #expect_equal(is.null(data2$matrix), TRUE)
+    #expect_equal(is.null(correlationMatrix$corr_matrix), TRUE)
+    #expect_equal(is.null(pValuesMatrix$p_values), TRUE)
+    #expect_equal(is.null(edgeList()), TRUE)
+
+    # upload single file this time
+    #session$setInputs(fileUpload = "inst/extdata/mpg-all-continuous.tsv",
+    #                  fileUpload2 = NULL,
+    #                  correlationMethod = "spearman",
+    #                  correlationFilter = 0,
+    #                  pValueFilter = 0.05)
+
+    #expect_equal(upload_state$file1, 'uploaded')
+    #expect_equal(upload_state$file2, NULL)
+    #expect_equal(is.null(data1$matrix), FALSE)
+    #expect_equal(is.null(data2$matrix), TRUE) 
+    #expect_equal(is.null(correlationMatrix$corr_matrix), FALSE)
+    #expect_equal(is.null(pValuesMatrix$p_values), FALSE)
+
+    # checking edgeList
+    #expect_equal(class(edgeList()$value), "numeric")
+    #expect_equal(class(edgeList()$p_value), "numeric")
+    #expect_equal(class(edgeList()$source), "character")
+    #expect_equal(class(edgeList()$target), "character")
+    #expect_equal(nrow(edgeList()) > 0, TRUE)
+    #expect_equal(all(edgeList()$source %in% colnames(data1$matrix)), TRUE)
+    #expect_equal(all(edgeList()$target %in% colnames(data2$matrix)), TRUE)
+    #expect_equal(any(edgeList()$target %in% colnames(data2$matrix)), FALSE)
+    #expect_equal(any(edgeList()$source %in% colnames(data1$matrix)), FALSE)
+
+    # checking filteredEdgeList did work
+    #expect_equal(nrow(filteredEdgeList()) < nrow(edgeList()), TRUE)
+
+    # checking unipartiteNetwork
+    #expect_equal(class(unipartiteNetworkOutput()$data), "list")
+    #expect_equal(class(unipartiteNetworkOutput()$column1NodeIds), "character")
+    #expect_equal(class(unipartiteNetworkOutput()$column2NodeIds), "character")
+
+  })
+})
\ No newline at end of file