############################################################
###########       PRAGMATA                          ########
############################################################
use strict;
use warnings;

use Test::More tests => 4;    # last test to print

############################################################
###########        VARIABLES USED                   ########
############################################################

############################################################
###########         TESTING BEGINS                  ########
############################################################
#----------------------------------------------------------
# Ensure that Admin_server::Parser can be use'd.
#----------------------------------------------------------
BEGIN {
    use_ok('Admin_server::Parser');
}

#----------------------------------------------------------
# Check if the plugin can be instantiated.
#----------------------------------------------------------
ok(
    my $parser = Admin_server::Parser->new(),
    'Admin_server::Parser can be instantiated.'
);

#----------------------------------------------------------
# Conform that the new object is of the correct type.
#----------------------------------------------------------
is( ref($parser), 'Admin_server::Parser',
    'Instantiated object is of type Admin_server::Parser' );

#----------------------------------------------------------
# Check whether plugins are correctly loaded.
#----------------------------------------------------------
ok( $parser->get_plugins(), 'Plugin hash can be accessed.' );

#ok( exists ${ $parser->get_plugins() }->{'FeedHandler'},
#    'Feed handler plugin found.' );

done_testing();