tests/testthat/test-track.ls.R

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

load_test_db()


test_that("emr_track.ls works", {
    expect_equal(
        emr_track.ls(),
        c(
            "patients.dob", "ph1", "physical_track_subset_15", "stam1", "track0", "track0_sparse", "track1",
            "track1_sparse", "track2", "track2_sparse", "track3", "track4",
            "track4_sparse", "track5", "track5_sparse", "track6", "track7",
            "track7_sparse", "track8", "track8_sparse"
        )
    )
})

test_that("emr_track.ls works with regex", {
    expect_equal(
        emr_track.ls("*sparse"),
        c(
            "track0_sparse", "track1_sparse", "track2_sparse", "track4_sparse",
            "track5_sparse", "track7_sparse", "track8_sparse"
        )
    )
})

test_that("emr_track.global.ls works", {
    expect_equal(
        emr_track.global.ls(),
        c(
            "patients.dob", "ph1", "physical_track_subset_15", "stam1", "track0", "track0_sparse", "track1",
            "track1_sparse", "track2", "track2_sparse", "track3", "track4",
            "track4_sparse", "track5", "track5_sparse", "track6", "track7",
            "track7_sparse", "track8", "track8_sparse"
        )
    )
})

test_that("emr_track.user.ls works", {
    expect_equal(
        emr_track.user.ls(),
        character(0)
    )
})

test_that("emr_track.ls responds to creation and deletion", {
    emr_track.rm("test_track1", TRUE)
    emr_track.create("test_track1", "user", FALSE, "track0+2", keepref = FALSE)
    expect_true("test_track1" %in% emr_track.ls())
    emr_track.rm("test_track1", TRUE)
    expect_false("test_track1" %in% emr_track.ls())
})

test_that("emr_track.ls responds deletion of multiple tracks", {
    emr_track.rm("test_track1", TRUE)
    emr_track.rm("test_track2", TRUE)
    emr_track.create("test_track1", "user", FALSE, "track0+2", keepref = FALSE)
    emr_track.create("test_track2", "user", FALSE, "track0+2", keepref = FALSE)
    expect_true("test_track1" %in% emr_track.ls())
    expect_true("test_track2" %in% emr_track.ls())
    emr_track.rm(c("test_track1", "test_track2"), TRUE)
    expect_false("test_track1" %in% emr_track.ls())
    expect_false("test_track2" %in% emr_track.ls())
})