kivitendo/t/controllers/base/render.t @ f0043d32
| 7647d46a | Moritz Bunkus | use strict;
|
||
use Test::Exception;
|
||||
use Test::More;
|
||||
use Test::Output;
|
||||
use lib 't';
|
||||
use Support::TestSetup;
|
||||
use SL::Presenter;
|
||||
no warnings 'uninitialized';
|
||||
Support::TestSetup::login();
|
||||
sub reset_test_env {
|
||||
$ENV{HTTP_USER_AGENT} = 'Perl Tests';
|
||||
| dac8a136 | Moritz Bunkus | $::request = SL::Request->new(
|
||
| 7647d46a | Moritz Bunkus | cgi => CGI->new({}),
|
||
layout => SL::Layout::Javascript->new,
|
||||
| dac8a136 | Moritz Bunkus | );
|
||
| 7647d46a | Moritz Bunkus | |||
| e2da553f | Moritz Bunkus | $::myconfig{menustyle} = 'javascript';
|
||
| 7647d46a | Moritz Bunkus | |||
delete @{ $::form }{qw(header footer)};
|
||||
}
|
||||
my $ctrl = SL::Controller::Base->new;
|
||||
# Passing invalid parameters:
|
||||
throws_ok { $ctrl->render(\'dummy', { unknown => 1 }) } qr/unsupported option/i, 'string ref, unknown parameter';
|
||||
throws_ok { $ctrl->render(\'dummy', { type => "excel" }) } qr/unsupported type/i, 'string ref, unsupported "type"';
|
||||
throws_ok { $ctrl->render({}) } qr/unsupported.*template.*reference.*type/i, 'string ref, unsupported template argument reference type';
|
||||
throws_ok { $ctrl->render('does/not/exist') } qr/template.*file.*not.*found/i, 'non-existing template file name';
|
||||
# No output:
|
||||
stdout_is { $ctrl->render(\'Hallo', { output => 0 }) } '', 'no output';
|
||||
# Type of return value:
|
||||
is(ref($ctrl->render(\'Hallo', { output => 0 })), 'SL::Presenter::EscapedText', 'render returns SL::Presenter::EscapedText');
|
||||
# Actual return value for string ref parameters (enforce stringification from SL::Presenter::EscapedText before comparison):
|
||||
is("" . $ctrl->render(\'Hallo [% world %]', { output => 0 }, world => 'Welt'), 'Hallo Welt', 'render string ref, no output');
|
||||
is("" . $ctrl->render(\'Hallo [% world %]', { output => 0, process => 0 }, world => 'Welt'), 'Hallo [% world %]', 'render string ref, no output, no processing');
|
||||
is("" . $ctrl->render(\'Hallo [% world %]', { output => 0, type => 'js' }, world => 'Welt'), 'Hallo Welt', 'render string ref, no output, different type');
|
||||
# Actual return value for template file name parameters (enforce stringification from SL::Presenter::EscapedText before comparison):
|
||||
is("" . $ctrl->render('t/render', { output => 0 }, world => 'Welt'), "Hallo Welt\n", 'render template file, no args');
|
||||
is("" . $ctrl->render('t/render', { output => 0, process => 0 }, world => 'Welt'), "[\% USE HTML \%]Hallo [\% HTML.escape(world) \%]\n", 'render template file, no processing');
|
||||
is("" . $ctrl->render('t/render', { output => 0, type => 'js' }, thingy => 'jungle'), "Welcome to the jungle\n", 'render template file, different type');
|
||||
# No HTTP header in screen output:
|
||||
reset_test_env();
|
||||
stdout_unlike { $ctrl->render(\'Hallo [% world %]', { header => 0 }, world => 'Welt') } qr/content-type/i, 'no HTTP header with header=0';
|
||||
reset_test_env();
|
||||
stdout_unlike { $ctrl->render(\'Hallo [% world %]', { header => 0 }, world => 'Welt') } qr/<html>/i, 'no HTML header with header=0';
|
||||
# With HTTP header in screen output:
|
||||
reset_test_env();
|
||||
stdout_like { $ctrl->render(\'Hallo [% world %]', world => 'Welt') } qr/content-type/i, 'HTTP header with header=1';
|
||||
reset_test_env();
|
||||
stdout_like { $ctrl->render(\'Hallo [% world %]', world => 'Welt') } qr/<html>/i, 'HTML header with header=1';
|
||||
# Menu yes/no:
|
||||
reset_test_env();
|
||||
| e2da553f | Moritz Bunkus | stdout_like { $ctrl->render(\'Hallo [% world %]', world => 'Welt') } qr/<div.*id="main_menu_div".*<ul.*id="main_menu_model"/is, 'HTML header & menu with header=1';
|
||
| 7647d46a | Moritz Bunkus | |||
reset_test_env();
|
||||
| e2da553f | Moritz Bunkus | stdout_unlike { $ctrl->render(\'Hallo [% world %]', { header => 0 }, world => 'Welt') } qr/<div.*id="main_menu_div".*<ul.*id="main_menu_model"/is, 'HTML header & menu with header=0';
|
||
| 7647d46a | Moritz Bunkus | |||
reset_test_env();
|
||||
| e2da553f | Moritz Bunkus | stdout_unlike { $ctrl->render(\'Hallo [% world %]', { layout => 0 }, world => 'Welt') } qr/<div.*id="main_menu_div".*<ul.*id="main_menu_model"/is, 'HTML header & menu with layout=0';
|
||
| 7647d46a | Moritz Bunkus | |||
done_testing;
|
||||
1;
|