gameadd.traj <- gameadd[, 1:4]

# 1. basic tests #####
## a. np=1, nf=1 #####
test_that("works without error", {
  skip_on_cran()
  expect_no_error(seqQuickLook(gameadd.traj))
})


test_that("number of NA corresponds to the number in original dataset", {
  skip_on_cran()
  expect_equal(
    sum(seqQuickLook(gameadd.traj)$sumNAGaps),
    sum(is.na(gameadd.traj))
  )
})

## b. with Left-SLG ######
test_that("works without error", {
  skip_on_cran()
  expect_no_error(seqQuickLook(gameadd.traj, np = 2))
})


## c. with Right-SLG ######
test_that("works without error", {
  skip_on_cran()
  expect_no_error(seqQuickLook(gameadd.traj, nf = 2))
})

## d. with Both-SLG ######
test_that("works without error", {
  skip_on_cran()
  expect_no_error(seqQuickLook(gameadd.traj, np = 2, nf = 2))
})

# 2. use of var #####
test_that("works without error", {
  skip_on_cran()
  expect_no_error(seqQuickLook(gameadd, var = 1:4, nf = 2))
})

# 3. type of data provided #####
## a. character ####
gameadd.traj.ch <- gameadd.traj
for (i in 1:ncol(gameadd.traj.ch)) {
  gameadd.traj.ch[, i] <- as.character(gameadd.traj.ch[, i])
}
test_that("works without error", {
  skip_on_cran()
  expect_no_error(seqQuickLook(gameadd.traj.ch))
})


test_that("number of NA corresponds to the number in original dataset", {
  skip_on_cran()
  expect_equal(
    sum(seqQuickLook(gameadd.traj.ch)$sumNAGaps),
    sum(is.na(gameadd.traj.ch))
  )
})

## b. numeric ####
gameadd.num <- gameadd[, 1:4]
for (i in 1:ncol(gameadd.num)) {
  levels(gameadd.num[, i]) <- c(1, 2)
  gameadd.num[, i] <- as.numeric(gameadd.num[, i])
}

test_that("works without error", {
  skip_on_cran()
  expect_no_error(seqQuickLook(gameadd.num))
})


test_that("number of NA corresponds to the number in original dataset", {
  skip_on_cran()
  expect_equal(
    sum(seqQuickLook(gameadd.num)$sumNAGaps),
    sum(is.na(gameadd.num))
  )
})


## c. sequence ####
library("TraMineR")
gameadd.seq <- seqdef(gameadd, 1:4, right = NA)

test_that("works without error", {
  skip_on_cran()
  expect_no_error(seqQuickLook(gameadd.seq))
})


test_that("number of NA corresponds to the number in original dataset", {
  skip_on_cran()
  expect_equal(
    sum(seqQuickLook(gameadd.seq)$sumNAGaps),
    sum(is.na(gameadd[, 1:4]))
  )
})

# 4. no MD #####
imp <- seqimpute(gameadd.traj, m = 1)
test_that("number of NA corresponds to the number in original dataset", {
  skip_on_cran()
  expect_equal(sum(seqQuickLook(imp$imp[[1]])$sumNAGaps), 0)
})


# 5. One gap #####
data <- imp$imp[[1]]

data[7, 2] <- NA
test_that("works without error", {
  skip_on_cran()
  expect_no_error(seqQuickLook(data))
})


data[7, 2:3] <- NA
test_that("works without error", {
  skip_on_cran()
  expect_no_error(seqQuickLook(data, np = 2))
})

test_that("works without error", {
  skip_on_cran()
  expect_no_error(seqQuickLook(data, nf = 2))
})

test_that("works without error", {
  skip_on_cran()
  expect_no_error(seqQuickLook(data, nf = 2, np = 2))
})