Merge pull request #3 from oposs/support-trace

add support for trace log level

Author: oetiker

CHANGES

@@ -1,3 +1,11 @@
+0.2.1 2021-09-06 08:36:03 +0200 Tobias Oetiker <[email protected]>
+
+ - fix documentation
+
+0.2.0 2021-09-06 08:32:36 +0200 Tobias Oetiker <[email protected]>
+
+ - support new trace log level
+
 0.1.0 2020-09-03 11:27:29 +0200 Tobias Oetiker <[email protected]>
 
  - initial release

README.md

@@ -31,7 +31,7 @@ Points to an array with all the log messages issued since the last request.
 
 # METHODS
 
-The role [Test::Mojo::Role::Log](https://metacpan.org/pod/Test%3A%3AMojo%3A%3ARole%3A%3ALog) adds following new methods to [Test::Mojo](https://metacpan.org/pod/Test%3A%3AMojo) ones.
+The role [Test::Mojo::Role::Log](https://metacpan.org/pod/Test%3A%3AMojo%3A%3ARole%3A%3ALog) adds the following new methods to [Test::Mojo](https://metacpan.org/pod/Test%3A%3AMojo) ones.
 
 ## log\_like($rx,$desc)
 
@@ -44,6 +44,10 @@ The role [Test::Mojo::Role::Log](https://metacpan.org/pod/Test%3A%3AMojo%3A%3ARo
 Check if the given log message has been issued. All the log messages issued since the start of the current request will get checked.
 If $logLevel is set to undef the logLevel does not get checked.
 
+## log\_trace\_like($rx,$desc)  (if mojo supports it)
+
+Find a trace level log message matching the given $rx.
+
 ## log\_debug\_like($rx,$desc)
 
 Find a debug level log message matching the given $rx.
@@ -67,7 +71,8 @@ Find a fatal level log message matching the given $rx.
 ## \*\_unlike
 
 For each of the methods above there is ac coresponding
-=head1 AUTHOR
+
+# AUTHOR
 
 Tobias Oetiker <[email protected]>
 

lib/Test/Mojo/Role/Log.pm

@@ -1,6 +1,6 @@
 package Test::Mojo::Role::Log;
 use Mojo::Base -role, -signatures;
-our $VERSION = '0.1.0';
+our $VERSION = '0.2.1';
 
 around 'new' => sub {
     my $orig = shift;
@@ -10,9 +10,13 @@ around 'new' => sub {
         $log->unsubscribe(
             message => $log->subscribers('message')->[0] 
         );
-        $log->level('debug');
+        if ($log->can('trace')){
+            $log->level('trace');
+        }
+        else {
+            $log->level('debug');
+        }
     }
-
     $log->on(message => sub {
         my $log = shift;
         push @{$self->logCache}, \@_;
@@ -55,33 +59,50 @@ sub log_unlike ($self,$rx,$desc=undef) {
     return $self->_log_test($rx,undef,'unlike',$desc);
 }
 
+sub log_trace_like ($self,$rx,$desc=undef) {
+    return shift->_log_test($rx,'trace','like',$desc);
+}
+
 sub log_debug_like ($self,$rx,$desc=undef) {
     return shift->_log_test($rx,'debug','like',$desc);
 }
+
 sub log_info_like ($self,$rx,$desc=undef) {
     return shift->_log_test($rx,'info','like',$desc);
 }
+
 sub log_warn_like ($self,$rx,$desc=undef) {
     return shift->_log_test($rx,'warn','like',$desc);
 }
+
 sub log_error_like ($self,$rx,$desc=undef) {
     return shift->_log_test($rx,'error','like',$desc);
 }
+
 sub log_fatal_like ($self,$rx,$desc=undef) {
     return shift->_log_test($rx,'fatal','like',$desc);
 }
+
+sub log_trace_unlike ($self,$rx,$desc=undef) {
+    return shift->_log_test($rx,'trace','unlike',$desc);
+}
+
 sub log_debug_unlike ($self,$rx,$desc=undef) {
     return shift->_log_test($rx,'debug','unlike',$desc);
 }
+
 sub log_info_unlike ($self,$rx,$desc=undef) {
     return shift->_log_test($rx,'info','unlike',$desc);
 }
+
 sub log_warn_unlike ($self,$rx,$desc=undef) {
     return shift->_log_test($rx,'warn','unlike',$desc);
 }
+
 sub log_error_unlike ($self,$rx,$desc=undef) {
     return shift->_log_test($rx,'error','unlike',$desc);
 }
+
 sub log_fatal_unlike ($self,$rx,$desc=undef) {
     return shift->_log_test($rx,'fatal','unlike',$desc);
 }
@@ -121,7 +142,7 @@ Points to an array with all the log messages issued since the last request.
 
 =head1 METHODS
  
-The role L<Test::Mojo::Role::Log> adds following new methods to L<Test::Mojo> ones.
+The role L<Test::Mojo::Role::Log> adds the following new methods to L<Test::Mojo> ones.
  
 =head2 log_like($rx,$desc)
 
@@ -131,6 +152,10 @@ The role L<Test::Mojo::Role::Log> adds following new methods to L<Test::Mojo> on
 Check if the given log message has been issued. All the log messages issued since the start of the current request will get checked.
 If $logLevel is set to undef the logLevel does not get checked.
 
+=head2 log_trace_like($rx,$desc)  (if mojo supports it)
+ 
+Find a trace level log message matching the given $rx.
+
 =head2 log_debug_like($rx,$desc)
  
 Find a debug level log message matching the given $rx.
@@ -154,6 +179,7 @@ Find a fatal level log message matching the given $rx.
 =head2 *_unlike
 
 For each of the methods above there is ac coresponding
+
 =head1 AUTHOR
 
 Tobias Oetiker E<lt>[email protected]E<gt>

t/basic.t

@@ -10,6 +10,28 @@ use Test::More;
 # Start a Mojolicious app named "Celestial"
 my $t = Test::Mojo->with_roles('+Log')->new(curfile->sibling('hello.pl'));
 
+if ($t->app->log->can('trace')){
+$t->get_ok('/gugus')
+    ->log_like(qr{GET "/gugus"})
+    ->log_trace_like(qr{GET "/gugus"})
+    ->log_debug_unlike(qr{GET "/gugus"})
+    ->log_like(qr{200 OK.+s.+/s})
+    ->log_unlike(qr{aargh})
+    ->log_like(qr{gugus})
+    ->log_trace_like(qr{trace})
+    ->log_debug_like(qr{debug})
+    ->log_info_like(qr{info})
+    ->log_warn_like(qr{warn})
+    ->log_error_like(qr{error})
+    ->log_fatal_like(qr{fatal})
+    ->log_trace_unlike(qr{xtrace})
+    ->log_debug_unlike(qr{xdebug})
+    ->log_info_unlike(qr{xinfo})
+    ->log_warn_unlike(qr{xwarn})
+    ->log_error_unlike(qr{xerror})
+    ->log_fatal_unlike(qr{xfatal});
+}
+else {
 $t->get_ok('/gugus')
     ->log_like(qr{GET "/gugus"})
     ->log_debug_like(qr{GET "/gugus"})
@@ -27,5 +49,5 @@ $t->get_ok('/gugus')
     ->log_warn_unlike(qr{xwarn})
     ->log_error_unlike(qr{xerror})
     ->log_fatal_unlike(qr{xfatal});
-
+}
 done_testing();

t/hello.pl

@@ -6,6 +6,9 @@
 
 # Route with placeholder
 get '/:foo' => sub ($c) {
+  if ($c->log->can('trace')){
+    $c->log->trace("trace");
+  }
   $c->log->debug("debug");
   $c->log->info("info");
   $c->log->warn("warn");