+ L <- 220 #extended to 256, log2(256) == 8
+
+ # Zero serie
+ expect_equal(curvesToContribs(rep(0,L), "d8", "absolute"), as.matrix(rep(0,8)))
+ expect_equal(curvesToContribs(rep(0,L), "haar", "absolute"), as.matrix(rep(0,8)))
+
+ # Constant serie
+ expect_equal(curvesToContribs(rep(5,L), "haar", "absolute"), as.matrix(rep(0,8)))
+ expect_equal(curvesToContribs(rep(10,L), "haar", "absolute"), as.matrix(rep(0,8)))
+# expect_equal(curvesToContribs(rep(5,L), "d8", ctype), rep(0,8))
+#TODO: