t/lib/KohaTest/Letters/GetLetters.pm

   1 package KohaTest::Letters::GetLetters;
   2 use base qw( KohaTest::Letters );
   3
   4 use strict;
   5 use warnings;
   6
   7 use C4::Letters;
   8 use Test::More;
   9
  10 sub GetDefaultLetters : Test( 2 ) {
  11     my $self = shift;
  12
  13     my $letters = GetLetters();
  14
  15     # the default install includes several entries in the letter table.
  16     isa_ok( $letters, 'HASH' )
  17       or diag( Data::Dumper->Dump( [ $letters ], [ 'letters' ] ) );
  18
  19   ok( scalar keys( %$letters ) > 0, 'we got some letters' );
  20
  21
  22 }
  23
  24 1;
  25
  26
  27
  28
  29
  30