refactor script and add tests

1 files changed, 28 insertions, 0 deletions

diff --git a/gn3/computations/test_biweight.R b/gn3/computations/test_biweight.R
new file mode 100644
index 0000000..149c8b6
--- /dev/null
+++ b/gn3/computations/test_biweight.R
@@ -0,0 +1,28 @@
+library(testthat)
+source("./biweight.R", chdir = TRUE)
+
+test_that("sum of vector", {
+  results <- sum(c(1,2))
+  expect_equal(results, 3)
+})
+
+
+
+test
+
+test_that("biweight results"),{
+	vec_1 = c(1,2,3,4)
+	vec_2 = c(1,2,3,4)
+
+	results = BiweightMidCorrelation(vec_1,vec_2)
+	expect_equal(c(1.0,0.0),results)
+}
+
+
+test_that("parsing args "),{
+	my_args = c("1 2 3 4","5 6 7 8")
+	results <- ParseArgs(my_args)
+
+	expect_equal(results[1],c(1,2,3,4))
+	expect_equal(results[2],c(5,6,7,8))
+}
\ No newline at end of file