tests/testthat/test_customers.r

In milumtextiles/itemsim: Simulate Linen Rental

context("customers")

test_that("Can add customers", {
    create_time <- lubridate::parse_date_time("2016-01-01", "ymd")


    state <- inialize_state()
    num_default_locations <- nrow(state[["locations"]])

    # Add a customer
    state <- start_customer(state, create_time)

    expect_equal(nrow(state[["locations"]]), num_default_locations + 1)
})

test_that("Can add customers", {
    create_time <- lubridate::parse_date_time("2016-01-01", "ymd")


    state <- inialize_state()
    num_default_locations <- nrow(state[["locations"]])

    # Add a customer
    state <- start_customer(state, create_time)

    expect_equal(nrow(state[["locations"]]), num_default_locations + 1)
})