InputObjects.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!perl -Tw
BEGIN {
chdir 't' if -d 't';
}
{ # test package Pod::InputSource
local *FH;
}
{ # test package Pod::Paragraph
'Pod::Paragraph->cmd_name( head1 )' );
'Pod::Paragraph->cmd_name() revisited' );
'Pod::Paragraph->text() revisited' );
'Pod::Paragraph->text( ... )' );
'Pod::Paragraph->raw_text()' );
'Pod::Paragraph->raw_text() revisited' );
'Pod::Paragraph->cmd_prefix()' );
'Pod::Paragraph->cmd_separator()' );
# Pod::Parser->parse_tree() / ptree()
'Pod::Paragraph->file_line()' );
'Pod::Paragraph->file_line()' );
}
{ # test package Pod::InteriorSequence
my $p_is = Pod::InteriorSequence->new(
);
'set Pod::InteriorSequence->cmd_name( B )' );
'Pod::InteriorSequence->raw_text()' );
'raw_text() after prepend()' );
'raw_text() after append()' );
}
{ # test package Pod::ParseTree
'Pod::ParseTree constructor' );
'set new Pod::ParseTree->top()' );
'Pod::ParseTree->children()' );
}
InputObjects.t - The tests for Pod::InputObjects
20011220 Abe Timmerman <abe@ztreet.demon.nl>
=cut