+test_that("curvesToContribs behave as expected",
+{
+ curvesToContribs(...)
+})
+
+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, nbytes,endian,verbose=TRUE,parll=FALSE)
+ expect_equal(dists, matrix(0.,nrow=2,ncol=2))
+
+ # On two constant series
+ # TODO:...
+})