Open-ILS/src/perlmods/live_t/23-action-trigger-templates.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5 use Test::More tests => 3;
   6 use OpenILS::Utils::TestUtils;
   7 use OpenILS::Const qw(:const);
   8
   9 my $script = OpenILS::Utils::TestUtils->new();
  10 $script->bootstrap;
  11
  12 use OpenILS::Application::Trigger::Reactor;
  13 my $r = "OpenILS::Application::Trigger::Reactor";
  14
  15 my $env = {
  16     carrier  => 1,
  17     number   => '',
  18     template => '[%- helpers.get_sms_gateway_email(carrier, number) -%]',
  19 };
  20 my $addr = $r->run_TT($env, 1);
  21 is($addr, '', 'helpers.get_sms_gateway_email: no number means no SMS gateway address');
  22
  23 $env = {
  24     carrier  => 1,
  25     number   => '9015551212',
  26     template => '[%- helpers.get_sms_gateway_email(carrier, number) -%]',
  27 };
  28 $addr = $r->run_TT($env, 1);
  29 is($addr, 'opensrf+9015551212@localhost', 'helpers.get_sms_gateway_email: get back a SMS gateway address');
  30
  31 $env = {
  32     carrier  => '',
  33     number   => '9015551212',
  34     template => '[%- helpers.get_sms_gateway_email(carrier, number) -%]',
  35 };
  36 $addr = $r->run_TT($env, 1);
  37 is($addr, '', 'helpers.get_sms_gateway_email: no carrier means no SMS gateway address');