tests/testthat/test_move_inventory.r

In milumtextiles/itemsim: Simulate Linen Rental

context("move_inventory")

test_that("move inventory adds movement", {
    create_time <- lubridate::parse_date_time("2016-01-01", "ymd")
    tag_percent <- .05

    state <- inialize_state()
    state <- add_inventory(state, 1, 50, create_time, tag_percent)


    state <- move_inventory(state, invoice(1, 25), 1, 2, create_time)
    expect_equal(nrow(state[["movement"]]), 75)
    expect_true(all(state[[c("movement", "clean")]]))
})

test_that("move inventory can change clean status", {
    create_time <- lubridate::parse_date_time("2016-01-01", "ymd")
    tag_percent <- .05

    state <- inialize_state()
    state <- add_inventory(state, 1, 50, create_time, tag_percent)

    state <- move_inventory(state, invoice(1, 25), 1, 1, create_time,
                            change_status = FALSE)
    expect_equal(nrow(state[["movement"]]), 75)
    expect_false(all(state[[c("movement", "clean")]]))
})

test_that("can't move inventory that doesn't exist", {
    create_time <- lubridate::parse_date_time("2016-01-01", "ymd")
    tag_percent <- .05

    state <- inialize_state()
    expect_error(move_inventory(state, invoice(1, 25), 1, 1, create_time,
                                change_status = FALSE))
})