More tests

Author: gregorgorjanc

RcppTskit/tests/testthat/test_TableCollection.R

@@ -245,10 +245,12 @@ test_that("TableCollection index lifecycle and tree_sequence index handling work
   # rtsk_treeseq_init() builds indexes in an internal ts, not in tc itself,
   # so the tc in this environment will not have indexes here
   expect_false(tc$has_index())
-  expect_no_error(tc$build_index())
-  expect_true(tc$has_index())
-
   ts2 <- tc$tree_sequence()
   expect_true(is(ts2, "TreeSequence"))
   expect_true(tc$has_index())
+
+  expect_no_error(tc$drop_index())
+  expect_false(tc$has_index())
+  expect_no_error(tc$build_index())
+  expect_true(tc$has_index())
 })