tests/testthat/test_check_rules.R

In bupaverse/processcheckR: Rule-Based Conformance Checking of Business Process Event Data

#### eventlog ####

test_that("test check_rules on eventlog with multiple rules", {

  load("./testdata/patients.rda")

  check <- patients %>%
    check_rules(start = starts(activity = "check-in"),
                end = ends(activity = "check-out"))

  expect_s3_class(check, "eventlog")

  expect_equal(dim(check), c(nrow(patients), ncol(patients) + 2))
  expect_equal(colnames(check), c(colnames(patients), "start", "end"))

  # Only George Doe doesn't start with "check-in" and end with "check-out".
  expect_true(all(check[check$patient != "George Doe",]$start))
  expect_true(all(check[check$patient != "George Doe",]$end))
  expect_equal(check[check$patient == "George Doe",]$start, FALSE)
  expect_equal(check[check$patient == "George Doe",]$end, FALSE)
})

test_that("test check_rules on eventlog with 1 rules", {

  load("./testdata/patients.rda")

  check <- patients %>%
    check_rules(start = starts(activity = "check-in"))

  expect_s3_class(check, "eventlog")

  expect_equal(dim(check), c(nrow(patients), ncol(patients) + 1))
  expect_equal(colnames(check), c(colnames(patients), "start"))

  # Only George Doe doesn't start with "check-in".
  expect_true(all(check[check$patient != "George Doe",]$start))
  expect_equal(check[check$patient == "George Doe",]$start, FALSE)
})

test_that("test check_rules on eventlog with multiple rules with the same name", {

  load("./testdata/patients.rda")

  w <- capture_warnings(
    check <- patients %>%
      check_rules(r = starts(activity = "check-in"),
                  r = ends(activity = "check-out")))

  expect_match(w, "*Some rules have duplicate labels and will be overwritten*", all = FALSE)
  expect_match(w, "*Column names already contain label*", all = FALSE)

  expect_s3_class(check, "eventlog")

  expect_equal(dim(check), c(nrow(patients), ncol(patients) + 1))
  expect_equal(colnames(check), c(colnames(patients), "r"))

  # Only George Doe doesn't end with "check-out".
  expect_true(all(check[check$patient != "George Doe",]$r))
  expect_equal(check[check$patient == "George Doe",]$r, FALSE)
})

test_that("test check_rules on grouped_eventlog", {

  load("./testdata/patients_grouped_resource.rda")

  check <- patients_grouped_resource %>%
    check_rules(start = starts(activity = "check-in"),
                end = ends(activity = "check-out"))

  expect_s3_class(check, "grouped_eventlog")

  expect_equal(dim(check), c(nrow(patients_grouped_resource), ncol(patients_grouped_resource) + 2))
  expect_equal(colnames(check), c(colnames(patients_grouped_resource), "start", "end"))
  expect_equal(groups(check), groups(patients_grouped_resource))

  # Only George Doe doesn't start with "check-in" and end with "check-out".
  expect_true(all(check[check$patient != "George Doe",]$start))
  expect_true(all(check[check$patient != "George Doe",]$end))
  expect_equal(check[check$patient == "George Doe",]$start, FALSE)
  expect_equal(check[check$patient == "George Doe",]$end, FALSE)
})


#### activitylog ####

test_that("test check_rules on activitylog with multiple rules", {

  load("./testdata/patients_act.rda")

  check <- patients_act %>%
    check_rules(start_check_in = starts(activity = "check-in"),
                end_check_out = ends(activity = "check-out"))

  expect_s3_class(check, "activitylog")

  expect_equal(dim(check), c(nrow(patients_act), ncol(patients_act) + 2))
  expect_true(compare::compareIgnoreOrder(colnames(check), c(colnames(patients_act), "start_check_in", "end_check_out"))$result)

  # Only George Doe doesn't start with "check-in" and end with "check-out".
  expect_true(all(check[check$patient != "George Doe",]$start_check_in))
  expect_true(all(check[check$patient != "George Doe",]$end_check_out))
  expect_equal(check[check$patient == "George Doe",]$start_check_in, FALSE)
  expect_equal(check[check$patient == "George Doe",]$end_check_out, FALSE)
})

test_that("test check_rules on grouped_activitylog", {

  load("./testdata/patients_act_grouped_resource.rda")

  check <- patients_act_grouped_resource %>%
    check_rules(start_check_in = starts(activity = "check-in"),
                end_check_out = ends(activity = "check-out"))

  expect_s3_class(check, "grouped_activitylog")

  expect_equal(dim(check), c(nrow(patients_act_grouped_resource), ncol(patients_act_grouped_resource) + 2))
  expect_true(compare::compareIgnoreOrder(colnames(check), c(colnames(patients_act_grouped_resource), "start_check_in", "end_check_out"))$result)
  expect_equal(groups(check), groups(patients_act_grouped_resource))

  # Only George Doe doesn't start with "check-in" and end with "check-out".
  expect_true(all(check[check$patient != "George Doe",]$start_check_in))
  expect_true(all(check[check$patient != "George Doe",]$end_check_out))
  expect_equal(check[check$patient == "George Doe",]$start_check_in, FALSE)
  expect_equal(check[check$patient == "George Doe",]$end_check_out, FALSE)
})