# -*- perl -*- # t/001_load.t - check module loading and create testing directory use lib qw# /plugins #; use UtcleDB; use Data::Dumper; use Test::More qw( no_plan ); my $dbh = UtcleDB->connect(); BEGIN { use_ok( 'ConferenceNameBuilder' ); } my $object = ConferenceNameBuilder->new( DBH => $dbh ); isa_ok ($object, 'ConferenceNameBuilder'); can_ok ($object, 'foundation_list'); my $list = $object->foundation_list(); eq_array( $list );