diff options
author | felixcheung <felixcheung_m@hotmail.com> | 2015-11-09 10:26:09 -0800 |
---|---|---|
committer | Shivaram Venkataraman <shivaram@cs.berkeley.edu> | 2015-11-09 10:26:09 -0800 |
commit | cd174882a5a211298d6e173fe989d567d08ebc0d (patch) | |
tree | 65224fb26b253a6fad8f064a299817a19359d4c1 /R/pkg/inst/tests/test_sparkSQL.R | |
parent | 404a28f4edd09cf17361dcbd770e4cafde51bf6d (diff) | |
download | spark-cd174882a5a211298d6e173fe989d567d08ebc0d.tar.gz spark-cd174882a5a211298d6e173fe989d567d08ebc0d.tar.bz2 spark-cd174882a5a211298d6e173fe989d567d08ebc0d.zip |
[SPARK-9865][SPARKR] Flaky SparkR test: test_sparkSQL.R: sample on a DataFrame
Make sample test less flaky by setting the seed
Tested with
```
repeat { if (count(sample(df, FALSE, 0.1)) == 3) { break } }
```
Author: felixcheung <felixcheung_m@hotmail.com>
Closes #9549 from felixcheung/rsample.
Diffstat (limited to 'R/pkg/inst/tests/test_sparkSQL.R')
-rw-r--r-- | R/pkg/inst/tests/test_sparkSQL.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/pkg/inst/tests/test_sparkSQL.R b/R/pkg/inst/tests/test_sparkSQL.R index 92cff1fba7..fbdb9a8f1e 100644 --- a/R/pkg/inst/tests/test_sparkSQL.R +++ b/R/pkg/inst/tests/test_sparkSQL.R @@ -647,11 +647,11 @@ test_that("sample on a DataFrame", { sampled <- sample(df, FALSE, 1.0) expect_equal(nrow(collect(sampled)), count(df)) expect_is(sampled, "DataFrame") - sampled2 <- sample(df, FALSE, 0.1) + sampled2 <- sample(df, FALSE, 0.1, 0) # set seed for predictable result expect_true(count(sampled2) < 3) # Also test sample_frac - sampled3 <- sample_frac(df, FALSE, 0.1) + sampled3 <- sample_frac(df, FALSE, 0.1, 0) # set seed for predictable result expect_true(count(sampled3) < 3) }) |