remove check.

R-package/tests/testthat/test_model_compatibility.R

@@ -76,32 +76,20 @@ test_that("Models from previous versions of XGBoost can be loaded", {
  name <- m[3]
  is_rds <- endsWith(model_file, '.rds')
  is_json <- endsWith(model_file, '.json')
-
- cpp_warning <- capture.output({
- # Expect an R warning when a model is loaded from RDS and it was generated by version < 1.1.x
- if (is_rds && compareVersion(model_xgb_ver, '1.1.1.1') < 0) {
- booster <- readRDS(model_file)
- expect_warning(predict(booster, newdata = pred_data))
+ # Expect an R warning when a model is loaded from RDS and it was generated by version < 1.1.x
+ if (is_rds && compareVersion(model_xgb_ver, '1.1.1.1') < 0) {
+ booster <- readRDS(model_file)
+ expect_warning(predict(booster, newdata = pred_data))
+ booster <- readRDS(model_file)
+ expect_warning(run_booster_check(booster, name))
+ } else {
+ if (is_rds) {
  booster <- readRDS(model_file)
- expect_warning(run_booster_check(booster, name))
  } else {
- if (is_rds) {
- booster <- readRDS(model_file)
- } else {
- booster <- xgb.load(model_file)
- }
- predict(booster, newdata = pred_data)
- run_booster_check(booster, name)
+ booster <- xgb.load(model_file)
  }
- })
- cpp_warning <- paste0(cpp_warning, collapse = ' ')
- if (is_rds && compareVersion(model_xgb_ver, '1.1.1.1') >= 0) {
- # Expect a C++ warning when a model is loaded from RDS and it was generated by old XGBoost`
- m <- grepl(paste0('.*If you are loading a serialized model ',
- '\\(like pickle in Python, RDS in R\\).*',
- 'for more details about differences between ',
- 'saving model and serializing.*'), cpp_warning, perl = TRUE)
- expect_true(length(m) > 0 && all(m))
+ predict(booster, newdata = pred_data)
+ run_booster_check(booster, name)
  }
  })
 })