Update test_ehr_simulation.R

rOpenHealth · Jan 5, 2017 · 477d79e · 477d79e
1 parent 6af519b
commit 477d79e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test_ehr_simulation.R b/tests/testthat/test_ehr_simulation.R
@@ -20,7 +20,7 @@ test_that("Patient table is sane", {
     expect_is(patient$tod, "Date")
     expect_is(patient$deathdate, "Date")
     expect_true(all(patient$yob >= as.integer(format(as.Date(ehr_def$start_date), format = "%y")) - 1800))
-    expect_more_than(sum(patient[,names(ehr_def$patient$comorbidity$codes)]), 0)
+    expect_gt(sum(patient[,names(ehr_def$patient$comorbidity$codes)]), 0)
     expect_equal(length(unique(patient$patid)), nrow(patient))
 })