tests/testthat/test-constraint-alternate-response.R

In RainMad/constraints-based-miner: An implementation of a Constraints Based Miner

library(testthat)
library(shinytest)
library(dplyr)

context("test constraint 'alternate response'")

test_that("Constratint 'alternate response' works", {
  
  activity1 = "A"
  activity2 = "B"
  
  result <- alternate_response(eventlog, activity1, activity2)
  
  expect_true(filter_result(result, Trace1))
  expect_false(filter_result(result, Trace2))
  expect_true(filter_result(result, Trace3))
  expect_false(filter_result(result, Trace4))
  expect_true(filter_result(result, Trace5))
  expect_true(filter_result(result, Trace6))
  expect_false(filter_result(result, Trace7))
  expect_false(filter_result(result, Trace8))
  expect_true(filter_result(result, Trace9))
  expect_false(filter_result(result, Trace10))
  expect_true(filter_result(result, Trace11))
  expect_false(filter_result(result, Trace12))
  
})