Fix test of output proportions

kurtawirth · Jun 5, 2019 · 79f5fd5 · 79f5fd5
1 parent 110eaaa
commit 79f5fd5
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 10 deletions.
diff --git a/tests/testthat/test.expectednumbers.R b/tests/testthat/test.expectednumbers.R
diff --git a/tests/testthat/test_validoutput.R b/tests/testthat/test_validoutput.R
@@ -0,0 +1,13 @@
+context("ValidProportions")
+library(botscan)
+
+example <- botscan("#rstats")
+
+test_that("proportions calculated are between 0 and 1, inclusive", 
+          {
+            expect_lte(example$prop_user_level_bots, 1)
+            expect_gte(example$prop_user_level_bots, 0)
+            expect_lte(example$prop_convo_level_bots, 1)
+            expect_gte(example$prop_convo_level_bots, 0)
+            }
+          )