test_that("function errors when mount information is not a list type", {
  expect_error(validate_k8s_mount(1))
})

test_that("function returns FALSE when the input argument is NULL", {
  expect_equal(validate_k8s_mount(NULL), FALSE)
})

test_that("function returns FALSE when the input argument is an empty string", {
  expect_equal(validate_k8s_mount(''), FALSE)
})

test_that("function errors when the input list does not have required named values", {
  expect_error(validate_k8s_mount(list(volumes=list(list(name='mount0')))))
})

test_that("function errors when mount names in volumes and volumeMounts differ", {
  mount_info <- list(volumes=list(list(name='mount0')),
                     volumeMounts=list(list(name='mount1')))
  expect_error(validate_k8s_mount(mount_info))
})

test_that("Mount names in volumes and volumeMounts should be the same", {
  mount_info <- list(volumes=list(list(name='mount0')),
                     volumeMounts=list(list(name='mount0')))
  expect_equal(validate_k8s_mount(mount_info), TRUE)
})

test_that("function errors when length of volumes and volumeMounts differ", {
  mount_info <- list(volumes=list(list(name='mount0'), list(name='mount1')),
                     volumeMounts=list(list(name='mount0')))
  expect_error(validate_k8s_mount(mount_info))
})