From 8b7c589619bb610736b7081cddad9c82dfceca96 Mon Sep 17 00:00:00 2001
From: Jacob Mitchell <jmitch81@jhmi.edu>
Date: Mon, 22 Jul 2024 09:21:23 -0400
Subject: [PATCH] initial test circos_shape_data

---
 tests/testthat/test-circos.R | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 tests/testthat/test-circos.R

diff --git a/tests/testthat/test-circos.R b/tests/testthat/test-circos.R
new file mode 100644
index 0000000..1bd83a0
--- /dev/null
+++ b/tests/testthat/test-circos.R
@@ -0,0 +1,10 @@
+test_that("Creating a circos plot data frame", {
+  data(PBMC)
+  arc_df <- circos_lr_shape_data(
+    dom = v0.2.1$pbmc_dom_built_tiny, 
+    receptor="CXCR3", 
+    ligand_expression_threshold = 0.01, cell_idents = NULL
+  )
+  expect_true(is(arc_df, "data.frame"))
+  
+})
\ No newline at end of file