plate[["fluostar_plot"]] has type 'object', not 'list'.

## normfluodbf - R package that Cleans and Normalizes FLUOstar DBF and DAT Files
test_that("test normfluodbf filled wells plot", {
lipsum_214 <- system.file("extdata", "dat_1.dat", package = "normfluodbf")
upload_data(file = lipsum_214, tnp = 3, cycles = 40, rows_used = c('A','B','C'), norm_scale = 'raw') %>%
plot(whichplot = 1, legend_labels = c('beef_jerky','fatnose','yourmamasofat','youweird'))
#   lipsum_214 <- system.file("extdata", "dat_1.dat", package = "normfluodbf")
#     upload_data(file = lipsum_214, tnp = 3, cycles = 40, rows_used = c('A','B','C'), norm_scale = 'raw') %>%
#     plot(whichplot = 4, legend_labels = c('test', 'negative', 'positive'))
#   expect_true(inherits(plate$sbs_plot, c("ggplot", "gg", "ggplot2::ggplot")))
# test_that("test Plot Layout for subsetted wells -- match whichplot = 3 with subsetting for the layout", {

as.list(plt.obj) has length 12, not length 11.