test_that("searchReplace", {
  model <- readModelDb("PK_1cmt")
  expect_equal(
    functionBody(
      searchReplace(model, find = "lka", replace = "lka + etalka")
    )[[4]][[2]][[2]],
    str2lang("ka <- exp(lka + etalka)")
  )
})

test_that(".replaceMult will keep -kel*central", {
  expect_equal(.replaceMult(list(str2lang("d/dt(central) <- -kel * central")), "Ek", "Cc", "Emax*Cc/(Cc+EC50)"),
               list(str2lang("d/dt(central) <- -kel * central")))
})