X-Git-Url: https://git.auder.net/?p=epclust.git;a=blobdiff_plain;f=epclust%2Ftests%2Ftestthat%2Ftest-computeWerDists.R;h=0e02413944362531c4825c8f08126b7a39c8100c;hp=d83c590d79f0be1d2951e573554ce36bd8a9a093;hb=282342bafdc9ff65c5df98c6e2304d63b33b9fb2;hpb=3c5a4b0880db63367a474a568e1322b3999932fe

diff --git a/epclust/tests/testthat/test-computeWerDists.R b/epclust/tests/testthat/test-computeWerDists.R
index d83c590..0e02413 100644
--- a/epclust/tests/testthat/test-computeWerDists.R
+++ b/epclust/tests/testthat/test-computeWerDists.R
@@ -2,16 +2,17 @@ context("computeWerDists")
 
 test_that("computeWerDists output correct results",
 {
-	nbytes = 8
-	endian = "little"
+	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)
+	serie <- rnorm(212, sd=5)
+	series <- cbind(serie, serie)
+	getSeries <- function(indices) as.matrix(series[,indices])
+	dists <- computeWerDists(1:2, getSeries, 50, 3, 4, nbytes, endian,
+		verbose=TRUE, parll=FALSE)
 	expect_equal(dists, matrix(0.,nrow=2,ncol=2))
 
 	# On two constant series
-	# TODO:...
+	# TODO: ref results. Ask Jairo to check function.
 })
-