t/lib/KohaTest/Letters/GetLetter.pm

   1 package KohaTest::Letters::GetLetter;
   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 GetLetter : Test( 6 ) {
  11     my $self = shift;
  12
  13     my $letter = getletter( 'circulation', 'ODUE' );
  14
  15     isa_ok( $letter, 'HASH' )
  16       or diag( Data::Dumper->Dump( [ $letter ], [ 'letter' ] ) );
  17
  18     is( $letter->{'code'},   'ODUE',        'code' );
  19     is( $letter->{'module'}, 'circulation', 'module' );
  20     ok( exists $letter->{'content'}, 'content' );
  21     ok( exists $letter->{'name'}, 'name' );
  22     ok( exists $letter->{'title'}, 'title' );
  23
  24
  25 }
  26
  27 1;
  28
  29
  30
  31
  32
  33