tests/testthat/test-track.readonly.R

In naryn: Native Access Medical Record Retriever for High Yield Analytics

load_test_db()


test_that("user tracks are not readonly", {
    expect_false(emr_track.readonly("track0"))
})

test_that("create readonly tracks", {
    if (emr_track.exists("test_track1_ro")) {
        emr_track.readonly("test_track1_ro", FALSE)
        emr_track.rm("test_track1_ro", TRUE)
    }

    emr_track.create("test_track1_ro", "user", FALSE, "track0+2", keepref = FALSE)
    emr_track.readonly("test_track1_ro", TRUE)
    expect_true(emr_track.readonly("test_track1_ro"))

    expect_error(emr_track.rm("test_track1_ro", TRUE), "Cannot remove track test_track1_ro: it is read-only.")

    emr_track.readonly("test_track1_ro", FALSE)
    emr_track.rm("test_track1_ro", TRUE)
})

test_that("cannot remove readonly in batch mode", {
    if (emr_track.exists("test_track1_ro")) {
        emr_track.readonly("test_track1_ro", FALSE)
        emr_track.rm("test_track1_ro", TRUE)
    }

    emr_track.create("test_track1_ro", "user", FALSE, "track0+2", keepref = FALSE)
    emr_track.create("test_track2_ro", "user", FALSE, "track0+2", keepref = FALSE)
    emr_track.readonly("test_track1_ro", TRUE)
    expect_true(emr_track.readonly("test_track1_ro"))

    expect_error(emr_track.rm(c("test_track2_ro", "test_track1_ro"), TRUE), "Cannot remove track test_track1_ro: it is read-only.")

    emr_track.readonly("test_track1_ro", FALSE)
    emr_track.rm("test_track1_ro", TRUE)
    expect_error(emr_track.rm("test_track2_ro", FALSE), "Track test_track2_ro does not exist")
    emr_track.rm("test_track2_ro", TRUE)
})