#!/usr/bin/perl
use Test::More 'no_plan';
my $method = 'default';
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# DPAN should get the value through the call to SUPER
{
my $setting = 'alarm';
my $value = 15;
foreach my $class ( map { "MyCPAN::App::$_" } qw( BackPAN::Indexer ) )
{
use_ok( $class );
can_ok( $class, $method );
is( $class->$method( $setting ), $value, "$setting in $class right" );
}
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# DPAN should get the value from its own class
{
my $setting = 'indexer_class';
is( MyCPAN::App::BackPAN::Indexer->$method( $setting ), 'MyCPAN::Indexer',
"$setting in MyCPAN::App::BackPAN::Indexer is right" );
}