be even more tolerant of rounding error

agoldst · agoldst · commit 2f27dc722d73 · 2016-06-15T13:20:51.000-04:00
in "proper" browser export
diff --git a/tests/testthat/test-browser_export.R b/tests/testthat/test-browser_export.R
@@ -292,8 +292,8 @@ test_that("proper doc-topics actually are", {
     expect_equal(Matrix(round(dt_prop, dg), sparse=TRUE), dtm,
         info="check that input and output matrices match"
     )
-    expect_equal(rowSums(dtm), rep(1, nrow(dtm)), tolerance=10^-dg,
-        info="check that matrix actually is proper"
+    expect_equal(rowSums(dtm), rep(1, nrow(dtm)), tolerance=10^-(dg - 1),
+        info="check that matrix is actually approximately proper"
     )
 
     clear_files(out_files_non_zip)

Original file line number	Diff line number	Diff line change
`@@ -292,8 +292,8 @@ test_that("proper doc-topics actually are", {`
`292`	`292`	`expect_equal(Matrix(round(dt_prop, dg), sparse=TRUE), dtm,`
`293`	`293`	`info="check that input and output matrices match"`
`294`	`294`	`)`
`295`		`- expect_equal(rowSums(dtm), rep(1, nrow(dtm)), tolerance=10^-dg,`
`296`		`- info="check that matrix actually is proper"`
	`295`	`+ expect_equal(rowSums(dtm), rep(1, nrow(dtm)), tolerance=10^-(dg - 1),`
	`296`	`+ info="check that matrix is actually approximately proper"`
`297`	`297`	`)`
`298`	`298`
`299`	`299`	`clear_files(out_files_non_zip)`