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
|
# This file tests the import() method of the main Log::Any class. The
# tests in this file will frequently simply die if they fail.
#
use strict;
use warnings;
use Test::More tests => 2;
use Log::Any::Test;
# Test that we are allowed to call the imported Log::Any::Proxy object
# anything we want
{
package test1;
use Log::Any qw( $ANYTHING );
$ANYTHING->info( 'This must not die' );
$ANYTHING->contains_ok( qr/This must not die/, 'logged correctly' );
}
# Test that only the first thing that looks like a scalar is used to
# name the Log::Any::Proxy object
{
package test2;
use Log::Any qw( $LOG ), category => '$script';
$LOG->info( 'This must not die' );
$LOG->category_contains_ok( '$script', qr/This must not die/, 'logged correctly' );
}
|
