src/perl/t/09-Utils-Logger.t

   1 #!perl -T
   2
   3 use Test::More tests => 3;
   4
   5 BEGIN {
   6         use_ok( 'OpenSRF::Utils::Logger' );
   7 }
   8
   9 my $msg = OpenSRF::Utils::Logger::_log_message('this is a message', OpenSRF::Utils::Logger::INFO());
  10 like($msg, qr/this is a message/, 'can use a string as a log message');
  11
  12 $msg = OpenSRF::Utils::Logger::_log_message(
  13     sub { return 'this is a message generated by a subroutine' },
  14     OpenSRF::Utils::Logger::INFO()
  15 );
  16 like($msg, qr/generated by a subroutine/, 'can use a subroutine as a log message');