t/lib/KohaTest/Message.pm

   1 package KohaTest::Message;
   2 use base qw( KohaTest );
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8
   9 use C4::Message;
  10 sub testing_class { 'C4::Message' };
  11
  12
  13 sub methods : Test( 1 ) {
  14     my $self = shift;
  15     my @methods = qw(
  16                     new
  17                     find
  18                     find_last_message
  19                     enqueue
  20                     update
  21                     metadata
  22                     render_metadata
  23                     append
  24                 );
  25
  26     can_ok( $self->testing_class, @methods );
  27 }
  28
  29 sub test_metadata : Test( 1 ) {
  30     my $self = shift;
  31     my $message = C4::Message->new;
  32     $message->metadata({
  33         header => "Header",
  34         body   => [],
  35         footer => "Footer",
  36     });
  37     like($message->{metadata}, qr{^---}, "The metadata attribute should be serialized as YAML.");
  38 }
  39
  40 sub test_append : Test( 1 ) {
  41     my $self = shift;
  42     my $message = C4::Message->new;
  43     $message->metadata({
  44         header => "Header",
  45         body   => [],
  46         footer => "Footer",
  47     });
  48     $message->append("foo");
  49     is($message->metadata->{body}->[0], "foo", "Appending a string should add an element to metadata.body.");
  50 }
  51
  52 1;