Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

43 lines (35 sloc) 0.91 kB
use Test;
plan 9;
my $r;
=begin pod
=for comment
foo foo
bla bla bla
This isn't a comment
=end pod
$r = $=pod[0];
isa_ok $r.content[0], Pod::Block::Comment;
is $r.content[0].content.elems, 1;
is $r.content[0].content, "foo foo\nbla bla bla\n";
# from S26
=comment
This file is deliberately specified in Perl 6 Pod format
$r = $=pod[1];
isa_ok $r, Pod::Block::Comment;
is $r.content.elems, 1, 'one-line comment: number of elements';;
is $r.content[0],
"This file is deliberately specified in Perl 6 Pod format\n",
'one-line comment: contents';
# this happens to break hilighting in some editors,
# so I put it at the end
=begin comment
foo foo
=begin invalid pod
=as many invalid pod as we want
===yay!
=end comment
$r = $=pod[2];
isa_ok $r, Pod::Block;
is $r.content.elems, 1;
is $r.content[0], "foo foo\n=begin invalid pod\n"
~ "=as many invalid pod as we want\n===yay!\n";
Jump to Line
Something went wrong with that request. Please try again.