use warnings;
use strict;
use Test::More 'no_plan';
use lib ('lib', '../lib');
use MKDoc::Text::Structured;

my $text = <<EOF;
     test
   test
EOF

my $res = MKDoc::Text::Structured::process ($text);
my @stuff = $res =~ /pre/g;
ok (2 == scalar @stuff);


$text = <<EOF;
1. test
     test

   test
EOF
$res = MKDoc::Text::Structured::process ($text);
@stuff = $res =~ /pre/g;
ok (2 == scalar @stuff);

$text = <<EOF;
1. test

     test

   test
EOF
$res = MKDoc::Text::Structured::process ($text);
@stuff = $res =~ /pre/g;
ok (2 == scalar @stuff);

$text = <<EOF;
       b
 a = -----
       c

>        b
>  a = -----
>        c

1. some stuff

     some pre stuff

   2. some other stuff

EOF
$res = MKDoc::Text::Structured::process ($text);
1;

__END__