code seems OK; still wavelets test to write

[epclust.git] / epclust / tests / testthat / test.wavelets.R

diff --git a/epclust/tests/testthat/test.wavelets.R b/epclust/tests/testthat/test.wavelets.R
index 96f9db3..f29312d 100644 (file)
--- a/epclust/tests/testthat/test.wavelets.R
+++ b/epclust/tests/testthat/test.wavelets.R
@@ -2,7 +2,7 @@ context("wavelets discrete & continuous")
 
 test_that("curvesToContribs behave as expected",
 {
-       curvesToContribs(...)
+#      curvesToContribs(...)
 })
 
 test_that("computeWerDists output correct results",
@@ -13,7 +13,7 @@ test_that("computeWerDists output correct results",
        # On two identical series
        serie = rnorm(212, sd=5)
        synchrones = cbind(serie, serie)
-       dists = computeWerDists(synchrones, nbytes,endian,verbose=TRUE,parll=FALSE)
+       dists = computeWerDists(synchrones, 4, nbytes,endian,verbose=TRUE,parll=FALSE)
        expect_equal(dists, matrix(0.,nrow=2,ncol=2))
 
        # On two constant series