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