Merge pull request #3694 from rcurtin/r-verbose-test

Test "verbose" option for R.

src/mlpack/bindings/R/mlpack/tests/testthat/test-R_binding.R

@@ -315,3 +315,23 @@ test_that("TestSerialization", {
 
   expect_true(output2$model_bw_out == 20)
 })
+
+# Make sure that the verbose argument does anything at all.
+test_that("TestVerbose", {
+  expect_output(test_r_binding(4.0, 12, "hello",
+                               build_model=TRUE,
+                               verbose=TRUE))
+})
+
+# Test that we get no output when verbose output is disabled.
+test_that("TestNotVerbose", {
+  expect_silent(test_r_binding(4.0, 12, "hello",
+                               build_model=TRUE))
+})
+
+# Test that we get no output when verbose output is explicitly disabled.
+test_that("TestReallyNotVerbose", {
+  expect_silent(test_r_binding(4.0, 12, "hello",
+                               build_model=TRUE,
+                               verbose=FALSE))
+})

src/mlpack/bindings/R/tests/test_r_binding_main.cpp

@@ -237,4 +237,7 @@ void BINDING_FUNCTION(util::Params& params, util::Timers& /* timers */)
     params.Get<double>("model_bw_out") =
         params.Get<GaussianKernel*>("model_in")->Bandwidth() * 2.0;
   }
+
+  // Provide some output if the user asked for it.
+  Log::Info << "Here is some verbose output!" << std::endl;
 }