test_that("bbase_singletime similar to JOPS::bbase", {
  ic_bbase <- bbase_singletime(0.09, 0, 1, nseg = 20, bdeg = 3)
  ic_bbase2 <- bbase_singletime(0.1, 0, 1, nseg = 20, bdeg = 3)
  ic_bbase3 <- bbase_singletime(0.09, 0, 1, nseg = 100, bdeg = 5)
  
  jops_bbase <- JOPS::bbase(0.09, 0, 1, nseg = 20, bdeg = 3)
  jops_bbase2 <- JOPS::bbase(0.1, 0, 1, nseg = 20, bdeg = 3)
  jops_bbase3 <- JOPS::bbase(0.09, 0, 1, nseg = 100, bdeg = 5)
  expect_equal(ic_bbase, jops_bbase, ignore_attr = TRUE)
  expect_equal(ic_bbase2, jops_bbase2, ignore_attr = TRUE)
  expect_equal(ic_bbase3, jops_bbase3, ignore_attr = TRUE)
})