mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-07 21:26:08 -05:00
12 lines
355 B
R
12 lines
355 B
R
context("get-extension")
|
||
|
||
test_that("Valid extensions are preserved", {
|
||
expect_equal(maybeGetExtension("report.csv"), ".csv")
|
||
expect_equal(maybeGetExtension("data.tar.bz2"), ".bz2")
|
||
})
|
||
|
||
test_that("Invalid extensions are discarded", {
|
||
expect_equal(maybeGetExtension("report. ℒ 裸 邏 ℓo "), "")
|
||
expect_equal(maybeGetExtension("data"), "")
|
||
})
|