[p5sagit/Module-Metadata.git] / t / contains_pod.t

use strict;
use warnings;
use Test::More tests => 3;
use Module::Metadata;

{
    my $src = <<'...';
package Foo;
1;
...

    open my $fh, '<', \$src;
    my $module = Module::Metadata->new_from_handle($fh, 'Foo.pm');
    ok(!$module->contains_pod(), 'This module does not contains POD');
}

{
    my $src = <<'...';
package Foo;
1;

=head1 NAME

Foo - bar
...

    open my $fh, '<', \$src;
    my $module = Module::Metadata->new_from_handle($fh, 'Foo.pm');
    ok($module->contains_pod(), 'This module contains POD');
}

{
    my $src = <<'...';
package Foo;
1;

=head1 NAME

Foo - bar

=head1 AUTHORS

Tokuhiro Matsuno
...

    open my $fh, '<', \$src;
    my $module = Module::Metadata->new_from_handle($fh, 'Foo.pm');
    ok($module->contains_pod(), 'This module contains POD');
}
Commit	Line	Data
b50a9801	1	use strict;
	2	use warnings;
	3	use Test::More tests => 3;
	4	use Module::Metadata;
	5
	6	{
	7	my $src = <<'...';
	8	package Foo;
	9	1;
	10	...
	11
	12	open my $fh, '<', \$src;
	13	my $module = Module::Metadata->new_from_handle($fh, 'Foo.pm');
	14	ok(!$module->contains_pod(), 'This module does not contains POD');
	15	}
	16
	17	{
	18	my $src = <<'...';
	19	package Foo;
	20	1;
	21
	22	=head1 NAME
	23
	24	Foo - bar
	25	...
	26
	27	open my $fh, '<', \$src;
	28	my $module = Module::Metadata->new_from_handle($fh, 'Foo.pm');
	29	ok($module->contains_pod(), 'This module contains POD');
	30	}
	31
	32	{
	33	my $src = <<'...';
	34	package Foo;
	35	1;
	36
	37	=head1 NAME
	38
	39	Foo - bar
	40
	41	=head1 AUTHORS
	42
	43	Tokuhiro Matsuno
	44	...
	45
	46	open my $fh, '<', \$src;
	47	my $module = Module::Metadata->new_from_handle($fh, 'Foo.pm');
	48	ok($module->contains_pod(), 'This module contains POD');
	49	}