test as.loglevel helpers

Mikata-Project · Oct 24, 2023 · d1d504a · d1d504a
1 parent f38ffb2
commit d1d504a
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/testthat/test-logger.R b/tests/testthat/test-logger.R
@@ -19,6 +19,12 @@ test_that('log levels', {
     expect_output(log_info('foo'), NA)
     expect_output(log_debug('foo'), NA)
     expect_output(log_trace('foo'), NA)
+    expect_output(log_level(as.loglevel(ERROR), 'foo'), 'ERROR.*foo')
+    expect_output(log_level(as.loglevel('ERROR'), 'foo'), 'ERROR.*foo')
+    expect_output(log_level(as.loglevel(200L), 'foo'), 'ERROR.*foo')
+    expect_output(log_level(as.loglevel(TRACE), 'foo'), NA)
+    expect_output(log_level(as.loglevel('TRACE'), 'foo'), NA)
+    expect_output(log_level(as.loglevel(600L), 'foo'), NA)
 })
 
 log_threshold(TRACE)