if (!exists("print.gaitkit_result", mode = "function")) {
  source(file.path("..", "..", "R", "methods.R"))
}

test_that("print.gaitkit_result handles ensemble-style cycles", {
  x <- list(
    left_hs = list(list(frame = 1L, time = 0.01)),
    right_hs = list(list(frame = 2L, time = 0.02)),
    left_to = list(list(frame = 3L, time = 0.03)),
    right_to = list(list(frame = 4L, time = 0.04)),
    cycles = data.frame(duration = c(1.1, 1.0)),
    method = "ensemble",
    fps = 100,
    n_frames = 1000
  )
  class(x) <- "gaitkit_result"

  expect_invisible(print(x))
})

test_that("print.gaitkit_result validates input type", {
  expect_error(
    print.gaitkit_result("not_a_result"),
    "'x' must be a gaitkit_result list"
  )
})

test_that("print.gaitkit_result tolerates missing optional fields", {
  x <- list(
    events = data.frame(),
    cycles = data.frame()
  )
  class(x) <- "gaitkit_result"

  expect_invisible(print(x))
})

test_that("print.gaitkit_result tolerates malformed method field", {
  x <- list(
    left_hs = list(),
    right_hs = list(),
    left_to = list(),
    right_to = list(),
    cycles = data.frame(),
    method = c("bike", "zeni"),
    fps = 100,
    n_frames = 10
  )
  class(x) <- "gaitkit_result"
  expect_invisible(print(x))
})

test_that("summary.gaitkit_result validates input type", {
  expect_error(
    summary.gaitkit_result("not_a_result"),
    "'object' must be a gaitkit_result list"
  )
})

test_that("plot.gaitkit_result validates type and supports heel_strike labels", {
  x <- list(
    events = data.frame(
      frame = c(1L, 2L),
      time = c(0.01, 0.02),
      side = c("left", "right"),
      event_type = c("heel_strike", "toe_off"),
      stringsAsFactors = FALSE
    ),
    cycles = data.frame(
      side = c("left"),
      stance_percentage = c(62),
      swing_percentage = c(38)
    ),
    method = "bike"
  )
  class(x) <- "gaitkit_result"

  expect_error(
    plot.gaitkit_result(x, type = "bad"),
    "'type' must be either 'events' or 'cycles'"
  )
  expect_invisible(plot.gaitkit_result(x, type = "events"))
  expect_invisible(plot.gaitkit_result(x, type = "cycles"))
})

test_that("plot.gaitkit_result validates required event columns", {
  x <- list(
    events = data.frame(frame = 1L, stringsAsFactors = FALSE),
    cycles = data.frame(),
    method = "bike"
  )
  class(x) <- "gaitkit_result"

  expect_error(
    plot.gaitkit_result(x, type = "events"),
    "events data must include columns: time, event_type, side"
  )
})