# -*- 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 );

##</code><code>##

$object->foundation_list returns, and this may be important, an arrayref containing the list elements.  that's been verified (with Data::Dumper ... it's an array of hashrefs intended to be passed into some options menus.)
<p>
but ... the 'eq_array' test is failing .. sort of:
<code>

[me --> ]$ make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/001_load.........ok                                                        
t/002_functions....ok                                                        
t/003_names........ok                                                        
t/004_list.........ok                                                        
t/005_listall......ok 1/0Use of uninitialized value in string eq at /usr/lib/perl5/5.8.7/Test/More.pm line 1126.
Use of uninitialized value in string at /usr/lib/perl5/5.8.7/Test/More.pm line 1132.
t/005_listall......ok                                                        
All tests successful.
Files=5, Tests=17,  0 wallclock secs ( 0.28 cusr +  0.06 csys =  0.34 CPU)

##</code><code>##

ok( ref( $list ) eq 'ARRAY', 'returned a list' );
ok( scalar( @$list ), 'returned a populated list' );
ok( ref( $list->[0] ) eq 'HASH', 'first element is a hashref ...' );