test_that ("the program can handle the minimal correct input", {
	directed <- integer(0)

	bidirected <- matrix(integer(0), nrow = 0, ncol = 2)

	result <- fasttreeid_identify(bidirected, directed, "16630300901090146909", "533993101691002181")

	expect_equal(result$seed, "16630300901090146909")
	expect_equal(result$prime, "533993101691002181")

	expect_equal(result$identification[[1]]$identifiability, 0)
})