Adding testthat functions

tests/testthat/test-CoNGAfy.R

@@ -0,0 +1,20 @@
+# test script for CoNGAfy.R - testcases are NOT comprehensive!
+
+test_that("CoNGAfy works", {
+
+  data("ibex_example")
+
+
+  conga_reduction <- CoNGAfy(ibex_example)
+
+  expect_equal(
+    conga_reduction@meta.data,
+    getdata("CoNGAfy", "CoNGAfy_meta.data")
+  )
+
+  expect_equal(
+    conga_reduction@assays$RNA@layers$counts,
+    getdata("CoNGAfy", "CoNGAfy_counts"),
+    tolerance=1e-2
+  )
+})

tests/testthat/test-quietBCRgenes.R

@@ -0,0 +1,24 @@
+# test script for quietBCRgenes.R - testcases are NOT comprehensive!
+
+test_that("quietBCRgenes works", {
+
+  data("ibex_example")
+
+  features <- rownames(ibex_example@assays$RNA$counts)
+
+  expect_equal(
+    quietBCRgenes(features),
+    getdata("quietBCRgenes", "quietBCRgenes_feature.vector")
+  )
+
+  ibex_example@assays$RNA@var.features <- features
+  Seurat::DefaultAssay(ibex_example) <- "RNA"
+
+  ibex_example <- quietBCRgenes(ibex_example)
+
+
+  expect_equal(
+    quietBCRgenes(features),
+    ibex_example@assays$RNA@var.features
+  )
+})