dev/archives/test-timestamps.R

In cboettig/piggyback: Managing Larger Data on a GitHub Repository

context("timestamps")

testthat::test_that(
  "upload obeys timestamp only when newer", {
    testthat::skip_on_travis() ## No idea.
    testthat::skip_if(gh::gh_token() == "")
    testthat::skip_if(gh::gh_token() ==
                        "b2b7441daeeb010b1df26f1f60a7f1edc485e443")
    testthat::skip_if(Sys.getenv("CBOETTIG_TOKEN") == "")


    tmp <- tempdir()

    readr::write_tsv(datasets::mtcars, fs::path(tmp, "mtcars2.tsv.gz"))

    testthat::expect_silent(
      out <- pb_upload(
        file = fs::path(tmp, "mtcars2.tsv.gz"),
        repo = "cboettig/piggyback-tests",
        tag = "v0.0.1",
        overwrite = FALSE,
        show_progress = FALSE,
        dir = tmp
      )
    )
    Sys.sleep(1)
    testthat::expect_message(
      out <- pb_upload(
        file = fs::path(tmp, "mtcars2.tsv.gz"),
        repo = "cboettig/piggyback-tests",
        tag = "v0.0.1",
        overwrite = "use_timestamps",
        dir = tmp
      ),
      "more recent version of"
    )

    Sys.sleep(1)

    pb_delete(
      repo = "cboettig/piggyback-tests",
      file = "mtcars2.tsv.gz",
      tag = "v0.0.1"
    )

    unlink(fs::path(tmp, "mtcars2.tsv.gz"))
  }
)