tests/testthat/test_update_zenodo.R

In inbo/protocolshelper: Helper Functions to Manage Protocols

test_that(
  "Update zenodo works", {
    jsontxt <- '{
    "title": "",
    "description": "",
    "license": "cc-by",
    "upload_type": "other",
    "access_right": "open",
    "creators": [
        {
            "name": "Van Calster, Hans",
            "affiliation": "Research Institute for Nature and Forest",
            "orcid": "0000-0001-8595-8426"
        },
        {
            "name": "De Bie, Els",
            "affiliation": "Research Institute for Nature and Forest",
            "orcid": "0000-0001-7679-743X"
        },
        {
            "name": "Onkelinx, Thierry",
            "affiliation": "Research Institute for Nature and Forest",
            "orcid": "0000-0001-8804-4216"
        },
        {
            "name": "Vanderhaeghe, Floris",
            "affiliation": "Research Institute for Nature and Forest",
            "orcid": "0000-0002-6378-6229"
        }
    ],
    "keywords": [
        "open protocol",
        "open science",
        "research institute",
        "nature",
        "forest",
        "environment",
        "markdown",
        "Flanders",
        "Belgium"
        ]
}'
    jsonresult1 <- '{
    "title": "",
    "description": "",
    "license": "cc-by",
    "upload_type": "other",
    "access_right": "open",
    "creators": [
        {
            "name": "Van Calster, Hans",
            "affiliation": "Research Institute for Nature and Forest",
            "orcid": "0000-0001-8595-8426"
        },
        {
            "name": "De Bie, Els",
            "affiliation": "Research Institute for Nature and Forest",
            "orcid": "0000-0001-7679-743X"
        },
        {
            "name": "Onkelinx, Thierry",
            "affiliation": "Research Institute for Nature and Forest",
            "orcid": "0000-0001-8804-4216"
        },
        {
            "name": "Vanderhaeghe, Floris",
            "affiliation": "Research Institute for Nature and Forest",
            "orcid": "0000-0002-6378-6229"
        }
    ],
    "keywords": [
        "open protocol",
        "open science",
        "research institute",
        "nature",
        "forest",
        "environment",
        "markdown",
        "Flanders",
        "Belgium"
    ],
    "contributors": [
        {
            "name": "Someone, Else",
            "affiliation": "Research Institute for Nature and Forest",
            "type": "Researcher",
            "orcid": "0000-0001-2345-6789"
        }
    ]
}'


    if (!requireNamespace("gert", quietly = TRUE)) {
      stop("please install 'gert' package for these tests to work")
    }

    origin_repo <- gert::git_init(tempfile("protocol_origin"), bare = TRUE)
    on.exit(unlink(origin_repo, recursive = TRUE), add = TRUE)
    repo <- gert::git_clone(url = origin_repo,
                            path = tempfile("protocol_local"), verbose = FALSE)
    on.exit(unlink(repo, recursive = TRUE), add = TRUE)
    old_wd <- setwd(repo)
    on.exit(setwd(old_wd), add = TRUE)

    gert::git_config_set(name = "user.name", value = "someone", repo = repo)
    gert::git_config_set(name = "user.email", value = "someone@example.org",
                         repo = repo)
    file.create("NEWS.md")
    gert::git_add("NEWS.md")
    gert::git_commit_all(message = "add empty NEWS repo file")
    branch_info <- gert::git_branch_list(repo = repo)
    refspec <- branch_info$ref[
      branch_info$name == gert::git_branch(repo = repo)]
    gert::git_push(remote = "origin",
                   refspec =  refspec,
                   set_upstream = TRUE,
                   repo = repo)

    branch_info <- gert::git_branch_list(repo = repo)
    main_branch <- ifelse(any(branch_info$name == "origin/main"),
                          "main",
                          ifelse(any(branch_info$name == "origin/master"),
                                         "master", "unknown"))


    # create a protocol
    version_number <- "2021.02"
    protocolhelper::create_sfp(
      title = "Test 1", subtitle = "subtitle", short_title = "water 2",
      authors = c("Someone, Else"),
      orcids = c("0000-0001-2345-6789"),
      reviewers = "me", file_manager = "who?",
      version_number = version_number, theme = "water", language = "en"
    )
    # add, commit and tag it
    sfp_staged <- gert::git_add(files = ".")
    gert::git_commit_all(message = "sfp-102-en_water-1")
    specific_tag <- paste("sfp-102-en", version_number, sep = "-")
    generic_tag <- paste("protocols", version_number, sep = "-")
    gert::git_tag_create(name = specific_tag, message = "bla")
    gert::git_tag_create(name = generic_tag, message = "bla")

    # new authors added
    testobject <- protocolhelper:::update_zenodo(jsontxt, write = FALSE)
    expectedobject <- jsonlite::fromJSON(jsonresult1, simplifyVector = FALSE)
    expectedobject <- jsonlite::toJSON(expectedobject,
                                       pretty = TRUE,
                                       auto_unbox = TRUE)

    testthat::expect_equal(
      object = testobject,
      expected = expectedobject
    )
})