perl_haml_test.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Test::More;
use Text::Haml;
use FindBin;
use JSON 'from_json';

our $VERSION = 0.990101;

my $tests;

open FILE, "< $FindBin::Bin/tests.json" or die $!;
$tests = from_json(join("\n", <FILE>));
close FILE;


my $test_count = 0;
while (my ($section_name, $section) = each %$tests) {
    $test_count += scalar(keys(%$section));
}

plan tests => $test_count;

# want the test numbers to match across runs
for my $section_name (sort keys(%$tests)) {
    my $section = $tests->{$section_name};
    
    diag $section_name;

    for my $test_name (sort keys(%$section)) {
        my $test = $section->{$test_name};
        is( Text::Haml->new(%{$test->{config}}, vars_as_subs => 1)
              ->render($test->{haml}, %{$test->{locals}}),
            $test->{html}, $test_name
        );
    }
}
__END__

=head1 NAME

perl_haml_test.pl - Text::Haml spec tests runner

=head1 SYNOPSIS

    $ perl perl_haml_test.pl

    # conditional comments
    ok 1 - a conditional comment
    # tags with nested content
    ok 2 - a tag with CSS

    ...

    ok 81 - an inline comment
    ok 82 - a nested comment
    1..82

=head1 DESCRIPTION

This file is a part of Haml spec tests envorinment. It tests Perl
implementation using <Text::Haml>.

=head1 DEPENDENCIES

=over

    * Text::Haml (available via CPAN or http://github.com/vti/text-haml)
    * JSON (available on CPAN)
    * Test::More (included in Perl core)
    * FindBin (included in Perl core)

=back

=head1 SEE ALSO

L<Text::Haml>

=head1 AUTHOR

Viacheslav Tykhanovskyi, C<vti@cpan.org>.

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2009, Viacheslav Tykhanovskyi

This program is free software, you can redistribute it and/or modify it under
the terms of the Artistic License version 2.0.

=cut