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

diff --git a/epclust/tests/testthat/test-computeWerDists.R b/epclust/tests/testthat/test-computeWerDists.R
index d83c590..09ad5c8 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)
 	expect_equal(dists, matrix(0.,nrow=2,ncol=2))
 
 	# On two constant series
-	# TODO:...
+	# TODO: ref results. Ask Jairo to check function.
 })
-