diff options
| author | Felix Cheung <felixcheung_m@hotmail.com> | 2016-12-21 17:21:17 -0800 |
|---|---|---|
| committer | Felix Cheung <felixcheung@apache.org> | 2016-12-21 17:21:17 -0800 |
| commit | 7e8994ffd3d646adb0a769229637931e43cd12b0 (patch) | |
| tree | a22580feaba55d4e48ca71cf7902d9fa9e1c2d5c /R/pkg/inst/tests/testthat/test_sparkSQL.R | |
| parent | b41ec997786e2be42a8a2a182212a610d08b221b (diff) | |
| download | spark-7e8994ffd3d646adb0a769229637931e43cd12b0.tar.gz spark-7e8994ffd3d646adb0a769229637931e43cd12b0.tar.bz2 spark-7e8994ffd3d646adb0a769229637931e43cd12b0.zip | |
[SPARK-18903][SPARKR] Add API to get SparkUI URL
## What changes were proposed in this pull request?
API for SparkUI URL from SparkContext
## How was this patch tested?
manual, unit tests
Author: Felix Cheung <felixcheung_m@hotmail.com>
Closes #16367 from felixcheung/rwebui.
Diffstat (limited to 'R/pkg/inst/tests/testthat/test_sparkSQL.R')
| -rw-r--r-- | R/pkg/inst/tests/testthat/test_sparkSQL.R | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/R/pkg/inst/tests/testthat/test_sparkSQL.R b/R/pkg/inst/tests/testthat/test_sparkSQL.R index 2e95737368..4490f31cd8 100644 --- a/R/pkg/inst/tests/testthat/test_sparkSQL.R +++ b/R/pkg/inst/tests/testthat/test_sparkSQL.R @@ -2613,7 +2613,7 @@ test_that("randomSplit", { expect_true(all(sapply(abs(counts / num - weights / sum(weights)), function(e) { e < 0.05 }))) }) -test_that("Setting and getting config on SparkSession", { +test_that("Setting and getting config on SparkSession, sparkR.conf(), sparkR.uiWebUrl()", { # first, set it to a random but known value conf <- callJMethod(sparkSession, "conf") property <- paste0("spark.testing.", as.character(runif(1))) @@ -2637,6 +2637,9 @@ test_that("Setting and getting config on SparkSession", { expect_equal(appNameValue, "sparkSession test") expect_equal(testValue, value) expect_error(sparkR.conf("completely.dummy"), "Config 'completely.dummy' is not set") + + url <- sparkR.uiWebUrl() + expect_equal(substr(url, 1, 7), "http://") }) test_that("enableHiveSupport on SparkSession", { |