1#!/usr/bin/perl -w
2
3use strict;
4
5use Test::More;
6
7my %deps =
8    ( ApacheLog             => 'Apache::Log',
9      File                  => '',
10      'File::Locked'        => '',
11      Handle                => '',
12      Screen                => '',
13      Syslog                => 'Sys::Syslog',
14      'Email::MailSend'     => 'Mail::Send',
15      'Email::MIMELite'     => 'MIME::Lite',
16      'Email::MailSendmail' => 'Mail::Sendmail',
17      'Email::MailSender'   => 'Mail::Sender',
18    );
19
20plan tests => 1 + scalar keys %deps;
21
22use_ok('Log::Dispatch');
23
24for my $subclass ( sort keys %deps )
25{
26    my $module = "Log::Dispatch::$subclass";
27
28    if ( ! $deps{$subclass}
29         ||
30         ( eval "use $deps{$subclass}; 1" && ! $@ )
31       )
32    {
33        use_ok($module);
34    }
35    else
36    {
37    SKIP:
38        {
39            skip "Cannot load $module without $deps{$subclass}", 1;
40        }
41    }
42}
43