#! perl
# Copyright (C) 2008, The Perl Foundation.
# $Id: /mirror/trunk/languages/markdown/t/10-heading.t 34285 2008-12-22T21:01:02.443642Z fperrad  $

=head1 NAME

t/10-heading.t - Markdown heading

=head1 SYNOPSIS

    % perl t/10-heading.t

=cut

use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";

use Parrot::Test tests => 4;
use Test::More;

language_output_is( 'markdown', <<'CODE', <<'OUT', 'SetextHeading1' );

First-level heading
===================

CODE
<h1>First-level heading</h1>

OUT

language_output_is( 'markdown', <<'CODE', <<'OUT', 'SetextHeading2' );

Second-level heading
--------------------

CODE
<h2>Second-level heading</h2>

OUT

language_output_is( 'markdown', <<'CODE', <<'OUT', 'AtxHeading 1' );

# First-level heading

CODE
<h1>First-level heading</h1>

OUT

language_output_is( 'markdown', <<'CODE', <<'OUT', 'AtxHeading 4' );

#### Fourth-level heading ####

CODE
<h4>Fourth-level heading</h4>

OUT

# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4:
