'update'

[epclust.git] / epclust / tests / testthat / test-computeWerDists.R

diff --git a/epclust/tests/testthat/test-computeWerDists.R b/epclust/tests/testthat/test-computeWerDists.R
new file mode 100644 (file)
index 0000000..d83c590
--- /dev/null
+++ b/epclust/tests/testthat/test-computeWerDists.R
@@ -0,0 +1,17 @@
+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:...
+})
+