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

## a. basic functioning ####
test_that("function works", {
  skip_on_cran()
  expect_no_error(seqmissfplot(gameadd.traj))
})

## b. seq object ####
library("TraMineR")
gameadd.seq <- seqdef(gameadd.traj, right=NA)
test_that("function works", {
  skip_on_cran()
  expect_no_error(seqmissfplot(gameadd.seq))
})

## c. without complete trajectories ####
test_that("function works", {
  skip_on_cran()
  expect_no_error(seqmissfplot(gameadd.traj, with.complete = FALSE))
})

## d. with var ####
test_that("function works", {
  skip_on_cran()
  expect_no_error(seqmissfplot(gameadd, var=1:4))
})

## e. seqobject NA as code ####
gameadd.seq <- seqdef(gameadd.traj, right=NA)
test_that("function works", {
  skip_on_cran()
  expect_no_error(seqmissfplot(gameadd.seq))
})


gameadd.seq <- seqdef(gameadd.traj)
## f void.miss #####
test_that("function works", {
  skip_on_cran()
  expect_no_error(seqmissfplot(gameadd.seq,void.miss=FALSE))
})

test_that("function works", {
  skip_on_cran()
  expect_no_error(seqmissfplot(gameadd.seq,void.miss=FALSE, with.complete=F))
})

test_that("function works", {
  skip_on_cran()
  expect_no_error(seqmissfplot(gameadd.seq,void.miss=FALSE, with.complete=T))
})

## g idxs ####
test_that("function works", {
  skip_on_cran()
  expect_no_error(seqmissfplot(gameadd.seq,void.miss=FALSE,idxs=1:5))
})

# 2. seqmissIplot ####
## a. basic functioning ####
test_that("function works", {
  skip_on_cran()
  expect_no_error(seqmissIplot(gameadd.traj))
})


## b. seq object ####
library("TraMineR")
gameadd.seq <- seqdef(gameadd.traj, right=NA)
test_that("function works", {
  skip_on_cran()
  expect_no_error(seqmissIplot(gameadd.seq))
})

## c. without complete trajectories ####
test_that("function works", {
  skip_on_cran()
  expect_no_error(seqmissIplot(gameadd.traj, with.complete = FALSE))
})

## d. with var ####
test_that("function works", {
  skip_on_cran()
  expect_no_error(seqmissIplot(gameadd, var=1:4))
})

## e seq with NA code ####
gameadd.seq <- seqdef(gameadd.traj, right=NA)
test_that("function works", {
  skip_on_cran()
  expect_no_error(seqmissIplot(gameadd.seq))
})

gameadd.seq <- seqdef(gameadd.traj)
## f void.miss #####
test_that("function works", {
  skip_on_cran()
  expect_no_error(seqmissIplot(gameadd.seq,void.miss=FALSE))
})

test_that("function works", {
  skip_on_cran()
  expect_no_error(seqmissIplot(gameadd.seq,void.miss=FALSE, with.complete=F))
})

test_that("function works", {
  skip_on_cran()
  expect_no_error(seqmissIplot(gameadd.seq,void.miss=FALSE, with.complete=T))
})

## g from.end####
test_that("function works", {
  skip_on_cran()
  expect_no_error(seqmissIplot(gameadd.seq,void.miss=FALSE, sortv="from.end"))
})

test_that("function works", {
  skip_on_cran()
  expect_no_error(seqmissIplot(gameadd.seq,void.miss=TRUE, sortv="from.end"))
})

# 3. seqmissimplic ####
gameadd.seq <- seqdef(gameadd.traj, right=NA)
test_that("function works", {
  skip_on_cran()
  expect_no_error(seqmissimplic(gameadd, var=1:4))
})

test_that("sequence works", {
  skip_on_cran()
  expect_no_error(seqmissimplic(gameadd.seq, var=1:4))
})

gameadd.seq <- seqdef(gameadd.traj)
## f void.miss #####
test_that("function works", {
  skip_on_cran()
  expect_no_error(seqmissimplic(gameadd.seq,void.miss=FALSE))
})