Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

118 lines (97 sloc) 2.717 kb
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
eval "use Data::Section::Simple";
plan skip_all => 'Data::Section::Simple required for this test!' if $@;
use Text::Haml;
use IO::File;
use URI::Escape ();
use File::Spec;
use File::Temp qw/ tempdir /;
my $file = IO::File->new;
# cache_dir
my $tempdir = tempdir(CLEANUP => 1);
# haml template
$file->open(File::Spec->catfile('t', 'render1.haml'), 'r') or die $!;
my $haml1_content = do { local $/; <$file> };
$file->close;
# create haml file for test
my $render_haml = File::Spec->catfile($tempdir, 'render.haml');
$file->open($render_haml, 'w') or die $!;
print $file $haml1_content;
$file->close;
my $haml = Text::Haml->new(
path => $tempdir,
cache_dir => $tempdir,
cache => 1,
);
my $output = $haml->render_file('render.haml', title => 'RENDER_FILE_TEST');
$file->open(File::Spec->catfile('t', 'render1.html'), 'r') or die $!;
my $expected1 = do { local $/; <$file> };
$file->close;
is($output, $expected1);
$output = $haml->render_file( File::Spec->rel2abs(File::Spec->catfile('t', 'render1.haml')), title => 'RENDER_FILE_TEST');
is($output, $expected1);
my $uri_escaped = URI::Escape::uri_escape($tempdir);
my $cache_dir = File::Spec->catdir($tempdir, $uri_escaped);
note($cache_dir);
ok(-d $cache_dir);
my $cache_path = File::Spec->catfile($cache_dir, 'render.haml.pl');
ok(-f $cache_path);
cmp_ok(-s $cache_path, '>', 1);
# overwrite haml file for test
$file->open($render_haml, 'w') or die $!;
print $file <<'EOF';
%p.title= $title
%p
TEST
EOF
$file->close;
# change mtime
my $mtime = time;
$mtime += 1000;
utime $mtime, $mtime, $render_haml;
$haml = Text::Haml->new(
path => [$tempdir],
cache_dir => $tempdir,
cache => 2, # using already exists cache
);
$output = $haml->render_file('render.haml', title => 'RENDER_FILE_TEST');
# same output test 1
is($output, $expected1);
# rendering same file again works just the same
$output = $haml->render_file('render.haml', title => 'RENDER_FILE_TEST');
is($output, $expected1);
is($haml->error,undef);
$haml = Text::Haml->new(
path => $tempdir,
cache_dir => $tempdir,
cache => 1,
);
$output = $haml->render_file('render.haml', title => 'RENDER_FILE_TEST');
is($output, <<'EOF');
<p class='title'>RENDER_FILE_TEST</p>
<p>
TEST
</p>
EOF
# Test virtual path
my $vpath = Data::Section::Simple->new()->get_data_section();
$haml = Text::Haml->new(
path => [$vpath],
cache_dir => $tempdir,
cache => 1,
);
$output = $haml->render_file('index.haml', title => 'RENDER_DATA_SECTION_TEST');
is($output, <<'EOF');
<p class='title'>RENDER_DATA_SECTION_TEST</p>
<p>TEST</p>
EOF
done_testing;
__DATA__
@@ index.haml
%p(class = 'title') #{$title}
%p TEST
@@ header.haml
%header hello
Jump to Line
Something went wrong with that request. Please try again.