# $Id: new.t,v 1.2 2003/06/18 20:03:20 lem Exp $
use Test::More;
package MyFilter;
use base 'Mail::Abuse::Filter';
package main;
package MyReader;
use base 'Mail::Abuse::Reader';
package main;
package MyProcessor;
use base 'Mail::Abuse::Processor';
package main;
package MyIncident;
use base 'Mail::Abuse::Incident';
package main;
my @classes = qw/
Mail::Abuse::Filter
Mail::Abuse::Reader
Mail::Abuse::Incident
Mail::Abuse::Processor
/;
my @over = qw/
MyFilter
MyReader
MyIncident
MyProcessor
/;
plan tests => (5 * @classes + 4 *@over);
for my $c (@classes)
{
my $o = undef;
use_ok($c);
ok($o = new $c, "new <class>");
isa_ok($o, $c, "new <class>");
ok($o = $c->new, "<class>->new");
isa_ok($o, $c, "<class>->new");
}
for my $c (@over)
{
my $o = undef;
ok($o = new $c, "new <class>");
isa_ok($o, $c, "new <class>");
ok($o = $c->new, "<class>->new");
isa_ok($o, $c, "<class>->new");
}