library(testthat)
library(AGBQR)

test_that("check_loss returns non-negative values", {
  u <- c(-2, -1, 0, 1, 2)
  out <- AGBQR:::check_loss(u, 0.5)
  expect_true(all(out >= 0))
})

test_that("agbqr returns an agbqr object", {
  set.seed(1)
  y <- rnorm(40)
  X <- matrix(rnorm(40 * 3), ncol = 3)
  colnames(X) <- c("LEXR", "M2GDP", "TRDGDP")

  fit <- agbqr(y = y, X = X, taus = c(0.5), M = 500, burnin = 200)

  expect_s3_class(fit, "agbqr")
})