test_that(
  "Skew Jack polynomial for alpha=1 is collinear to skew Schur polynomial", {
    n <- 5L
    lambda <- c(3, 2)
    mu     <- c(1, 1)
    skjp <- SkewJackPol(n, lambda, mu, alpha = 1L)
    sksp <- SkewSchurPol(n, lambda, mu)
    expect_true(collinearQsprays(skjp, sksp))
  }
)