github/shiny
1
1
Fork 0
mirror of https://github.com/rstudio/shiny.git synced 2026-01-11 07:58:11 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix bookmark values tests

Browse Source
This commit is contained in:
Winston Chang
2016-07-29 16:07:18 -05:00
parent 54bd3d480f
commit a2b761094b
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
tests/testthat/test-bookmarking.R
View File

@@ -4,32 +4,32 @@ test_that("Inputs and values in query string", {
# Normal format
vals <- RestoreContext$new("?_inputs_&a=1&b=2&_values_&x=3")$asList()
expect_identical(vals$input, list(a=1L, b=2L))
expect_identical(vals$values, list(x=3L))
expect_identical(as.list(vals$values), list(x=3L))
# No leading '?', trailing '&', and values before inputs
vals <- RestoreContext$new("_values_&x=3&_inputs_&a=1&b=2&")$asList()
expect_identical(vals$input, list(a=1L, b=2L))
expect_identical(vals$values, list(x=3L))
expect_identical(as.list(vals$values), list(x=3L))
# Just inputs, no values, and leading '&'
vals <- RestoreContext$new("&_inputs_&a=1&b=2")$asList()
expect_identical(vals$input, list(a=1L, b=2L))
expect_identical(vals$values, list())
expect_identical(as.list(vals$values), list())
# No inputs, just values
vals <- RestoreContext$new("?_values_&x=3")$asList()
expect_identical(vals$input, list())
expect_identical(vals$values, list(x=3L))
expect_identical(as.list(vals$values), list(x=3L))
# Empty query string
vals <- RestoreContext$new("")$asList()
expect_identical(vals$input, list())
expect_identical(vals$values, list())
expect_identical(as.list(vals$values), list())
# Other items (not inputs and not values)
vals <- RestoreContext$new("?c=3&d=4")$asList()
expect_identical(vals$input, list())
expect_identical(vals$values, list())
expect_identical(as.list(vals$values), list())
# Multiple instances of _inputs_ or _values_
expect_warning(suppressMessages(RestoreContext$new("?_inputs_&a=1&_inputs_")))
@@ -43,12 +43,12 @@ test_that("Inputs and values in query string", {
# blank values.
expect_warning(suppressMessages(rc <- RestoreContext$new("?_inputs_&a=[x&b=1")))
expect_identical(rc$input$asList(), list())
expect_identical(rc$values, list())
expect_identical(as.list(rc$values), list())
expect_identical(rc$dir, NULL)
# Ignore query string if it's a subapp
rc <- RestoreContext$new("?w=&__subapp__=1")
expect_identical(rc$input$asList(), list())
expect_identical(rc$values, list())
expect_identical(as.list(rc$values), list())
expect_identical(rc$dir, NULL)
})