1 package KohaTest::Letters::GetLetters;
2 use base qw( KohaTest::Letters );
10 sub GetDefaultLetters : Test( 2 ) {
13 my $letters = GetLetters();
15 # the default install includes several entries in the letter table.
16 isa_ok( $letters, 'HASH' )
17 or diag( Data::Dumper->Dump( [ $letters ], [ 'letters' ] ) );
19 ok( scalar keys( %$letters ) > 0, 'we got some letters' );