X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=epclust%2Ftests%2Ftestthat%2Ftest-computeWerDists.R;fp=epclust%2Ftests%2Ftestthat%2Ftest-computeWerDists.R;h=d83c590d79f0be1d2951e573554ce36bd8a9a093;hb=40f12a2f66d06fd77183ea02b996f5c66f90761c;hp=0000000000000000000000000000000000000000;hpb=a52836b23adb4bfa6722642ec6426fb7b5f39650;p=epclust.git

diff --git a/epclust/tests/testthat/test-computeWerDists.R b/epclust/tests/testthat/test-computeWerDists.R
new file mode 100644
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:...
+})
+