tests/testthat/test-S3-3-file_manipulation.R

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

# Setup -------------------------------------------------------------------
s3 <- S3$new(verbose = FALSE)


# File manipulation -------------------------------------------------------
test_that("file_copy copies a file from local to S3", {
    fs::file_create(local_file)
    expect_type(s3$file_copy(local_file, remote_dir, overwrite = TRUE), "character")
})

test_that("file_copy copies a file from S3 to local", {
    fs::file_delete(local_file)
    expect_type(s3$file_copy(remote_file, local_dir, overwrite = TRUE), "character")
})

test_that("file_copy fails to copy a file from S3 to S3", {
    non_existing_local_file <- fs::path(local_dir, "file452047e24959.csv")
    non_existing_remote_file <- s3$path(remote_dir, "file452047e24959.csv")
    expect_error(s3$file_copy(remote_file, remote_dir, overwrite = FALSE))
    expect_error(s3$file_copy(non_existing_local_file, remote_dir, overwrite = FALSE))
    expect_error(s3$file_copy(non_existing_remote_file, local_dir, overwrite = FALSE))
})

test_that("file_exists finds a remote file", {
    fs::file_create(local_file)
    expect_type(s3$file_copy(local_file, remote_dir, overwrite = TRUE), "character")
    fs::file_delete(local_file)

    existing_remote_file <- s3$path(remote_dir, basename(local_file))
    nonexisting_remote_file <- s3$path(remote_dir, "narnia.csv")

    expect_true(s3$file_exists(existing_remote_file))
    expect_false(s3$file_exists(nonexisting_remote_file))
})

test_that("file_info returns file metedata", {
    fs::file_create(local_file)
    expect_type(s3$file_copy(local_file, remote_dir, overwrite = TRUE), "character")
    fs::file_delete(local_file)

    existing_remote_file <- s3$path(remote_dir, basename(local_file))
    nonexisting_remote_file <- s3$path(remote_dir, "narnia.csv")

    expect_s3_class(s3$file_info(existing_remote_file), "data.frame")
    expect_s3_class(s3$file_info(nonexisting_remote_file), "data.frame")
})

test_that("file_size returns file size", {
    expect_s3_class(s3$file_size(remote_file), "fs_bytes")
})

test_that("file_delete deletes a file from S3", {
    fs::file_create(local_file)
    remote_file <- s3$path(remote_dir, basename(local_file))

    expect_type(s3$file_copy(local_file, remote_dir, overwrite = TRUE), "character")
    expect_s3_class(s3$file_delete(remote_file), "FileSystemModule")
    expect_error(s3$file_delete(remote_file), "no such file or directory")
})

test_that("file_move moves a file", {
    fs::file_create(local_file)
    path <- s3$path(remote_dir, basename(local_file))
    new_path <- s3$path(remote_dir, "recycle-bin", basename(local_file))
    on.exit(s3$file_delete(new_path))
    expect_no_error(s3$file_copy(local_file, remote_dir, overwrite = TRUE))

    expect_true(s3$file_exists(path))
    expect_false(s3$file_exists(new_path))

    expect_s3_class(s3$file_move(path, new_path), "FileSystemModule")

    expect_false(s3$file_exists(path))
    expect_true(s3$file_exists(new_path))
})