context("computeWerDists")

test_that("computeWerDists output correct results",
{
	nbytes = 8
	endian = "little"

	# On two identical series
	serie = rnorm(212, sd=5)
	synchrones = cbind(serie, serie)
	dists = computeWerDists(synchrones, 4, nbytes,endian,verbose=TRUE,parll=FALSE)
	expect_equal(dists, matrix(0.,nrow=2,ncol=2))

	# On two constant series
	# TODO:...
})