t/presenter/base/render.t

   1 use strict;
   2 use Test::Exception;
   3 use Test::More;
   4
   5 use lib 't';
   6 use Support::TestSetup;
   7
   8 use SL::Presenter;
   9
  10 Support::TestSetup::login();
  11
  12 if (!Support::TestSetup::templates_cache_writable()) {
  13   plan skip_all => 'Cache dir not writable for this test';
  14 } else {
  15   plan tests => 11;
  16 }
  17
  18 my $pr = SL::Presenter->get;
  19
  20 # Passing invalid parameters:
  21 throws_ok { $pr->render(\'dummy', { unknown => 1 }) }    qr/unsupported option/i,                     'string ref, unknown parameter';
  22 throws_ok { $pr->render(\'dummy', { type => "excel" }) } qr/unsupported type/i,                       'string ref, unsupported "type"';
  23 throws_ok { $pr->render({}) }                            qr/unsupported.*template.*reference.*type/i, 'string ref, unsupported template argument reference type';
  24 throws_ok { $pr->render('does/not/exist') }              qr/template.*file.*not.*found/i,             'non-existing template file name';
  25
  26 # Type of return value:
  27 is(ref($pr->render(\'Hallo')), 'SL::Presenter::EscapedText', 'render returns SL::Presenter::EscapedText');
  28
  29 # Actual return value for string ref parameters (enforce stringification from SL::Presenter::EscapedText before comparison):
  30 is("" . $pr->render(\'Hallo [% world %]', world => 'Welt'),                   'Hallo Welt',        'render string ref, no args');
  31 is("" . $pr->render(\'Hallo [% world %]', { process => 0 }, world => 'Welt'), 'Hallo [% world %]', 'render string ref, no processing');
  32 is("" . $pr->render(\'Hallo [% world %]', { type => 'js' }, world => 'Welt'), 'Hallo Welt',        'render string ref, different type');
  33
  34 # Actual return value for template file name parameters (enforce stringification from SL::Presenter::EscapedText before comparison):
  35 is("" . $pr->render('t/render', world => 'Welt'),                      "Hallo Welt\n",                                       'render template file, no args');
  36 is("" . $pr->render('t/render', { process => 0 }, world  => 'Welt'),   "[\% USE HTML \%]Hallo [\% HTML.escape(world) \%]\n", 'render template file, no processing');
  37 is("" . $pr->render('t/render', { type => 'js' }, thingy => 'jungle'), "Welcome to the jungle\n",                            'render template file, different type');
  38
  39 done_testing;
  40
  41 1;