1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
#!perl
use strict;
use warnings;
use Authen::Simple::Log;
use IO::File;
my @levels = qw( debug error info warn );
use Test::More tests => 7;
ok( my $log = Authen::Simple::Log->new, 'Instance' );
ok( my $stderr = IO::File->new_tmpfile, 'Temporary file' );
can_ok( $log, @levels );
{
local *STDERR = $stderr;
local $^W = 0;
foreach my $level ( @levels ) {
$log->$level($level);
}
local $^W = 1;
foreach my $level ( @levels ) {
$log->$level($level);
}
}
$stderr->seek( 0, 0 );
my @messages = $stderr->getlines;
ok( @messages == 3, 'Got three messages' );
like( $messages[0], qr/\[error\] \[main\] error$/, 'First log message' );
like( $messages[1], qr/\[error\] \[main\] error$/, 'Second log message' );
like( $messages[2], qr/\[warn\] \[main\] warn$/, 'Third log message' );
|
