for test_oneclass_h2oautoencoder the fct testProb() is needed. The le…

…ngth(target) in both cases of classif and oneclass is 1. Therefore I needed to add an addtional if-block to differentiate between oneclass and classif.

tests/testthat/helper_helpers.R

@@ -104,7 +104,11 @@ testProb = function(t.name, df, target, train.inds, old.probs, parset = list())
   test = df[-inds, ]
 
   if (length(target) == 1) {
-    task = makeClassifTask(data = df, target = target)
+    if (grepl("oneclass", t.name)) {
+      task = makeOneClassTask(data = df)
+    } else {
+      task = makeClassifTask(data = df, target = target)
+    }
   } else {
     task = makeMultilabelTask(data = df, target = target)
   }