tests/testthat/test-S3-2-path_manipulation.R

In tidylab/S3: Amazon S3 File System Operations Based on 'libuv'

# Path manipulation -------------------------------------------------------
test_that("path constructs S3 paths", {
    s3 <- S3$new(verbose = FALSE)
    expect_identical(
        s3$path(remote_dir, "sub-folder-name", "file-name.csv"),
        paste0(remote_dir, "sub-folder-name/file-name.csv")
    )
})