test_that("Create a Mutator Function", {
  mutator <- createMutator(function(x, y) x + y)
  var <- 5
  mutator(var, 3)
  expect_equal(var, 8)
})