Log::Any::Test (3pm)

version 0.15

    use Test::More;
    use Log::Any::Test;    # should appear before 'use Log::Any'!
    use Log::Any qw($log);

    # ...
    # call something that logs using Log::Any
    # ...

    # now test to make sure you logged the right things

    $log->contains_ok(qr/good log message/, "good message was logged");
    $log->does_not_contain_ok(qr/unexpected log message/, "unexpected message was not logged");
    $log->empty_ok("no more logs");

    # or

    my $msgs = $log->msgs;
    cmp_deeply($msgs, [{message => 'msg1', level => 'debug'}, ...]);

\*(C`Log::Any::Test\*(C' is a simple module that allows you to test what has been logged with Log::Any. Most of its \s-1API\s0 and implementation have been taken from Log::Any::Dispatch.

Using \*(C`Log::Any::Test\*(C' sends all subsequent Log::Any log messages to a single global in-memory buffer. It should be used before Log::Any.

The test_name is optional in the *_ok methods; a reasonable default will be provided.

msgs ()

Returns the current contents of the global log buffer as an array reference, where each element is a hash containing a category, level, and message key. e.g. { category => 'Foo', level => 'error', message => 'this is an error' }, { category => 'Bar::Baz', level => 'debug', message => 'this is a debug' } Tests that a message in the log buffer matches $regex. On success, the message is removed from the log buffer (but any other matches are left untouched). Tests that no message in the log buffer matches $regex.

empty_ok ([$test_name])

Tests that there is no log buffer left. On failure, the log buffer is cleared to limit further cascading failures. Tests that there is a single message in the log buffer and it matches $regex. On success, the message is removed.

clear ()

Clears the log buffer.

Log::Any, Test::Log::Dispatch

Jonathan Swartz

Copyright (C) 2009 Jonathan Swartz, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

This software is copyright (c) 2011 by Jonathan Swartz.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.