Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Service SAS #90

Merged
merged 8 commits into from
May 9, 2021
Merged

Service SAS #90

Changes from 1 commit
Commits
Show all changes
8 commits
Select commit Hold shift + click to select a range
509aba2
implement service sas
hongooi73 May 9, 2021
62674b3
fix doc
hongooi73 May 9, 2021
9a29ef6
add R6 method, redoc
hongooi73 May 9, 2021
b168b1a
cleanup news
hongooi73 May 9, 2021
8ced1b9
fix example
hongooi73 May 9, 2021
b38452b
testing 1
hongooi73 May 9, 2021
fb19f22
testing 2
hongooi73 May 9, 2021
7115992
rm cruft
hongooi73 May 9, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
testing 2
  • Loading branch information
@hongooi73
hongooi73 committed May 9, 2021
commit fb19f226836b9b606b7a101bd46f8ec88dc27025
16 changes: 16 additions & 0 deletions tests/testthat/test10a_service_sas.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -58,6 +58,22 @@ test_that("Service SAS works 1",
})


test_that("Service SAS works 2",
{
contname <- make_name()

bsas <- get_service_sas(bl0, resource=contname, permissions="rcwl", resource_type="c")
bl <- stor$get_blob_endpoint(key=NULL, sas=bsas)
expect_silent(cont <- create_storage_container(bl0, contname))
expect_silent(storage_upload(cont, "../resources/iris.csv"))

fsas <- get_service_sas(fl0, resource=contname, permissions="rcwl", resource_type="s")
fl <- stor$get_file_endpoint(key=NULL, sas=fsas)
expect_silent(share <- create_storage_container(fl0, contname))
expect_silent(storage_upload(share, "../resources/iris.csv"))
})


teardown({
bl <- stor$get_blob_endpoint()
blconts <- list_storage_containers(bl)
Expand Down