1#!/usr/bin/env perl 2 3use strict; 4use warnings; 5use utf8; 6 7use Test::More tests => 3; 8 9use Text::Haml; 10 11my $haml = Text::Haml->new(cache => 0); 12 13my $output = $haml->render(<<'EOF'); 14%foo привет 15EOF 16is($output, <<'EOF'); 17<foo>привет</foo> 18EOF 19 20$output = $haml->render_file('t/template.haml'); 21is($output, <<'EOF'); 22<foo>привет</foo> 23EOF 24 25$output = $haml->render_file('t/template-with-vars.haml', foo => 'привет'); 26is($output, <<'EOF'); 27<foo>привет</foo> 28привет 29EOF 30