R test.

Author: trivialfis

R-package/tests/testthat/test_dmatrix.R

@@ -50,6 +50,14 @@ test_that("xgb.DMatrix: getinfo & setinfo", {
   labels <- getinfo(dtest, 'label')
   expect_equal(test_label, getinfo(dtest, 'label'))
 
+  expect_true(setinfo(dtest, 'label_lower_bound', test_label))
+  labels <- getinfo(dtest, 'label')
+  expect_equal(test_label, getinfo(dtest, 'label_lower_bound'))
+
+  expect_true(setinfo(dtest, 'label_upper_bound', test_label))
+  labels <- getinfo(dtest, 'label')
+  expect_equal(test_label, getinfo(dtest, 'label_upper_bound'))
+
   expect_true(length(getinfo(dtest, 'weight')) == 0)
   expect_true(length(getinfo(dtest, 'base_margin')) == 0)