From 703809d19a3336ee975d39efc3372363f6268365 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Fri, 7 Jun 2019 11:30:42 -0400 Subject: [PATCH] LP#1824181: add test cases To test ------- [1] Verify that 'make check' (or prove src/perl/t/09-Utils-Logger.t) passes. Signed-off-by: Galen Charlton --- src/perl/t/09-Utils-Logger.t | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/src/perl/t/09-Utils-Logger.t b/src/perl/t/09-Utils-Logger.t index 9ad7708..69f04e2 100644 --- a/src/perl/t/09-Utils-Logger.t +++ b/src/perl/t/09-Utils-Logger.t @@ -1,7 +1,16 @@ #!perl -T -use Test::More tests => 1; +use Test::More tests => 3; BEGIN { use_ok( 'OpenSRF::Utils::Logger' ); } + +my $msg = OpenSRF::Utils::Logger::_log_message('this is a message', OpenSRF::Utils::Logger::INFO()); +like($msg, qr/this is a message/, 'can use a string as a log message'); + +$msg = OpenSRF::Utils::Logger::_log_message( + sub { return 'this is a message generated by a subroutine' }, + OpenSRF::Utils::Logger::INFO() +); +like($msg, qr/generated by a subroutine/, 'can use a subroutine as a log message'); -- 2.43.2