From ab6602a154babe9398b2d65823286fdffbf980c8 Mon Sep 17 00:00:00 2001
From: Spencer Pease <spease@uw.edu>
Date: Tue, 8 Sep 2020 11:33:57 -0700
Subject: [PATCH] test: add macb tests

references #60, #19
---
 tests/testthat/test-mcab.R | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 tests/testthat/test-mcab.R

diff --git a/tests/testthat/test-mcab.R b/tests/testthat/test-mcab.R
new file mode 100644
index 0000000..d4f45f9
--- /dev/null
+++ b/tests/testthat/test-mcab.R
@@ -0,0 +1,23 @@
+test_that("MACB works", {
+
+  asfr_data <- data.table(
+    asfr = c(.051, .196, .208, .147, .075, .024, .004),
+    age_start = seq(15, 45, 5),
+    age_end = seq(20, 50, 5)
+  )
+
+  asfr_data2 <- data.table(
+    nfx = c(.2, .2),
+    age_start = c(20, 25),
+    age_end = c(25, 30)
+  )
+
+  id_cols <- c("age_start", "age_end")
+
+  macb_dt <- macb_from_nfx(asfr_data, id_cols = id_cols, nfx_col = "asfr")
+  macb_dt2 <- macb_from_nfx(asfr_data2, id_cols = id_cols)
+
+  testthat::expect_equal(macb_dt$macb, 28.11702, tolerance = 1e-5)
+  testthat::expect_equal(macb_dt2$macb, 25)
+
+})