#!/usr/bin/env perl
use strict;
use warnings;
use Text::Haml;
use Test::More tests => 2;
my $haml = Text::Haml->new;
# Implicit Div Elements
my $output = $haml->render(<<'EOF');
%div#collection
%div.item
%div.description What a cool item!
EOF
is($output, <<'EOF');
<div id='collection'>
<div class='item'>
<div class='description'>What a cool item!</div>
</div>
</div>
EOF
$output = $haml->render(<<'EOF');
#collection
.item
.description What a cool item!
EOF
is($output, <<'EOF');
<div id='collection'>
<div class='item'>
<div class='description'>What a cool item!</div>
</div>
</div>
EOF