context('PerformPlacementSelection')
test_that('Test 1',
{
box <- Box(origin = c(0, 0, 0), length = 2, height = 1, width = 1)
ems <- EMS(origin = c(0, 0, 0), length = 1.5, height = 3, width = 2)
result <- PerformPlacementSelection(box, ems)
expected <- Box(origin = c(0, 0, 0), length = 1, height = 1, width = 2)
expect_equal(result,
expected
)
}
)
test_that('Test 2',
{
box <- Box(origin = c(0, 0, 0), length = 2, height = 1, width = 1)
ems <- EMS(origin = c(0, 0, 0), length = 1, height = 2, width = 1)
result <- PerformPlacementSelection(box, ems)
expected <- Box(origin = c(0, 0, 0), length = 1, height = 2, width = 1)
expect_equal(result,
expected
)
}
)
test_that('Test 3',
{
box <- Box(origin = c(0, 0, 0), length = 2, height = 1, width = 1)
ems <- EMS(origin = c(0, 0, 0), length = 2.5, height = 1.5, width = 1)
result <- PerformPlacementSelection(box, ems)
expected <- Box(origin = c(0, 0, 0), length = 2, height = 1, width = 1)
expect_equal(result,
expected
)
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.