@@ -, +, @@ t/db_dependent/Letters.t Test 39 should FAIL, highlighting the problem # Failed test 'Bug 14206 - returns actual message_transport_type' # at t/db_dependent/Letters.t line 181. # got: undef # expected: 'print' --- t/db_dependent/Letters.t | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) --- a/t/db_dependent/Letters.t +++ a/t/db_dependent/Letters.t @@ -18,7 +18,7 @@ # along with Koha; if not, see . use Modern::Perl; -use Test::More tests => 58; +use Test::More tests => 60; use Test::MockModule; use Test::Warn; @@ -173,6 +173,12 @@ is( $letter->{title}, $title, 'GetLetters gets the title correctly' ); is( $letter->{content}, $content, 'GetLetters gets the content correctly' ); is( $letter->{message_transport_type}, 'email', 'GetLetters gets the message type correctly' ); +# Regression test for Bug 14206 +$dbh->do( q|INSERT INTO letter(branchcode,module,code,name,is_html,title,content,message_transport_type) VALUES ('CPL','my module','my code','my name',1,?,?,'print')|, undef, $title, $content ); +my $letter14206_a = C4::Letters::getletter('my module', 'my code', 'CPL' ); +is( $letter14206_a->{message_transport_type}, 'email', 'Bug 14206 - returns default message_transport_type' ); +my $letter14206_b = C4::Letters::getletter('my module', 'my code', 'CPL', $mtts ); +is( $letter14206_b->{message_transport_type}, 'print', 'Bug 14206 - returns actual message_transport_type' ); # addalert my $type = 'my type'; --