#!/usr/bin/perl -w                                         # -*- perl -*-

use strict;
use lib qw( ./lib ../lib );
use Pod::POM::Test;

my $DEBUG = 1;

ntests(7);

my $parser = Pod::POM->new();
my $pom = $parser->parse_file(\*DATA);
assert( $pom );

my $text = $pom->head1->[0]->text;
assert( $text );
match( scalar @$text, 2 );
match( $text->[0], 
       "A test Pod document.\n\n" );
match( $text->[1], 
       "Another paragraph with a B<bold> tag.\n\n" );
match( $text, 
       "A test Pod document.\n\n"
     . "Another paragraph with a B<bold> tag.\n\n" );
match( $pom->head1->[0],
       "=head1 NAME\n\n"
     . "A test Pod document.\n\n"
     . "Another paragraph with a B<bold> tag.\n\n" );

__DATA__
=head1 NAME

A test Pod document.

Another paragraph with a B<bold> tag.