dont compare time elapsed slot for keras models

Author: patr1ckm

tests/testthat/test_linear_reg_keras.R

@@ -25,6 +25,7 @@ ctrl <- fit_control(verbosity = 0, catch = FALSE)
 test_that('model fitting', {
   skip_on_cran()
   skip_if_not_installed("keras")
+  cmp_slots <- c("lvl", "spec", "fit", "preproc")
 
   set.seed(257)
   expect_error(
@@ -49,7 +50,7 @@ test_that('model fitting', {
       ),
     regexp = NA
   )
-  expect_equal(fit1, fit2)
+  expect_equal(fit1[cmp_slots], fit2[cmp_slots])
 
   expect_error(
     fit(

tests/testthat/test_logistic_reg_keras.R

@@ -41,6 +41,7 @@ ctrl <- fit_control(verbosity = 0, catch = FALSE)
 test_that('model fitting', {
   skip_on_cran()
   skip_if_not_installed("keras")
+  cmp_slots <- c("lvl", "spec", "fit", "preproc")
 
   set.seed(257)
   expect_error(
@@ -65,7 +66,7 @@ test_that('model fitting', {
       ),
     regexp = NA
   )
-  expect_equal(fit1, fit2)
+  expect_equal(fit1[cmp_slots], fit2[cmp_slots])
 
   expect_error(
     fit(

tests/testthat/test_multinom_reg_keras.R

@@ -34,6 +34,7 @@ ctrl <- fit_control(verbosity = 0, catch = FALSE)
 test_that('model fitting', {
   skip_on_cran()
   skip_if_not_installed("keras")
+  cmp_slots <- c("lvl", "spec", "fit", "preproc")
 
   set.seed(257)
   expect_error(
@@ -58,7 +59,7 @@ test_that('model fitting', {
       ),
     regexp = NA
   )
-  expect_equal(fit1, fit2)
+  expect_equal(fit1[cmp_slots], fit2[cmp_slots])
 
   expect_error(
     fit(