Permalink
Fetching contributors…
Cannot retrieve contributors at this time
558 lines (532 sloc) 13.4 KB
#!/usr/bin/env perl
use strict;
use warnings;
use Text::Haml;
use Test::More tests => 19;
my $haml = Text::Haml->new;
$haml->parse();
is_deeply($haml->tape, []);
$haml->parse('');
is_deeply($haml->tape, []);
$haml->parse(' ');
is_deeply(
$haml->tape,
[ { 'level' => 3,
'type' => 'text',
'line' => '',
'lineno' => 1,
}
]
);
$haml->parse("\n");
is_deeply($haml->tape, [{type => 'text', level => 0, line => '', lineno => 1}]);
$haml->parse(<<'EOF');
%a{href => 'foo', target => "_blank", title => help_me, do => true}
%script{:type => "text/javascript",
:src => "javascripts/script.js"}
EOF
is_deeply(
$haml->tape,
[ { type => 'tag',
level => 0,
name => 'a',
attrs => [
href => {type => 'text', text => 'foo'},
target => {type => 'text', text => '_blank'},
title => {type => 'expr', text => 'help_me'},
do => {type => 'boolean', text => 1}
],
line =>
qq/%a{href => 'foo', target => "_blank", title => help_me, do => true}/,
lineno => 1,
},
{ type => 'tag',
level => 0,
name => 'script',
attrs => [
type => {type => 'text', text => 'text/javascript'},
src => {type => 'text', text => 'javascripts/script.js'}
],
line =>
qq|%script{:type => "text/javascript",\n :src => "javascripts/script.js"}|,
lineno => '2-3',
},
{type => 'text', level => 0, line => '', lineno => 4}
]
);
$haml->parse(<<'EOF');
%a(href = 'foo' target = "_blank" title = help_me do = true)
%script(type = "text/javascript"
src = "javascripts/script.js")
EOF
is_deeply(
$haml->tape,
[ { type => 'tag',
level => 0,
name => 'a',
attrs => [
href => {type => 'text', text => 'foo'},
target => {type => 'text', text => '_blank'},
title => {type => 'expr', text => 'help_me'},
do => {type => 'boolean', text => 1}
],
line =>
qq/%a(href = 'foo' target = "_blank" title = help_me do = true)/,
lineno => 1,
},
{ type => 'tag',
level => 0,
name => 'script',
attrs => [
type => {type => 'text', text => 'text/javascript'},
src => {type => 'text', text => 'javascripts/script.js'}
],
line =>
qq|%script(type = "text/javascript"\n src = "javascripts/script.js")|,
lineno => '2-3',
},
{type => 'text', level => 0, line => '', lineno => 4}
]
);
$haml->parse(<<'EOF');
%a{:foo => "#{bar}"}
%a{:bar => "b'az"}
%a{:bar => "b\"az"}
%a{:bar => "baz\"}
EOF
is_deeply(
$haml->tape,
[ { type => 'tag',
level => 0,
name => 'a',
attrs => [foo => {type => 'text', text => '#{bar}'}],
line => '%a{:foo => "#{bar}"}',
lineno => 1,
},
{ type => 'tag',
level => 0,
name => 'a',
attrs => [bar => {type => 'text', text => "b'az"}],
line => q/%a{:bar => "b'az"}/,
lineno => 2,
},
{ type => 'tag',
level => 0,
name => 'a',
attrs => [bar => {type => 'text', text => 'b"az'}],
line => q/%a{:bar => "b\"az"}/,
lineno => 3,
},
{ type => 'tag',
level => 0,
name => 'a',
attrs => [bar => {type => 'text', text => 'baz\\'}],
line => q/%a{:bar => "baz\\"}/,
lineno => 4,
},
{type => 'text', level => 0, line => '', lineno => 5}
]
);
$haml->parse(<<'EOF');
%gee
.class.class2#id{foo => 'bar'}
%baz= 1 + 2
Wow this is cool!
%a{href => 'foo', name => helper} Link
%a(href="foo" name=helper) Link
EOF
is_deeply(
$haml->tape,
[ {type => 'tag', level => 0, name => 'gee', line => '%gee', lineno => 1},
{ type => 'tag',
level => 2,
name => 'div',
class => [qw/class class2/],
id => 'id',
attrs => [foo => {type => 'text', text => 'bar'}],
line => ".class.class2#id{foo => 'bar'}",
lineno => 2,
},
{ type => 'tag',
level => 4,
name => 'baz',
expr => 1,
text => '1 + 2',
line => '%baz= 1 + 2',
lineno => 3,
},
{ type => 'text',
level => 6,
text => 'Wow this is cool!',
line => 'Wow this is cool!',
lineno => 4,
},
{ type => 'tag',
level => 6,
name => 'a',
attrs => [
href => {type => 'text', text => 'foo'},
name => {
type => 'expr',
text => 'helper'
}
],
text => 'Link',
line => "%a{href => 'foo', name => helper} Link",
lineno => 5,
},
{ type => 'tag',
level => 6,
name => 'a',
attrs => [
href => {type => 'text', text => 'foo'},
name => {
type => 'expr',
text => 'helper'
}
],
text => 'Link',
line => q/%a(href="foo" name=helper) Link/,
lineno => 6,
},
{ type => 'text',
level => 0,
line => '',
lineno => 7,
}
]
);
$haml->parse(<<'EOF');
%b(foo=true)
%b{:foo=>false}
EOF
is_deeply(
$haml->tape,
[ { type => 'tag',
level => 0,
name => 'b',
attrs => [foo => {type => 'boolean', text => 1}],
line => q/%b(foo=true)/,
lineno => 1,
},
{ type => 'tag',
level => 0,
name => 'b',
attrs => [foo => {type => 'boolean', text => 0}],
line => q/%b{:foo=>false}/,
lineno => 2,
},
{ type => 'text',
level => 0,
line => '',
lineno => 3,
}
]
);
$haml->parse(<<'EOF');
%blockquote<
%foo
%bar> trim out
EOF
is_deeply(
$haml->tape,
[ { type => 'tag',
level => 0,
name => 'blockquote',
trim_in => 1,
line => '%blockquote<',
lineno => 1,
},
{ type => 'tag',
level => 2,
name => 'foo',
line => '%foo',
lineno => 2,
},
{ type => 'tag',
level => 2,
name => 'bar',
trim_out => 1,
text => 'trim out',
line => '%bar> trim out',
lineno => 3,
},
{ type => 'text',
level => 0,
line => '',
lineno => 4,
}
]
);
$haml->parse(<<'EOF');
-# haml comment
\= "just text"
/ html comment
/[if IE] if html comment
EOF
is_deeply(
$haml->tape,
[ { type => 'comment',
level => 0,
text => 'haml comment',
line => '-# haml comment',
lineno => 1,
},
{ type => 'text',
level => 2,
text => '= "just text"',
line => '\= "just text"',
lineno => 2,
},
{ type => 'html_comment',
level => 2,
text => 'html comment',
line => '/ html comment',
lineno => 3,
},
{ type => 'html_comment',
level => 2,
if => 'IE',
text => 'if html comment',
line => '/[if IE] if html comment',
lineno => 4,
},
{ type => 'text',
level => 0,
line => '',
lineno => 5,
}
]
);
$haml->parse(<<'EOF');
multiline |
comment |
parsing |
normal
EOF
is_deeply(
$haml->tape,
[ { type => 'text',
level => 0,
text => 'multiline comment parsing',
line => "multiline |\ncomment |\nparsing |",
lineno => '1-3',
},
{ type => 'text',
level => 0,
text => 'normal',
line => 'normal',
lineno => 4,
},
{ type => 'text',
level => 0,
line => '',
lineno => 5,
}
]
);
$haml->parse(<<'EOF');
%p multiline |
comment |
parsing |
normal
EOF
is_deeply(
$haml->tape,
[ { type => 'tag',
level => 0,
name => 'p',
text => 'multiline comment parsing',
line => "%p multiline |\ncomment |\nparsing |",
lineno => '1-3',
},
{ type => 'text',
level => 0,
text => 'normal',
line => 'normal',
lineno => 4,
},
{ type => 'text',
level => 0,
line => '',
lineno => 5,
}
]
);
$haml->parse(<<'EOF');
%img
%a/
EOF
is_deeply(
$haml->tape,
[ { type => 'tag',
level => 0,
name => 'img',
autoclose => 1,
line => '%img',
lineno => 1,
},
{ type => 'tag',
level => 0,
name => 'a',
autoclose => 1,
line => '%a/',
lineno => 2,
},
{ type => 'text',
level => 0,
line => '',
lineno => 3,
}
]
);
$haml->parse(<<'EOF');
= 1 + 2
- "foo"
= $foo->{bar}
%p= $i
EOF
is_deeply(
$haml->tape,
[ { type => 'text',
level => 0,
expr => 1,
text => '1 + 2',
line => '= 1 + 2',
lineno => 1,
},
{ type => 'block',
level => 0,
text => '"foo"',
line => '- "foo"',
lineno => 2,
},
{ type => 'text',
level => 0,
expr => 1,
text => '$foo->{bar}',
line => '= $foo->{bar}',
lineno => 3,
},
{ type => 'tag',
level => 0,
name => 'p',
expr => 1,
text => '$i',
line => '%p= $i',
lineno => 4,
},
{ type => 'text',
level => 0,
line => '',
lineno => 5,
}
]
);
$haml->parse(<<'EOF');
= 'foo' if 1
&= '<escape>'
!= '<noescape>'
EOF
is_deeply(
$haml->tape,
[ { type => 'text',
level => 0,
expr => 1,
text => "'foo' if 1",
line => "= 'foo' if 1",
lineno => 1,
},
{ type => 'text',
level => 0,
expr => 1,
escape => 1,
text => "'<escape>'",
line => "&= '<escape>'",
lineno => 2,
},
{ type => 'text',
level => 0,
expr => 1,
escape => 0,
text => "'<noescape>'",
line => "!= '<noescape>'",
lineno => 3,
},
{ type => 'text',
level => 0,
line => '',
lineno => 4,
}
]
);
$haml->parse(<<'EOF');
%foo
%bar
EOF
is_deeply(
$haml->tape,
[ {type => 'tag', level => 0, name => 'foo', line => '%foo', lineno => 1},
{ type => 'text',
level => 0,
line => '',
lineno => 2,
},
{type => 'tag', level => 0, name => 'bar', line => '%bar', lineno => 3},
{ type => 'text',
level => 0,
line => '',
lineno => 4,
}
]
);
$haml->parse(<<'EOF');
~ "Foo\n<pre>Bar\nBaz</pre>"
EOF
is_deeply(
$haml->tape,
[ { type => 'text',
level => 0,
text => '"Foo\n<pre>Bar\nBaz</pre>"',
expr => 1,
preserve_whitespace => 1,
line => '~ "Foo\n<pre>Bar\nBaz</pre>"',
lineno => 1,
},
{ type => 'text',
level => 0,
line => '',
lineno=> 2,
}
]
);
$haml->parse(<<'EOF');
:escaped
<foo>
:preserve
Hello
there.
EOF
is_deeply(
$haml->tape,
[ { type => 'filter',
level => 0,
name => 'escaped',
text => '<foo>',
line => ":escaped\n <foo>",
lineno => '1-2',
},
{ type => 'filter',
level => 0,
name => 'preserve',
text => "Hello\n\nthere.",
line => ":preserve\n Hello\n\n there.",
lineno => '3-6',
},
{ type => 'text',
level => 0,
line => '',
lineno => 7,
}
]
);