Add tests

Author: juliasilge

tests/testthat/test_logistic_reg.R

@@ -448,6 +448,13 @@ test_that('liblinear execution', {
     )
   )
 
+  expect_error(
+    tidy_res <- tidy(res),
+    NA
+  )
+  expect_s3_class(tidy_res, "tbl_df")
+  expect_equal(colnames(tidy_res), c("term", "estimate"))
+
   # wrong outcome type
   expect_error(
     glm_form_catch <- fit(

tests/testthat/test_svm_linear.R

@@ -143,6 +143,13 @@ test_that('linear svm regression: LiblineaR', {
   expect_equal(multi_predict_args(res), NA_character_)
   expect_output(print(res), "parsnip model object")
 
+  expect_error(
+    tidy_res <- tidy(res),
+    NA
+  )
+  expect_s3_class(tidy_res, "tbl_df")
+  expect_equal(colnames(tidy_res), c("term", "estimate"))
+
   expect_error(
     fit(
       reg_mod,