X-Git-Url: https://git.auder.net/?p=epclust.git;a=blobdiff_plain;f=pkg%2Ftests%2Ftestthat%2Ftest-computeWerDists.R;fp=pkg%2Ftests%2Ftestthat%2Ftest-computeWerDists.R;h=09ad5c80e0ce9979b8dde861b0b8346c21b83e8e;hp=0000000000000000000000000000000000000000;hb=e906736ea27105237e84c904dce6170353726292;hpb=57f337af19cd6251815bb1ff2d62f4c58e8b6078

diff --git a/pkg/tests/testthat/test-computeWerDists.R b/pkg/tests/testthat/test-computeWerDists.R
new file mode 100644
index 0000000..09ad5c8
--- /dev/null
+++ b/pkg/tests/testthat/test-computeWerDists.R
@@ -0,0 +1,18 @@
+context("computeWerDists")
+
+test_that("computeWerDists output correct results",
+{
+	nbytes <- 8
+	endian <- "little"
+
+	# On two identical series
+	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: ref results. Ask Jairo to check function.
+})