#!/usr/bin/env perl

use Test::More import => ['!pass'], tests => 3;

use strict;
use warnings;

use Dancer;

my $CLASS = "Dancer::Logger::Capture";
use_ok $CLASS;

note "basic capture"; {
    my $logger = $CLASS->new;

    $logger->warning("Danger!  Warning!  Danger!");
    $logger->debug("I like pie.");

    my $trap = $CLASS->trap;
    is_deeply $trap->read, [
        { level => "warning",   message => "Danger!  Warning!  Danger!" },
        { level => "debug",     message => "I like pie.", }
    ];

    is_deeply $trap->read, [],  "read clears the trap";
}