#!/usr/bin/env perl
# Test syslog, but only mildly
use warnings;
use strict;
use Test::More;
use Log::Report undef, syntax => 'SHORT';
BEGIN
{ eval "require Sys::Syslog";
plan skip_all => 'Sys::Syslog not installed'
if $@;
my $sv = Sys::Syslog->VERSION;
eval { Sys::Syslog->VERSION(0.11) };
plan skip_all => "Sys::Syslog too old (is $sv, requires 0.11)"
if $@;
plan tests => 1;
use_ok('Log::Report::Dispatcher::Syslog');
}
dispatcher SYSLOG => 'syslog', to_prio => ['ALERT-' => 'err'];
dispatcher close => 'default';
notice "this is a test";