test_that("missing_wells errors when expected",{
expect_error(missing_wells(full, well = "well", plate = 1))
expect_error(missing_wells(full, well = TRUE))
expect_error(missing_wells(full, well = full$well))
expect_error(missing_wells(as.list(full), well = full$well),
expect_error(missing_wells(full, well = missing$wel)))
expect_error(missing_wells(as.matrix(full), well = full$well))
expect_error(missing_wells(fill, well = full$not_valid_col))
})
But I think you want:
test_that("missing_wells errors when expected",{
expect_error(missing_wells(full, well = "well", plate = 1))
expect_error(missing_wells(full, well = TRUE))
expect_error(missing_wells(full, well = full$well))
expect_error(missing_wells(as.list(full), well = full$well))
expect_error(missing_wells(full, well = missing$wel))
expect_error(missing_wells(as.matrix(full), well = full$well))
expect_error(missing_wells(fill, well = full$not_valid_col))
})
Because you have
But I think you want: