| commit | 6a6bdf12f5f25f82c8efcd045da5c598bcf4575e | [log] [tgz] |
|---|---|---|
| author | Marc Kupietz <kupietz@ids-mannheim.de> | Tue Dec 10 18:08:28 2024 +0100 |
| committer | Marc Kupietz <kupietz@ids-mannheim.de> | Tue Dec 10 18:08:28 2024 +0100 |
| tree | 8f4072110cae490c5b8e04fd9ba210f0249b392f | |
| parent | b239c9f7363ce4a1f09ba93cd9478ee5d99598fa [diff] [blame] |
Add corpusSize function Resolves #2 This is a bit of a hack, but it does work with old derekovecs servers. Change-Id: I1c8f81c7341f0df71012f5991bde5edfc83dc2b0
diff --git a/tests/testthat/test-derekovecs.R b/tests/testthat/test-derekovecs.R index 7fd4980..d007f4e 100644 --- a/tests/testthat/test-derekovecs.R +++ b/tests/testthat/test-derekovecs.R
@@ -38,3 +38,7 @@ expect_true(freq %>% is.numeric & freq > 0) }) +test_that("corpusSize works", { + size <- corpusSize() + expect_true(size %>% is.numeric & size > 1000) +})