1N/A chdir 't' if -d 't'; 1N/A{ # test package Pod::InputSource 1N/A is( $p_is->name( 'test' ), 'test', 'set Pod::InputSource->name( test )' ); 1N/A{ # test package Pod::Paragraph 1N/A isa_ok( $p_p2, 'Pod::Paragraph', 'Pod::Paragraph constructor revisited' ); 1N/A 'Pod::Paragraph->cmd_name( head1 )' ); 1N/A 'Pod::Paragraph->cmd_name() revisited' ); 1N/A 'Pod::Paragraph->text() revisited' ); 1N/A 'Pod::Paragraph->text( ... )' ); 1N/A 'Pod::Paragraph->raw_text()' ); 1N/A 'Pod::Paragraph->raw_text() revisited' ); 1N/A 'Pod::Paragraph->cmd_prefix()' ); 1N/A 'Pod::Paragraph->cmd_separator()' ); 1N/A # Pod::Parser->parse_tree() / ptree() 1N/A 'Pod::Paragraph->file_line()' ); 1N/A 'Pod::Paragraph->file_line()' ); 1N/A{ # test package Pod::InteriorSequence 1N/A isa_ok( $p_is, 'Pod::InteriorSequence', 'P::InteriorSequence constructor' ); 1N/A 'set Pod::InteriorSequence->cmd_name( B )' ); 1N/A 'Pod::InteriorSequence->raw_text()' ); 1N/A 'raw_text() after prepend()' ); 1N/A 'raw_text() after append()' ); 1N/A{ # test package Pod::ParseTree 1N/A 'Pod::ParseTree constructor' ); 1N/A 'set new Pod::ParseTree->top()' ); 1N/A 'Pod::ParseTree->children()' );