tests/testthat/test_current_inventory.r

In milumtextiles/itemsim: Simulate Linen Rental

context("current_inventory")

test_that("current_inventory gets the latest state for a piece", {
    create_time <- lubridate::parse_date_time("2016-01-01", "ymd")
    tag_percent <- .05


    state <- inialize_state()
    state <- add_inventory(state, 1, 1, create_time, tag_percent)
    expect_equal(nrow(current_inventory(state, 1)), 1)

    state <- add_inventory(state, 1, 2, create_time, tag_percent)
    expect_equal(nrow(current_inventory(state, 1)), 3)

    state <- add_inventory(state, 2, 2, create_time, tag_percent)
    expect_equal(nrow(current_inventory(state, 1)), 5)

    expect_equal(nrow(current_inventory(state, 2)), 0)
    # TODO: move inventory in plant
    # TODO: Move inventory to customer
})