## Regression test: the summary of a frametoLme fit must list only the
## model's grouping levels. It listed nlme's dims$ngrps unfiltered, which
## also counts the model matrix and response ("X 1, y 1").
## Bundled data only: Prings05, Pradii03 (ringApply help route).
data(Prings05, package = "BIOdry", envir = environment())
data(Pradii03, package = "BIOdry", envir = environment())

test_that("summary and print list only plot, tree and sample", {
    dfm1 <- ringApply(Prings05, lv = 2, fn = "rtimes")
    dfm2 <- ringApply(dfm1, lv = "sample", sc.c = Pradii03, rf.t = 2003,
                      fn = "scacum")
    fit <- frametoLme(dfm2, form = "tdForm")
    expect_equal(summary(fit)$groups, c(sample = 8L, tree = 4L, plot = 2L))
    out <- capture.output(print(fit))
    i <- which(out == "Groups:")
    expect_length(i, 1L)
    printed <- strsplit(trimws(out[i + 1L]), "\\s+")[[1]]
    expect_setequal(printed, c("sample", "tree", "plot"))
    expect_false(any(c("X", "y") %in% printed))
})

test_that("modelFrame(Pchron) prints only sample, tree and plot", {
    data(Pchron, package = "BIOdry", envir = environment())
    m <- modelFrame(Pchron, to = "cm",
                    MoreArgs = list(mp = c(2, 1, 2.87, 0.85, 0.05, 2.5)),
                    log.t = FALSE)
    expect_equal(summary(m)$groups, c(sample = 8L, tree = 4L, plot = 2L))
    out <- capture.output(print(m))
    i <- which(out == "Groups:")
    expect_length(i, 1L)
    printed <- strsplit(trimws(out[i + 1L]), "\\s+")[[1]]
    counts <- as.integer(strsplit(trimws(out[i + 2L]), "\\s+")[[1]])
    expect_equal(printed, c("sample", "tree", "plot"))
    expect_equal(counts, c(8L, 4L, 2L))
})